diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/select_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/select_3.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/select_3.f90 b/gcc/testsuite/gfortran.dg/select_3.f90 index d1f2d690499..90792a2f433 100644 --- a/gcc/testsuite/gfortran.dg/select_3.f90 +++ b/gcc/testsuite/gfortran.dg/select_3.f90 @@ -6,13 +6,13 @@ program select_4 do i = 1, 34, 4 select case(i) case (:5) - if (i /= 1 .and. i /= 5) call abort + if (i /= 1 .and. i /= 5) STOP 1 case (13:21) - if (i /= 13 .and. i /= 17 .and. i /= 21) call abort + if (i /= 13 .and. i /= 17 .and. i /= 21) STOP 2 case (29:) - if (i /= 29 .and. i /= 33) call abort + if (i /= 29 .and. i /= 33) STOP 3 case default - if (i /= 9 .and. i /= 25) call abort + if (i /= 9 .and. i /= 25) STOP 4 end select end do end program select_4 |