diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/quad_3.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/quad_3.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/quad_3.f90 b/gcc/testsuite/gfortran.dg/quad_3.f90 index be8e3c38f1c..173829151e3 100644 --- a/gcc/testsuite/gfortran.dg/quad_3.f90 +++ b/gcc/testsuite/gfortran.dg/quad_3.f90 @@ -26,6 +26,6 @@ program test_qp ! print *, 'same value read again: ', a, c ! print *, 'difference: looks OK now ', a-b(1) if (abs (a-b(1))/a > epsilon(0.0_qp) & - .or. abs (c-b(1))/c > epsilon (0.0_qp)) call abort() + .or. abs (c-b(1))/c > epsilon (0.0_qp)) STOP 1 end if end program test_qp |