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
12