re PR fortran/29563 (Internal read loses data.)
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:
parent
a9f6f1f27f
commit
ee7b3e9ab1
|
@ -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>
|
2006-10-26 Richard Guenther <rguenther@suse.de>
|
||||||
|
|
||||||
* gcc.target/i386/i386.exp: Use glob, not find to collect
|
* gcc.target/i386/i386.exp: Use glob, not find to collect
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue