diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/minmaxloc_6.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/minmaxloc_6.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/minmaxloc_6.f90 b/gcc/testsuite/gfortran.dg/minmaxloc_6.f90 index c61fab47edf..9ac79be797d 100644 --- a/gcc/testsuite/gfortran.dg/minmaxloc_6.f90 +++ b/gcc/testsuite/gfortran.dg/minmaxloc_6.f90 @@ -4,8 +4,8 @@ dda = (/(J1,J1=1,100)/) IDS = MAXLOC(DDA,1) - if (ids.ne.100) call abort !expect 100 + if (ids.ne.100) STOP 1!expect 100 IDS = MAXLOC(DDA,1, (/(J1,J1=1,100)/) > 50) - if (ids.ne.100) call abort !expect 100 + if (ids.ne.100) STOP 2!expect 100 END |