re PR libfortran/33683 (calculating lgamma instead of gamma)

2007-10-09  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/33683
	* gfortran.dg/gamma_5.f90:  Adjust tolerance to avoid
	failure on some common systems.

From-SVN: r129174

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ea1aa8882d8137bcce0cc73eae969005e9f57bd7..ff8f67dbb13ebb7715f1b949a17ef7c9000bd2c1 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2007-10-09  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR libfortran/33683
+       * gfortran.dg/gamma_5.f90:  Adjust tolerance to avoid
+       failure on some common systems.
+
 2007-10-09  Richard Guenther  <rguenther@suse.de>
 
        PR middle-end/33692

diff --git a/gcc/testsuite/gfortran.dg/gamma_5.f90 b/gcc/testsuite/gfortran.dg/gamma_5.f90
index 6945cfdc1c777695782b51e4e3cbd5b38ed0dfbf..d9cb3580a609b68c3fea45c4b699667a43d1a6c5 100644 (file)
--- 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))