1      LOGICAL TF(5)
2      CHARACTER*60 LINE
3      NAMELIST /LIST/ TF,TT,FF,XYZ
4      DATA TF /5*.FALSE./
5      DATA LINE /'&LIST,TF=.T.,.F.,.T.,FF=33.,TT=23.,XYZ=-1234.55,/'/
6      OPEN(1,STATUS='SCRATCH')
7      WRITE(1,*) LINE
8      REWIND(1)
9      READ(1,LIST)
10      CLOSE(1)
11      IF (TF(5)) CALL ABORT
12      END
13