From da909756e6d7b1758756c02c35875d3cd68427bb Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Sat, 11 Nov 2000 21:05:48 +0100 Subject: [PATCH] 20001111.[fx]: Test premature exit from DO loop. 2000-11-11 Toon Moene * g77.f-torture/execute/20001111.[fx]: Test premature exit from DO loop. From-SVN: r37389 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/g77.f-torture/execute/20001111.f | 12 ++++++++++++ gcc/testsuite/g77.f-torture/execute/20001111.x | 2 ++ 3 files changed, 19 insertions(+) create mode 100644 gcc/testsuite/g77.f-torture/execute/20001111.f create mode 100644 gcc/testsuite/g77.f-torture/execute/20001111.x 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 + + * g77.f-torture/execute/20001111.[fx]: Test premature exit + from DO loop. + 2000-11-11 Bernd Schmidt * 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 -- 2.30.2