gcc/testsuite/gfortran.dg/backspace_7.f90

   1 ! { dg-do run { target fd_truncate } }
   2 !pr18284 BACKSPACE broken
   3        open(unit=10,access='SEQUENTIAL',status='SCRATCH')
   4        do I = 1,200
   5          write(10,*)I
   6        end do
   7        backspace(10)
   8        backspace(10)
   9        read(10,*)I
  10        if (I.NE.199) call abort
  11        end