From: Jeff Law <law@gcc.gnu.org>
Date: Mon, 3 Nov 1997 06:05:40 +0000 (-0700)
Subject: *** empty log message ***
X-Git-Tag: releases/egcs-1.0.0~174
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f8db4bd1531f8a7f370b9dd5bf8eddca3205d372;p=thirdparty%2Fgcc.git

*** empty log message ***

From-SVN: r16290
---

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