From: Jeffrey A Law <law@cygnus.com>
Date: Thu, 29 Jun 2000 15:46:01 +0000 (+0000)
Subject: 20000629-1.f: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3097c22b202d860d624a6ada70866096d1b2aa5a;p=gcc.git

20000629-1.f: New test.


        * g77.f-torture/compile/20000629-1.f: New test.
        * g77.f-torture/compile/20000629-1.x: Expected to fail.

From-SVN: r34781
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 39202234bcf..635263c83a0 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Thu Jun 29 09:42:40 2000  Jeffrey A Law  (law@cygnus.com)
+
+	* g77.f-torture/compile/20000629-1.f: New test.
+	* g77.f-torture/compile/20000629-1.x: Expected to fail.
+
 2000-06-28  Zack Weinberg  <zack@wolery.cumb.org>
 
 	Rearrange lots of files, removing entirely the
diff --git a/gcc/testsuite/g77.f-torture/compile/20000629-1.f b/gcc/testsuite/g77.f-torture/compile/20000629-1.f
new file mode 100644
index 00000000000..c14021c4fa3
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/20000629-1.f
@@ -0,0 +1,11 @@
+      SUBROUTINE MIST(N, BETA)
+      IMPLICIT REAL*8 (A-H,O-Z)
+      INTEGER  IA, IQ, M1
+      DIMENSION BETA(N)
+      DO 80 IQ=1,M1
+         IF (BETA(IQ).EQ.0.0D0) GO TO 120
+   80 CONTINUE
+  120 IF (IQ.NE.1) GO TO 160
+  160 M1 = IA(IQ)
+      RETURN
+      END
diff --git a/gcc/testsuite/g77.f-torture/compile/20000629-1.x b/gcc/testsuite/g77.f-torture/compile/20000629-1.x
new file mode 100644
index 00000000000..1005ae6c850
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/20000629-1.x
@@ -0,0 +1,3 @@
+set torture_execute_xfail "*-*-*"
+
+return 0