gcc/testsuite/gfortran.dg/t_editing.f

   1 ! { dg-do run }
   2 ! PR25349 Check T editing. Test case from PR submitted by Thomas Koenig
   3 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
   4       program main
   5       character(len=10) line
   6       write (line,'(1X,A,T1,A)') 'A','B'
   7       if (line.ne.'BA') call abort()
   8       end