diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/minmaxloc_3.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/minmaxloc_3.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/minmaxloc_3.f90 b/gcc/testsuite/gfortran.dg/minmaxloc_3.f90 index fbc1b09f727..e782e24603c 100644 --- a/gcc/testsuite/gfortran.dg/minmaxloc_3.f90 +++ b/gcc/testsuite/gfortran.dg/minmaxloc_3.f90 @@ -112,7 +112,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 |