From: Toon Moene <toon@moene.indiv.nluug.nl>
Date: Fri, 1 Dec 2000 21:25:11 +0000 (+0100)
Subject: 20001201.f: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=042db57ecfe619f037f58d62798036e5fd822358;p=gcc.git

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c6d8ed6f709..59f9fa186e7 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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.
diff --git a/gcc/testsuite/g77.f-torture/execute/20001201.f b/gcc/testsuite/g77.f-torture/execute/20001201.f
new file mode 100644
index 00000000000..e80c2a8bcf8
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/20001201.f
@@ -0,0 +1,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