2 ! PR25598 Error on repeated backspaces
.
3 ! Derived from example given in PR by Dale Ranta
4 ! Contributed by Jerry DeLisle
<jvdelisle@gcc
.gnu
.org
>
7 open
(unit
=11,status
='scratch',form
='unformatted')
9 read(11,end= 1000 )data
15 read(11,end= 1001 )data
17 if (data
.ne
.-1) call abort