diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-18 21:04:33 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-18 21:04:33 +0000 |
| commit | 753ec85ab53c0752a64394357aa56f11897c6abe (patch) | |
| tree | a0b77a2021eecff42ef3625d221bfc8b9e32c3dd /gcc/fortran/io.c | |
| parent | 3ff34605c4b353e02cd22199f92a46a50f8da44a (diff) | |
| download | gcc-753ec85ab53c0752a64394357aa56f11897c6abe.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223315 138bc75d-0d04-0410-961f-82ee72b054a4
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 82a0a871fd3..0ac4f4a03ad 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; } |