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
+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.
--- /dev/null
+ 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
--- /dev/null
+set torture_execute_xfail "i?86-*-*"
+return 0