gcc/testsuite/gfortran.dg/backspace_8.f

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