diff options
| author | (no author) <(no author)@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-02 00:35:00 +0000 |
|---|---|---|
| committer | (no author) <(no author)@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-02 00:35:00 +0000 |
| commit | 33c6ff0f4f4f35d7dae7bcdac8d429ab312e2b5e (patch) | |
| tree | 89947b04b5c2fbd530076237357ede702d3d6c22 /gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90 | |
| parent | 0fcc981fa6eb41869dce802e289b012f4c3726be (diff) | |
This commit was manufactured by cvs2svn to create tagapple/gcc-5208
'apple-gcc-5208'.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/tags/apple-gcc-5208@101526 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90 | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90 index 148cd394e68..765356d2610 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90 @@ -8,20 +8,20 @@ PROGRAM Test_INTEGER_select SELECT CASE (I) CASE (:-1) - CALL abort + CALL abort CASE (1:) - CALL abort + CALL abort CASE DEFAULT - CONTINUE + CONTINUE END SELECT SELECT CASE (I) CASE (3,2,1) - CALL abort + CALL abort CASE (0) - CONTINUE + CONTINUE CASE DEFAULT - call abort + call abort END SELECT ! Not aborted by here, so it worked @@ -31,40 +31,40 @@ PROGRAM Test_INTEGER_select SELECT CASE (I) CASE (:-1) - CALL abort + CALL abort CASE (1:) - CONTINUE + CONTINUE CASE DEFAULT - CALL abort + CALL abort END SELECT SELECT CASE (I) CASE (3,2,1,:0) - CALL abort + CALL abort CASE (maxI) - CONTINUE + CONTINUE CASE DEFAULT - call abort + call abort END SELECT I = minI SELECT CASE (I) CASE (:-1) - CONTINUE + CONTINUE CASE (1:) - CALL abort + CALL abort CASE DEFAULT - CALL abort + CALL abort END SELECT SELECT CASE (I) CASE (3:,2,1,0) - CALL abort + CALL abort CASE (minI) - CONTINUE + CONTINUE CASE DEFAULT - call abort + call abort END SELECT END |