diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-11 13:35:33 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-11 13:35:33 +0000 |
| commit | 4e37f49190c6c159c53ad79032b13e06c56e0bb9 (patch) | |
| tree | d10e9209b519358eeedb84667347e5723b6b4499 /gcc | |
| parent | ae51947343265a4b9011a238048ebb1bee4d0e4d (diff) | |
| download | ppe42-gcc-4e37f49190c6c159c53ad79032b13e06c56e0bb9.tar.gz ppe42-gcc-4e37f49190c6c159c53ad79032b13e06c56e0bb9.zip | |
PR fortran/16404
* io.c (match_io): Flag 'WRITE(...), ...' as extension.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84510 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 3 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 8 |
2 files changed, 9 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0c784140d57..4ed7899f6e4 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -4,6 +4,9 @@ * module.c (gfc_dump_module, gfc_use_module): Print locus when opening of module file fails. + PR fortran/16404 + * io.c (match_io): Flag 'WRITE(...), ...' as extension. + 2004-07-11 Joseph S. Myers <jsm@polyomino.org.uk> * f95-lang.c (set_block): Remove. diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 631197258a0..5db519a02f8 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) |
