! { dg-do run }
! PR 26499 : Positioning of EOF after write and rewind.
! Test case from Dale Ranta in PR.
! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
program test
dimension idata(100)
open(unit=11,form='unformatted')
write(11)idata
write(11)idata
read(11,end= 1000 )idata
call abort()
1000 continue
rewind 11
write(11)idata
close(11,status='keep')
open(unit=11,form='unformatted')
rewind 11
read(11)idata
read(11, end=250)idata
call abort()
250 continue
close(11,status='delete')
end