Commit 72acf720 by Jerry DeLisle

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
parent 033e7d21
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> 2009-08-24 Aldy Hernandez <aldyh@redhat.com>
PR fortran/40660 PR fortran/40660
......
...@@ -694,7 +694,7 @@ data_desc: ...@@ -694,7 +694,7 @@ data_desc:
goto fail; goto fail;
if (gfc_option.allow_std < GFC_STD_F2003 && t != FMT_COMMA 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_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"); error = _("Comma required after P descriptor");
goto syntax; goto syntax;
...@@ -708,7 +708,7 @@ data_desc: ...@@ -708,7 +708,7 @@ data_desc:
goto fail; goto fail;
} }
if (t != FMT_F && t != FMT_E && t != FMT_EN && t != FMT_ES && t != FMT_D 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"); error = _("Comma required after P descriptor");
goto syntax; goto syntax;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment