diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/gamma_5.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/gamma_5.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/gamma_5.f90 b/gcc/testsuite/gfortran.dg/gamma_5.f90 index d9cb358..467c579 100644 --- a/gcc/testsuite/gfortran.dg/gamma_5.f90 +++ b/gcc/testsuite/gfortran.dg/gamma_5.f90 @@ -21,7 +21,7 @@ program main xd = n + 0.5d0 td = c(n)*sqrt(pi) ts = c(n)*sqrt(pi) - if (abs(gamma(xs)-ts)/ts > 3e-6) call abort + if (abs(gamma(xs)-ts)/ts > 9e-6) call abort if (abs(gamma(xd)-td)/td > 5e-14) call abort end do call tst_s(2.3, gamma(2.3)) |