From cdde7b65fa3b0e5d63984991fad01ad75881b3cc Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sun, 11 Jul 2004 15:35:33 +0200 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 3 +++ 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 * 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) -- 2.30.2