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

   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