diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_2.f90')
-rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_2.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_2.f90 index 5f0b5b5da1d..d363f23e514 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_2.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mmloc_2.f90 @@ -10,13 +10,13 @@ program intrinsic_mmloc_2 b(2) = 1 c(1) = 1 - if (maxloc (a, 1) .ne. 1) call abort() - if (maxloc (b, 1) .ne. 1) call abort() - if (maxloc (c, 1) .ne. 1) call abort() + if (maxloc (a, 1) .ne. 1) STOP 1 + if (maxloc (b, 1) .ne. 1) STOP 2 + if (maxloc (c, 1) .ne. 1) STOP 3 ! We were giving MINLOC and MAXLOC the wrong return type vc = (/4.0d0, 2.50d1, 1.0d1/) i = minloc (vc) - if (i(1) .ne. 1) call abort() + if (i(1) .ne. 1) STOP 4 END PROGRAM |