mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-24 14:39:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/16404 (should reject invalid code with -pedantic -std=f95 ? (x8))

Browse Source 
PR fortran/16404
* io.c (match_io): Flag 'WRITE(...), ...' as extension.

From-SVN: r84510
This commit is contained in:
Tobias Schlüter 2004-07-11 15:35:33 +02:00 committed by Tobias Schlüter
parent 953e663055
commit cdde7b65fa
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/fortran/ChangeLog
View File

@ -4,6 +4,9 @@
* module.c (gfc_dump_module, gfc_use_module): Print locus * module.c (gfc_dump_module, gfc_use_module): Print locus
when opening of module file fails. 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> 2004-07-11 Joseph S. Myers <jsm@polyomino.org.uk>
* f95-lang.c (set_block): Remove. * f95-lang.c (set_block): Remove.

8
gcc/fortran/io.c
View File

@ -2146,8 +2146,12 @@ loop:
get_io_list: get_io_list:
/* Optional leading comma (non-standard). */ /* Optional leading comma (non-standard). */
if (!comma_flag) if (!comma_flag
gfc_match_char (','); && 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; io_code = NULL;
if (gfc_match_eos () != MATCH_YES) if (gfc_match_eos () != MATCH_YES)