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

re PR libfortran/25550 (file data corrupted after reading end of file)

Browse Source 
2005-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/25550
	* gfortran.dg/endfile.f: New test.

From-SVN: r109102
This commit is contained in:
Jerry DeLisle 2005-12-28 07:21:20 +00:00
parent b5918dea9c
commit 6c8ccf1c5a
2 changed files with 23 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 @@
2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25550
* gfortran.dg/endfile.f: New test.
2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25419 PR libgfortran/25419

18
gcc/testsuite/gfortran.dg/endfile.f Normal file
View File

@ -0,0 +1,18 @@
! { dg-do run }
! PR25550 file data corrupted after reading end of file.
! Derived from example given in PR from Dale Ranta.
! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
integer data
data=-1
open(unit=11,status='scratch',form='unformatted')
write(11)data
read(11,end=1000 )data
call abort()
1000 continue
rewind (11)
read(11)data
1001 continue
if(data.ne.-1) call abort
end