diff options
author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-06-02 04:42:41 +0000 |
---|---|---|
committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-06-02 04:42:41 +0000 |
commit | 022d92603310a4fe305b7ad8f6a0cc82f601b26c (patch) | |
tree | 5e6885f1c0b0d16f07ede032c7e6c30ca39c26e4 /gcc/fortran | |
parent | 4c9b38955a4f023614b23e7ad5c99ef10e4d5b27 (diff) | |
download | gcc-022d92603310a4fe305b7ad8f6a0cc82f601b26c.zip gcc-022d92603310a4fe305b7ad8f6a0cc82f601b26c.tar.gz gcc-022d92603310a4fe305b7ad8f6a0cc82f601b26c.tar.bz2 |
re PR fortran/44371 (STOP parsing rejects valid code)
2010-06-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/44371
* match.c (gfc_match_stopcode): Move gfc_match_eos call inside
condition block.
From-SVN: r160133
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/match.c | 6 |
2 files changed, 9 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 66bdbe6..80f78c1 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-06-01 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/44371 + * match.c (gfc_match_stopcode): Move gfc_match_eos call inside + condition block. + 2010-05-31 Steven G. Kargl <kargl@gcc.gnu.org> * fortran/gfortran.texi: Fix typos in description of variable-format- diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 7e13ba3..2cbac02 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -2018,10 +2018,10 @@ gfc_match_stopcode (gfc_statement st) goto cleanup; if (m == MATCH_NO) goto syntax; - } - if (gfc_match_eos () != MATCH_YES) - goto syntax; + if (gfc_match_eos () != MATCH_YES) + goto syntax; + } if (gfc_pure (NULL)) { |