re PR fortran/41154 (Comma required after P descriptor)

2009-08-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/41154
	* io.c (check_format): Fix to not error on right paren after P.

From-SVN: r151070

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 0573336f6ea554ea2e152832d50ff472b4a37d41..330ced87abc3cd5f265025be185cef1359014396 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2009-08-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/41154
+       * io.c (check_format): Fix to not error on right paren after P.
+
 2009-08-24  Aldy Hernandez  <aldyh@redhat.com>
 
        PR fortran/40660

diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index 7191a58382ec9f82760b4a345f0a3f24bd7945a0..239d1e27a1a6f42ba848bcc4bba275ba1e795567 100644 (file)
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -694,7 +694,7 @@ data_desc:
        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 @@ data_desc:
                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;