gcc/testsuite/gfortran.dg/x_slash_2.f

   1 ! { dg-do run }
   2 ! PR 34887 - reverse tabs followed by a slash used to confuse I/O.
   3       program main
   4       character(len=2) :: b, a
   5       open(10,form="formatted")
   6       write (10,'(3X, A, T1, A,/)') 'aa', 'bb'
   7       rewind(10)
   8       read (10,'(A2,1X,A2)') b,a
   9       if (a /= 'aa' .or. b /= 'bb') call abort
  10       close(10,status="delete")
  11       end