From: Toon Moene <toon@moene.indiv.nluug.nl>
Date: Sat, 11 Nov 2000 20:05:48 +0000 (+0100)
Subject: 20001111.[fx]: Test premature exit from DO loop.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=da909756e6d7b1758756c02c35875d3cd68427bb;p=gcc.git

20001111.[fx]: Test premature exit from DO loop.

2000-11-11  Toon Moene  <toon@moene.indiv.nluug.nl>

	* g77.f-torture/execute/20001111.[fx]: Test premature exit
	from DO loop.

From-SVN: r37389
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 22a5db0936e..408dae31e98 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-11  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+	* g77.f-torture/execute/20001111.[fx]: Test premature exit
+	from DO loop.
+
 2000-11-11  Bernd Schmidt  <bernds@redhat.co.uk>
 
 	* gcc.c-torture/execute/20001111-1.c: New test.
diff --git a/gcc/testsuite/g77.f-torture/execute/20001111.f b/gcc/testsuite/g77.f-torture/execute/20001111.f
new file mode 100644
index 00000000000..db342bbd42b
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/20001111.f
@@ -0,0 +1,12 @@
+      DOUBLE PRECISION VALUE(2), TOLD, BK
+      DATA VALUE /0D0, 1D0/
+      DATA TOLD /0D0/
+      DO I=1, 2
+         BK = VALUE(I)
+         IF(BK .GT. TOLD) GOTO 10
+      ENDDO
+      WRITE(*,*)'Error: BK = ', BK
+      CALL ABORT
+ 10   CONTINUE
+      WRITE(*,*)'No Error: BK = ', BK
+      END
diff --git a/gcc/testsuite/g77.f-torture/execute/20001111.x b/gcc/testsuite/g77.f-torture/execute/20001111.x
new file mode 100644
index 00000000000..93d817aae92
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/20001111.x
@@ -0,0 +1,2 @@
+set torture_execute_xfail "i?86-*-*"
+return 0