OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/27575 (gfortran - does not generate error when trying to read too much data)

Browse Source 
2006-05-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/27575
	* gfortran.dg/read_eof_4.f90:  New test.

From-SVN: r113838
This commit is contained in:
Jerry DeLisle 2006-05-17 00:40:23 +00:00
parent cacf2b9638
commit ada22a8299
2 changed files with 21 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-05-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/27575
* gfortran.dg/read_eof_4.f90: New test.
2006-05-16 Richard Guenther <rguenther@suse.de>
PR tree-optimization/22303

16
gcc/testsuite/gfortran.dg/read_eof_4.f90 Normal file
View File

@ -0,0 +1,16 @@
! { dg-do run }
! PR 27575 : This test checks the error checking for end of file condition.
! Derived from test case in PR.
! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
program test
integer i1,i2,i3
open(unit=11,form='unformatted')
write(11)i1, i2
close(11,status='keep')
open(unit=11,form='unformatted')
read(11, eND=100) i1, i2, i3
call abort()
100 read(11, end=110) i3
call abort()
110 close(11,status='delete')
end