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