20001201.f

linux下的gcc编译器

      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