diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/array_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/array_2.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/array_2.f90 b/gcc/testsuite/gfortran.dg/array_2.f90 index d182f044a7a..982daa75a91 100644 --- a/gcc/testsuite/gfortran.dg/array_2.f90 +++ b/gcc/testsuite/gfortran.dg/array_2.f90 @@ -11,7 +11,7 @@ program test pre = 3.0 call EOS(N, rho, pre, cs, gamma) if (abs(CS(1) - sqrt(gamma*pre(1)/rho(1))) > epsilon(cs)) & - call abort() + STOP 1 contains SUBROUTINE EOS(NODES, DENS, PRES, CS, CGAMMA) IMPLICIT NONE |