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/io.c | |
| 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/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 9 |
1 files changed, 5 insertions, 4 deletions
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: |