OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Jerry DeLisle 2009-08-25 01:05:11 +00:00
parent 033e7d21e5
commit 72acf7207b
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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

4
gcc/fortran/io.c
View File

@ -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;