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>.
7 open(unit=11,form='unformatted')
17 read(11,end= 1000 )idata
21 read(11,end= 1001 )idata
22 if(idata(1).ne. -705.or.idata( 1011).ne. -706)call abort()
24 close(11,status='keep')
25 open(unit=11,form='unformatted')
28 if(idata(1).ne.-705)then
32 if(idata(1).ne.-706)then
36 if(idata(1).ne.-707)then
39 close(11,status='delete')