From: Jeff Law <law@gcc.gnu.org>
Date: Mon, 3 Nov 1997 06:07:39 +0000 (-0700)
Subject: New test.
X-Git-Tag: releases/libf2c-0.5.21~657
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=afb6fb7665054449e7cffc37cdf7a154de351469;p=thirdparty%2Fgcc.git

New test.

From-SVN: r16292
---

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 000000000000..6b0c2f3b3a98
--- /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