gcc/testsuite/gfortran.dg/backspace_8.f

   1 C { dg-do run { target fd_truncate } }
   2 C PR libfortran/31618 - backspace after an error didn't work.
   3       program main
   4       character*78 msg
   5       open (21, file="backspace_7.dat", form="unformatted")
   6       write (21) 42, 43
   7       write (21) 4711, 4712
   8       write (21) -1, -4
   9       rewind (21)
  10       read (21) i,j
  11       read (21,err=100,end=100) i,j,k
  12       call abort
  13  100  continue
  14       backspace 21
  15       read (21) i,j
  16       if (i .ne. 4711 .or. j .ne. 4712) call abort
  17       close (21,status="delete")
  18       end