diff options
| author | Roger Sayle <roger@eyesopen.com> | 2004-05-21 19:55:36 +0000 |
|---|---|---|
| committer | Roger Sayle <sayle@gcc.gnu.org> | 2004-05-21 19:55:36 +0000 |
| commit | e433aaee67235d51b8fc34b8ec625edcd3d7947e (patch) | |
| tree | 1b6c4ecad0c39b79001b0b27158915b8a4b3705a /gcc/fortran | |
| parent | 11ed191c4f03b96e9731aead38d1b467af69c178 (diff) | |
| download | gcc-e433aaee67235d51b8fc34b8ec625edcd3d7947e.zip gcc-e433aaee67235d51b8fc34b8ec625edcd3d7947e.tar.gz gcc-e433aaee67235d51b8fc34b8ec625edcd3d7947e.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 9 |
2 files changed, 11 insertions, 5 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8203f53..d91fa3d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,6 +1,11 @@ +2004-05-21 Roger Sayle <roger@eyesopen.com> + + * 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 <roger@eyesopen.com> - * 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 <fengwang@nudt.edu.cn> diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 7d3702c..6a31bfa 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: |