! { 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 | |
STOP 1 | |
1000 continue | |
rewind (11) | |
read(11)data | |
1001 continue | |
if(data.ne.-1) STOP 1 | |
end | |