From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Sun, 11 Jul 2004 13:35:33 +0000 (+0200)
Subject: re PR fortran/16404 (should reject invalid code with -pedantic -std=f95 ? (x8))
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=cdde7b65fa3b0e5d63984991fad01ad75881b3cc;p=gcc.git

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

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  <jsm@polyomino.org.uk>
 
 	* 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)