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

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/g77.f-torture/execute/20001111.f

+      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

gcc/testsuite/g77.f-torture/execute/20001111.x

+set torture_execute_xfail "i?86-*-*"
+return 0