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    ') STOP 1
6      WRITE(line,'(5HAAAAA,TL4,4HABCD)')
7      if (line.ne.'AABCD') STOP 2
8      END
9
10
11
12