diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/bounds_check_9.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/bounds_check_9.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_9.f90 b/gcc/testsuite/gfortran.dg/bounds_check_9.f90 index c0abd2896ec..e98042dc2be 100644 --- a/gcc/testsuite/gfortran.dg/bounds_check_9.f90 +++ b/gcc/testsuite/gfortran.dg/bounds_check_9.f90 @@ -19,12 +19,12 @@ elemental subroutine set_optional(i,idef,iopt) integer, intent(in), optional :: ivec(:) integer :: ivec_(2) call set_optional(ivec_,(/1,2/)) - if (any (ivec_ /= (/1, 2/))) call abort + if (any (ivec_ /= (/1, 2/))) STOP 1 call set_optional(ivec_,(/1,2/),ivec) if (present (ivec)) then - if (any (ivec_ /= ivec)) call abort + if (any (ivec_ /= ivec)) STOP 2 else - if (any (ivec_ /= (/1, 2/))) call abort + if (any (ivec_ /= (/1, 2/))) STOP 3 end if end subroutine sub end module sub_mod |