diff options
author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-08-25 01:05:11 +0000 |
---|---|---|
committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-08-25 01:05:11 +0000 |
commit | 20de8604fc5367c9d764152d880252e9f4339d8c (patch) | |
tree | 6b01a0897106938932835b7346bc812a7b1a3610 /gcc/fortran | |
parent | c2a1a85dd8413604d6f98feb157fc69dfb69e7a9 (diff) |
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: https://gcc.gnu.org/svn/gcc/trunk@151070 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/fortran/io.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0573336f6ea..330ced87abc 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 7191a58382e..239d1e27a1a 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; |