[patch, fortran] PR41154 [4.5 Regression] Comma required after P descriptor

[Jerry DeLisle]

Committed as obvious.  I also added this case to fmt_error_8.f, to be 
committed shortly.

Sorry for breakage.

$ svn commit ChangeLog io.c
Sending        ChangeLog
Sending        io.c
Transmitting file data ..
Committed revision 151070.

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.


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;