gcc/testsuite/gfortran.dg/backslash_1.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fno-backslash" }
   3       character(len=4) a
   4       open (10, status='scratch')
   5       write (10,'(A)') '1\n2'
   6       rewind (10)
   7       read (10,'(A)') a
   8       if (a /= '1\n2') call abort
   9       end