From 72acf7207b27be1651148f90770f2066c5ef2ac8 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 25 Aug 2009 01:05:11 +0000 Subject: re PR fortran/41154 (Comma required after P descriptor) 2009-08-24 Jerry DeLisle PR fortran/41154 * io.c (check_format): Fix to not error on right paren after P. From-SVN: r151070 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/io.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'gcc/fortran') 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 + + PR fortran/41154 + * io.c (check_format): Fix to not error on right paren after P. + 2009-08-24 Aldy Hernandez 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; -- cgit v1.1