gcc/testsuite/gfortran.fortran-torture/execute/t_edit.f90

   1 !pr 14897  T edit descriptor broken
   2       implicit none
   3       character*80 line
   4       WRITE(line,'(T5,A,T10,A,T15,A)')'AA','BB','CC'
   5       if (line.ne.'    AA   BB   CC    ') call abort
   6       WRITE(line,'(5HAAAAA,TL4,4HABCD)')
   7       if (line.ne.'AABCD') call abort
   8       END
   9
  10
  11