From e433aaee67235d51b8fc34b8ec625edcd3d7947e Mon Sep 17 00:00:00 2001 From: Roger Sayle Date: Fri, 21 May 2004 19:55:36 +0000 Subject: [PATCH] io.c (check_format): Use gfc_notify_std to determine whether to issue an error/warning for omitting... * io.c (check_format): Use gfc_notify_std to determine whether to issue an error/warning for omitting the digits from the X format. From-SVN: r82106 --- gcc/fortran/ChangeLog | 7 ++++++- gcc/fortran/io.c | 9 +++++---- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8203f53b6fd..d91fa3d31e2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,6 +1,11 @@ +2004-05-21 Roger Sayle + + * io.c (check_format): Use gfc_notify_std to determine whether to + issue an error/warning for omitting the digits from the X format. + 2004-05-20 Roger Sayle - * io.c (format_item): Allow the number before the X format to + * io.c (check_format): Allow the number before the X format to be optional when not -pedantic. 2004-05-18 Feng Wang diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 7d3702c8f2d..6a31bfa04fb 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -473,10 +473,11 @@ format_item: case FMT_X: /* X requires a prior number if we're being pedantic. */ - if (!pedantic) - goto between_desc; - error = "X descriptor requires leading space count"; - goto syntax; + if (gfc_notify_std (GFC_STD_GNU, "Extension: X descriptor " + "requires leading space count at %C") + == FAILURE) + return FAILURE; + goto between_desc; case FMT_SIGN: case FMT_BLANK: