Subversion Repositories openrisc

! { 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