------- Comment #4 from jvdelisle at gcc dot gnu dot org  2009-08-25 01:03 
-------
Patch is simple and obvious.  I will commit shortly.

Index: io.c
===================================================================
--- io.c        (revision 151045)
+++ io.c        (working copy)
@@ -694,7 +694,7 @@
        goto fail;
       if (gfc_option.allow_std < GFC_STD_F2003 && t != FMT_COMMA
          && t != FMT_F && t != FMT_E && t != FMT_EN && t != FMT_ES
-         && t != FMT_D && t != FMT_G)
+         && t != FMT_D && t != FMT_G && t != FMT_RPAREN)
        {
          error = _("Comma required after P descriptor");
          goto syntax;
@@ -708,7 +708,7 @@
                goto fail;
            }
           if (t != FMT_F && t != FMT_E && t != FMT_EN && t != FMT_ES && t !=
FMT_D
-             && t != FMT_G)
+             && t != FMT_G && t != FMT_RPAREN)
            {
              error = _("Comma required after P descriptor");
              goto syntax;


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |jvdelisle at gcc dot gnu dot
                   |dot org                     |org
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2009-08-25 01:03:20
               date|                            |


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

Reply via email to