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 22a5db0936e8cb7cda9ee38f1c0656494d5dc921..408dae31e988d1a766679f3d3251cc250c96c79e 100644 (file)
--- 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 (file)
index 0000000..db342bb
--- /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 (file)
index 0000000..93d817a
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/20001111.x
@@ -0,0 +1,2 @@
+set torture_execute_xfail "i?86-*-*"
+return 0