diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-09 20:13:18 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-09 20:13:18 +0000 |
| commit | df623e61c294a2fb2ca34802f78c103679c06f93 (patch) | |
| tree | 10e4c004455ecfeb9d7adcc7983fd2c466b84b83 | |
| parent | 7a6ecb615af463ced5c0622a862fc5bd5cb04bfe (diff) | |
| download | ppe42-gcc-df623e61c294a2fb2ca34802f78c103679c06f93.tar.gz ppe42-gcc-df623e61c294a2fb2ca34802f78c103679c06f93.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129174 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gamma_5.f90 | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ea1aa8882d8..ff8f67dbb13 100644 --- 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 6945cfdc1c7..d9cb3580a60 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)) |
