old-autovect-branch/gcc/testsuite/gfortran.fortran-torture/execute/backspace.f90

   1 ! pr 15755
   2         implicit none
   3         character*1 C
   4         open(10)
   5         write(10,*)'a'
   6         write(10,*)'b'
   7         write(10,*)'c'
   8         rewind(10)
   9         read(10,*)C
  10         backspace(10)
  11         read(10,*) C
  12         if (C.ne.'a') call abort
  13         close(10,STATUS='DELETE')
  14         end