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