diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/minmaxloc_10.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/minmaxloc_10.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/minmaxloc_10.f90 b/gcc/testsuite/gfortran.dg/minmaxloc_10.f90 index 932a40be266..581ab9508a6 100644 --- a/gcc/testsuite/gfortran.dg/minmaxloc_10.f90 +++ b/gcc/testsuite/gfortran.dg/minmaxloc_10.f90 @@ -111,7 +111,7 @@ contains subroutine check(n, i,j) integer, value, intent(in) :: i,j,n if(i /= j) then - call abort() + STOP 1 ! print *, 'ERROR: Test',n,' expected ',i,' received ', j end if end subroutine check |