1! { dg-do run } 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> 5 integer data 6 data=-1 7 open(unit=11,status='scratch',form='unformatted') 8 write(11)data 9 read(11,end= 1000 )data 10 call abort() 11 1000 continue 12 backspace 11 13 backspace 11 14 backspace 11 15 read(11,end= 1001 )data 16 1001 continue 17 if (data.ne.-1) call abort 18 close(11) 19 end 20 21