[Bug fortran/23151] print (buf, format), expression should be invalid

[tkoenig at gcc dot gnu dot org]

------- Comment #2 from tkoenig at gcc dot gnu dot org  2006-05-23 20:48 -------
This patch looks as if it could do the job:

Index: io.c
===================================================================
--- io.c        (revision 113958)
+++ io.c        (working copy)
@@ -2424,6 +2424,12 @@
       dt->io_unit = default_unit (k);
       goto get_io_list;
     }
+  else
+    {
+      /* print (*,*) is invalid.  */
+      if (gfc_match_char ('('))
+       goto syntax;
+    }

   /* Match a control list */
   if (match_dt_element (k, dt) == MATCH_YES)


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23151