diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/gamma_4.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/gamma_4.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/gamma_4.f90 b/gcc/testsuite/gfortran.dg/gamma_4.f90 index 67e9e2314a1..cb3d79da3e7 100644 --- a/gcc/testsuite/gfortran.dg/gamma_4.f90 +++ b/gcc/testsuite/gfortran.dg/gamma_4.f90 @@ -12,7 +12,7 @@ integer, parameter :: qp = selected_real_kind(precision (0.0_8) + 1) real(qp) :: rqp -if (abs(gamma(1.0_qp) - 1.0_qp) > tiny(1.0_qp)) call abort() -if (abs(log_gamma(1.0_qp)) > tiny(1.0_qp)) call abort() +if (abs(gamma(1.0_qp) - 1.0_qp) > tiny(1.0_qp)) STOP 1 +if (abs(log_gamma(1.0_qp)) > tiny(1.0_qp)) STOP 2 end program gamma_test |