diff options
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 0c78414..4ed7899 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 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) |