From: toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 11 Nov 2000 20:05:48 +0000 (+0000)
Subject: 2000-11-11  Toon Moene  <toon@moene.indiv.nluug.nl>
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=fcaaa813f3faea4126991c9a67f1cba206672e37;p=thirdparty%2Fgcc.git

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

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


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@37389 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 22a5db0936e8..408dae31e988 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 000000000000..db342bbd42b9
--- /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 000000000000..93d817aae920
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/20001111.x
@@ -0,0 +1,2 @@
+set torture_execute_xfail "i?86-*-*"
+return 0