From afb6fb7665054449e7cffc37cdf7a154de351469 Mon Sep 17 00:00:00 2001
From: Jeff Law <law@gcc.gnu.org>
Date: Sun, 2 Nov 1997 23:07:39 -0700
Subject: [PATCH] New test.

From-SVN: r16292
---
 gcc/testsuite/g77.f-torture/execute/971102-1.f | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 gcc/testsuite/g77.f-torture/execute/971102-1.f

diff --git a/gcc/testsuite/g77.f-torture/execute/971102-1.f b/gcc/testsuite/g77.f-torture/execute/971102-1.f
new file mode 100644
index 00000000000..6b0c2f3b3a9
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/971102-1.f
@@ -0,0 +1,11 @@
+       i=3
+       j=0
+       do i=i,5
+         j = j+i
+       end do
+       do i=3,i
+         j = j+i
+       end do
+       if (i.ne.7) call abort()
+       print *, i,j
+       end
-- 
2.30.2