diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2000-11-11 21:05:48 +0100 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2000-11-11 20:05:48 +0000 |
| commit | da909756e6d7b1758756c02c35875d3cd68427bb (patch) | |
| tree | 7742a404562a647582b4e6fca8c7e49818042410 /gcc | |
| parent | 0bbd37ed8cf71abed9344b0e20ada8ca062b8451 (diff) | |
| download | gcc-da909756e6d7b1758756c02c35875d3cd68427bb.zip gcc-da909756e6d7b1758756c02c35875d3cd68427bb.tar.gz gcc-da909756e6d7b1758756c02c35875d3cd68427bb.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/20001111.f | 12 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/20001111.x | 2 |
3 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 22a5db0..408dae3 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 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 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 |