Subversion Repositories openrisc

! { dg-do run { target fd_truncate } }

! PR25139 Repeated backspaces and reads.

! Derived from example given in PR by Dale Ranta and FX Coudert

! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org> 

      integer dat(5)

      dat = (/ 0, 0, 0, 0, 1 /)

      write(11) dat,dat,dat,dat

      rewind 11

      write(11) dat

      read(11,end=1008) dat

      call abort()

 1008 continue

      backspace 11

      write(11) dat

      read(11,end=1011) dat

      call abort()

 1011 continue

      backspace 11

      backspace 11

      close(11, status='delete')

      end