From afd428f812ea77aac8574629bdc1e779c7d050d4 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Tue, 9 Oct 2007 20:13:18 +0000 Subject: [PATCH] re PR libfortran/33683 (calculating lgamma instead of gamma) 2007-10-09 Thomas Koenig PR libfortran/33683 * gfortran.dg/gamma_5.f90: Adjust tolerance to avoid failure on some common systems. From-SVN: r129174 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/gamma_5.f90 | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ea1aa8882d81..ff8f67dbb13e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2007-10-09 Thomas Koenig + + PR libfortran/33683 + * gfortran.dg/gamma_5.f90: Adjust tolerance to avoid + failure on some common systems. + 2007-10-09 Richard Guenther PR middle-end/33692 diff --git a/gcc/testsuite/gfortran.dg/gamma_5.f90 b/gcc/testsuite/gfortran.dg/gamma_5.f90 index 6945cfdc1c77..d9cb3580a609 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 > 2e-6) call abort + if (abs(gamma(xs)-ts)/ts > 3e-6) call abort if (abs(gamma(xd)-td)/td > 5e-14) call abort end do call tst_s(2.3, gamma(2.3))