Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
torture
/
execute
/
t_edit.f90
blob: dcfb0f9e50a23cefbe6e37e753c7d21872dbfba1 [
file
] [
log
] [
blame
]
!
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