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