mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 16:51:13 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/66039 (ICE on incomplete parentheses at rewind, flush, endfile, backspace)

Browse Source 
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
This commit is contained in:
Steven G. Kargl 2015-05-18 21:04:33 +00:00
parent 703245d706
commit 20898e8096
4 changed files with 37 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
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/64925

4
gcc/fortran/io.c
View File

@ -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;
}

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/66039
* gfortran.dg/filepos1.f90: New test
2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/64925

25
gcc/testsuite/gfortran.dg/filepos1.f90 Normal file
View File

@ -0,0 +1,25 @@
! { dg-do compile }
! PR fortran/66039
!
! Original code from Gerhard Steinmetz
! <gerhard dot steinmetz dot fortran at t-online dot de>
subroutine p1
rewind (( ! { dg-error "Syntax error in REWIND" }
rewind (- ! { dg-error "Syntax error in REWIND" }
end subroutine p1
subroutine p2
flush (( ! { dg-error "Syntax error in FLUSH" }
flush (- ! { dg-error "Syntax error in FLUSH" }
end subroutine p2
subroutine p4
backspace (( ! { dg-error "Syntax error in BACKSPACE" }
backspace (- ! { dg-error "Syntax error in BACKSPACE" }
end subroutine p4
subroutine p3
endfile (( ! { dg-error "Expecting END SUBROUTINE" }
endfile (- ! { dg-error "Expecting END SUBROUTINE" }
end subroutine p3