gcc/testsuite/gfortran.dg/backslash_1.f90

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