20001201.f

来自「gcc3.2.1源代码」· F 代码 · 共 13 行

      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