gcc/testsuite/g77.f-torture/execute/20001201.f


1
2
3
4
5
6
7
8
9
10
11
12

      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