mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-11 03:50:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/29563 (Internal read loses data.)

Browse Source 
2006-10-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/29563
	* gfortran.dg/error_recovery_2.f90: New test.

From-SVN: r118085
This commit is contained in:
Jerry DeLisle 2006-10-27 20:50:15 +00:00
parent a9f6f1f27f
commit ee7b3e9ab1
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2006-10-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/29563
* gfortran.dg/error_recovery_2.f90: New test.
2006-10-26 Richard Guenther <rguenther@suse.de>
* gcc.target/i386/i386.exp: Use glob, not find to collect

21
gcc/testsuite/gfortran.dg/error_recovery_2.f90 Normal file
View File

@ -0,0 +1,21 @@
! { dg-do compile }
! PR27954 Internal compiler error on bad statements
! Derived from test case submitted in PR.
subroutine bad1
character*20 :: y, x 00 ! { dg-error "Syntax error" }
data y /'abcdef'/, x /'jbnhjk'/ pp ! { dg-error "Syntax error" }
end subroutine bad1
subroutine bad2
character*20 :: y, x 00 ! { dg-error "Syntax error" }
data y /'abcdef'/, x /'jbnhjk'/ pp ! { dg-error "Syntax error" }
print *, "basket case."
end subroutine bad2
subroutine bad3
implicit none
character*20 :: y, x 00 ! { dg-error "Syntax error" }
data y /'abcdef'/, x /'jbnhjk'/ pp ! { dg-error "Syntax error" }
print *, "basket case that segfaults without patch."
end subroutine bad3