1! { dg-do run { target fd_truncate } } 2! PR 26499 : Positioning of EOF after write and rewind. 3! Test case from Dale Ranta in PR. 4! Submitted by Jerry DeLisle <jvdelisle@verizon.net>. 5 program test 6 dimension idata(100) 7 idata = -42 8 open(unit=11,form='unformatted') 9 write(11)idata 10 write(11)idata 11 read(11,end= 1000 )idata 12 call abort() 13 1000 continue 14 rewind 11 15 write(11)idata 16 close(11,status='keep') 17 open(unit=11,form='unformatted') 18 rewind 11 19 read(11)idata 20 read(11, end=250)idata 21 call abort() 22 250 continue 23 close(11,status='delete') 24 end 25