diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-07-11 15:35:33 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-07-11 15:35:33 +0200 |
| commit | cdde7b65fa3b0e5d63984991fad01ad75881b3cc (patch) | |
| tree | d10e9209b519358eeedb84667347e5723b6b4499 /gcc/fortran/io.c | |
| parent | 953e663055414d35b92d0aed7c40f9502f49a613 (diff) | |
| download | gcc-cdde7b65fa3b0e5d63984991fad01ad75881b3cc.zip gcc-cdde7b65fa3b0e5d63984991fad01ad75881b3cc.tar.gz gcc-cdde7b65fa3b0e5d63984991fad01ad75881b3cc.tar.bz2 | |
re PR fortran/16404 (should reject invalid code with -pedantic -std=f95 ? (x8))
PR fortran/16404
* io.c (match_io): Flag 'WRITE(...), ...' as extension.
From-SVN: r84510
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 6311972..5db519a 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -2146,8 +2146,12 @@ loop: get_io_list: /* Optional leading comma (non-standard). */ - if (!comma_flag) - gfc_match_char (','); + if (!comma_flag + && gfc_match_char (',') == MATCH_YES + && k == M_WRITE + && gfc_notify_std (GFC_STD_GNU, "Comma before output item list " + "at %C is an extension") == FAILURE) + return MATCH_ERROR; io_code = NULL; if (gfc_match_eos () != MATCH_YES) |