gcc/testsuite/gfortran.dg/fmt_t_6.f

   1 ! { dg-do run }
   2 ! PR34782 tab format failure to display properly (regression vs. g77)
   3       character a(6)
   4       character(22)  :: output
   5       data a / 'a', 'b', 'c', 'd', 'e', 'f' /
   6       !write(*,'(a)') "123456789012345678901234567890"
   7       write(output,'(T20,A3,  T1,A4,  T5,A2,  T7,A2,  T9,A4, T17,A2)')
   8      1 'a', 'b', 'c', 'd', 'e', 'f'
   9       if (output .ne. "   b c d   e     f   a") call abort
  10       end