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

@@ -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.

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)