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