* g77.f-torture/compile/20000629-1.f: New test.

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@34781 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3920223..635263c 100644 (file)
--- 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 (file)
index 0000000..c14021c
--- /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 (file)
index 0000000..1005ae6
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/20000629-1.x
@@ -0,0 +1,3 @@
+set torture_execute_xfail "*-*-*"
+
+return 0