From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 25 Aug 2009 01:05:11 +0000 (+0000)
Subject: 2009-08-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
X-Git-Tag: upstream/4.9.2~34122
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=aa41314096f1164bca84854dddb7389d933425eb;p=platform%2Fupstream%2Flinaro-gcc.git

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.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151070 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 0573336..330ced8 100644
--- 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 7191a58..239d1e2 100644
--- 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;