gcc/testsuite/gfortran.dg/backslash_2.f90

   1 ! { dg-do run { target fd_truncate } }
   2 ! { dg-options "-fbackslash" }
   3       integer :: i, e
   4       open (10, status='scratch')
   5       write (10,'(A)') '1\n2'
   6       rewind (10)
   7       read (10,*,iostat=e) i
   8       if (e /= 0 .or. i /= 1) call abort
   9       read (10,*,iostat=e) i
  10       if (e /= 0 .or. i /= 2) call abort
  11       end