Sign in
llvm
/
llvm-archive
/
80a0e6b09a6ccb2f8832d59b5fb8d96f9ae994c5
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
t_edit.f90
blob: 9746f31947a177aa91db37d7768e4557c617412e [
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 '
)
call abort
WRITE
(
line
,
'(5HAAAAA,TL4,4HABCD)'
)
if
(
line
.
ne
.
'AABCD'
)
call abort
END