2 ! PR 26499 Test write with rewind sequences to make sure buffering and
3 ! end-of-file conditions are handled correctly. Derived from test case by Dale
4 ! Ranta. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
8 open(unit=11,form='unformatted')
18 read(11,end= 1000 )idata
22 read(11,end= 1001 )idata
23 if(idata(1).ne. -705.or.idata( 1011).ne. -706)call abort()
25 close(11,status='keep')
26 open(unit=11,form='unformatted')
29 if(idata(1).ne.-705)then
33 if(idata(1).ne.-706)then
37 if(idata(1).ne.-707)then
40 close(11,status='delete')