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 c6d8ed6f70970c8f477fee28101bb8e90ca517bb..59f9fa186e769481c8e07e1f3798f42bcf7374a0 100644 (file)
--- 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 (file)
index 0000000..e80c2a8
--- /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