aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/io.c
diff options
context:
space:
mode:
authorSteven G. Kargl <kargl@gcc.gnu.org>2019-08-31 00:32:48 +0000
committerSteven G. Kargl <kargl@gcc.gnu.org>2019-08-31 00:32:48 +0000
commit460b985ea3d74a371db90b1e54fd3f02752cf658 (patch)
tree878e350f1ecd1d37bf7a74e7b6a52c3389fdec4f /gcc/fortran/io.c
parenta74e175a434645fcf920d2c01fb88f2cbd86adb2 (diff)
downloadgcc-460b985ea3d74a371db90b1e54fd3f02752cf658.zip
gcc-460b985ea3d74a371db90b1e54fd3f02752cf658.tar.gz
gcc-460b985ea3d74a371db90b1e54fd3f02752cf658.tar.bz2
re PR fortran/91587 (ICE in gfc_resolve_filepos, at fortran/io.c:2913)
2019-08-30 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/91587 * io.c (match_filepos): MATCH_ERROR should branch to a syntax error. 2019-08-30 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/91587 * gfortran.dg/pr91587.f90: New test. From-SVN: r275236
Diffstat (limited to 'gcc/fortran/io.c')
-rw-r--r--gcc/fortran/io.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index cd21c6b..632e168 100644
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -2845,7 +2845,7 @@ match_filepos (gfc_statement st, gfc_exec_op op)
m = match_file_element (fp);
if (m == MATCH_ERROR)
- goto done;
+ goto syntax;
if (m == MATCH_NO)
{
m = gfc_match_expr (&fp->unit);