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 (file)
index 0000000..6b0c2f3
--- /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