OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Thomas Koenig 2007-10-09 20:13:18 +00:00
parent beb1b47587
commit afd428f812
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

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

2
gcc/testsuite/gfortran.dg/gamma_5.f90
View File

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