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
This commit is contained in:
parent
953e663055
commit
cdde7b65fa
|
@ -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.
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue