Sign in
gnu
/
gcc
/
14bc1c0e15633ea781d76d0ae4274b2e27d51db5
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
20001201.f
blob: e80c2a8bcf85d174f204f1ac41794166336069e2 [
file
] [
log
] [
blame
]
LOGICAL TF
(
5
)
CHARACTER
*
60
LINE
NAMELIST
/
LIST
/
TF
,
TT
,
FF
,
XYZ
DATA TF
/
5
*.
FALSE
./
DATA LINE
/
'&LIST,TF=.T.,.F.,.T.,FF=33.,TT=23.,XYZ=-1234.55,/'
/
OPEN
(
1
,
STATUS
=
'SCRATCH'
)
WRITE
(
1
,*)
LINE
REWIND
(
1
)
READ
(
1
,
LIST
)
CLOSE
(
1
)
IF
(
TF
(
5
))
CALL ABORT
END