2000-12-01 Toon Moene <toon@moene.indiv.nluug.nl>
* g77.f-torture/execute/
20001201.f: New test.
From-SVN: r37925
+2000-12-01 Toon Moene <toon@moene.indiv.nluug.nl>
+
+ * g77.f-torture/execute/20001201.f: New test.
+
2000-12-01 Joseph S. Myers <jsm28@cam.ac.uk>
* gcc.dg/c99-array-nonobj-1.c: No longer XFAIL.
--- /dev/null
+ 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