! { 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 |