diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/intrinsics_kind_argument_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/intrinsics_kind_argument_1.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/intrinsics_kind_argument_1.f90 b/gcc/testsuite/gfortran.dg/intrinsics_kind_argument_1.f90 index 0a3ca079127..6c43ddfcf2d 100644 --- a/gcc/testsuite/gfortran.dg/intrinsics_kind_argument_1.f90 +++ b/gcc/testsuite/gfortran.dg/intrinsics_kind_argument_1.f90 @@ -13,24 +13,24 @@ program test t = "bartutugee" call check (count(l_array, kind=k), 20) - if (any (count(l_array, 2, kind=k) /= 5)) call abort - if (any (count(l_array, kind=k, dim=2) /= 5)) call abort + if (any (count(l_array, 2, kind=k) /= 5)) STOP 1 + if (any (count(l_array, kind=k, dim=2) /= 5)) STOP 2 call check (iachar (s, k), 117) call check (iachar (s, kind=k), 117) call check (ichar (s, k), 117) call check (ichar (s, kind=k), 117) - if (achar(107) /= achar(107,1)) call abort + if (achar(107) /= achar(107,1)) STOP 3 call check (index (t, s, .true., k), 7) call check (index (t, s, kind=k, back=.false.), 5) - if (any (lbound (l_array, kind=k) /= 1)) call abort + if (any (lbound (l_array, kind=k) /= 1)) STOP 4 call check (lbound (l_array, 1), 1) call check (lbound (l_array, 1, kind=k), 1) - if (any (ubound (l_array, kind=k) /= (/4, 5/))) call abort + if (any (ubound (l_array, kind=k) /= (/4, 5/))) STOP 5 call check (ubound (l_array, 1), 4) call check (ubound (l_array, 1, kind=k), 4) @@ -50,7 +50,7 @@ contains subroutine check(x,y) integer, intent(in) :: x, y - if (x /= y) call abort + if (x /= y) STOP 6 end subroutine check end program test |