procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/66461 (ICE on missing end program in fixed source)

Browse source 
2016-05-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/66461
	* scanner.c (gfc_next_char_literal): Clear end_flag when adjusting
	current locus back to old_locus.

	* gfortran.dg/unexpected_eof.f: New test

From-SVN: r236627
This commit is contained in:
Jerry DeLisle 2016-05-24 04:15:39 +00:00
parent 4ddcdbf912
commit 85d5c27d78
4 changed files with 20 additions and 0 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 @@
2016-05-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/66461
* scanner.c (gfc_next_char_literal): Clear end_flag when adjusting
current locus back to old_locus.
2016-05-20 Jakub Jelinek <jakub@redhat.com>
PR fortran/71204

1
gcc/fortran/scanner.c
View file

@ -1556,6 +1556,7 @@ restart:
not_continuation:
c = '\n';
gfc_current_locus = old_loc;
end_flag = 0;
done:
if (c == '\n')

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2016-05-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/66461
* gfortran.dg/unexpected_eof.f: New test
2016-05-23 Michael Meissner <meissner@linux.vnet.ibm.com>
Kelvin Nilsen <kelvin@gcc.gnu.org>

8
gcc/testsuite/gfortran.dg/unexpected_eof.f Normal file
View file

@ -0,0 +1,8 @@
! { dg-do compile }
! PR66461 ICE on missing end program in fixed source
program p
integer x(2)
x = -1
if ( x(1) < 0 .or.
& x(2) < 0 ) print *, x
! { dg-error "Unexpected end of file" "" { target *-*-* } 0 }