20001201.f: New test.

2000-12-01  Toon Moene  <toon@moene.indiv.nluug.nl>

	* g77.f-torture/execute/20001201.f: New test.

From-SVN: r37925

gcc/testsuite/ChangeLog

+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.

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

+      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