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

re PR libfortran/25835 (Segfault or Bad Address error on unformatted sequential READ)

Browse source 
2006-01-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/25835
	* Fix ChangeLog
	* gfortran.dg/read_eof.f90: Delete from rename.

From-SVN: r110202
This commit is contained in:
Jerry DeLisle 2006-01-25 01:39:45 +00:00
parent f19c10ceb6
commit 6e69121fb0
2 changed files with 2 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gcc/testsuite/ChangeLog
View file

@ -1,7 +1,8 @@
2006-01-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/25835
* gfortran.dg/read_eof_1.f90: Rename from read_eof_1.f90.
* gfortran.dg/read_eof.f90: Delete, renamed.
* gfortran.dg/read_eof_1.f90: Rename from read_eof.f90.
* gfortran.dg/read_eof_2.f90: New test.
* gfortran.dg/read_eof_3.f90: New test.

27
gcc/testsuite/gfortran.dg/read_eof.f90
View file

@ -1,27 +0,0 @@
! { dg-do run }
! PR25697 Check that reading from a file that is at end-of-file does not
! segfault or give error. Test case derived from example in PR from Dale Ranta.
! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
integer data(9)
do i = 1,9
data(i)=-3
enddo
open(unit=11,status='scratch',form='unformatted')
write(11)data
read(11,end= 1000 )data
call abort()
1000 continue
backspace 11
backspace 11
write(11)data
rewind 11
data = 0
read(11,end= 1001 )data
1001 continue
read(11,end= 1002 )data
call abort
1002 continue
if (.not. all(data == -3)) call abort()
close(11)
end