diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-05-18 21:04:33 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-05-18 21:04:33 +0000 |
| commit | 20898e80960f5d27410c38f75ea5d412a26f753a (patch) | |
| tree | a0b77a2021eecff42ef3625d221bfc8b9e32c3dd /gcc/fortran/io.c | |
| parent | 703245d706ad3738cf38468067306bb681568053 (diff) | |
| download | gcc-20898e80960f5d27410c38f75ea5d412a26f753a.zip gcc-20898e80960f5d27410c38f75ea5d412a26f753a.tar.gz gcc-20898e80960f5d27410c38f75ea5d412a26f753a.tar.bz2 | |
re PR fortran/66039 (ICE on incomplete parentheses at rewind, flush, endfile, backspace)
2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/66039
* io.c (match_filepos): Check for incomplete/mangled REWIND, FLUSH,
BACKSPACE, and ENDFILE statements
2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/66039
* gfortran.dg/filepos1.f90: New test
From-SVN: r223315
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 82a0a87..0ac4f4a 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -2382,9 +2382,7 @@ match_filepos (gfc_statement st, gfc_exec_op op) if (m == MATCH_NO) { m = gfc_match_expr (&fp->unit); - if (m == MATCH_ERROR) - goto done; - if (m == MATCH_NO) + if (m == MATCH_ERROR || m == MATCH_NO) goto syntax; } |