! { dg-do run } | |
! PR25598 Error on repeated backspaces. | |
! Derived from example given in PR by Dale Ranta | |
! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org> | |
integer data | |
data=-1 | |
open(unit=11,status='scratch',form='unformatted') | |
write(11)data | |
read(11,end= 1000 )data | |
call abort() | |
1000 continue | |
backspace 11 | |
backspace 11 | |
backspace 11 | |
read(11,end= 1001 )data | |
1001 continue | |
if (data.ne.-1) call abort | |
close(11) | |
end | |