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

gcc/testsuite/ChangeLog

+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

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))