diff options
| author | Ulrich Weigand <uweigand@de.ibm.com> | 2009-04-17 10:40:01 +0000 |
|---|---|---|
| committer | Ulrich Weigand <uweigand@gcc.gnu.org> | 2009-04-17 10:40:01 +0000 |
| commit | 00620286a59c3703c7bb33d24f215653c66df78e (patch) | |
| tree | 3c735955de294c2d24a718df536d874b9ed8ba3a /gcc/testsuite/gfortran.dg/gamma_5.f90 | |
| parent | c9184dd88127f610ee5cd1a3f62122a68c23665a (diff) | |
| download | gcc-00620286a59c3703c7bb33d24f215653c66df78e.zip gcc-00620286a59c3703c7bb33d24f215653c66df78e.tar.gz gcc-00620286a59c3703c7bb33d24f215653c66df78e.tar.bz2 | |
nan_inf_fmt.x: Skip on spu-*-*.
* gfortran.fortran-torture/execute/nan_inf_fmt.x: Skip on spu-*-*.
* gfortran.fortran-torture/execute/intrinsic_nearest.x: Likewise.
* gfortran.fortran-torture/execute/intrinsic_set_exponent.x: Likewise.
* gfortran.dg/nearest_1.f90: Likewise.
* gfortran.dg/nearest_3.f90: Likewise.
* gfortran.dg/isnan_1.f90: Likewise.
* gfortran.dg/isnan_2.f90: Likewise.
* gfortran.dg/nan_1.f90: Likewise.
* gfortran.dg/nan_2.f90: Likewise.
* gfortran.dg/nan_3.f90: Likewise.
* gfortran.dg/nan_4.f90: Likewise.
* gfortran.dg/module_nan.f90: Likewise.
* gfortran.dg/int_conv_2.f90: Likewise.
* gfortran.dg/init_flag_3.f90: Likewise.
* gfortran.dg/namelist_42.f90: Likewise.
* gfortran.dg/namelist_43.f90: Likewise.
* gfortran.dg/real_const_3.f90: Likewise.
* gfortran.dg/transfer_simplify_1.f90: Likewise.
* gfortran.dg/default_format_1.f90: XFAIL on spu-*-*.
* gfortran.dg/default_format_denormal_1.f90: XFAIL on spu-*-*.
* gfortran.dg/scalar_mask_2.f90: XFAIL on spu-*-*.
* gfortran.dg/integer_exponentiation_3.F90: XFAIL on spu-*-*.
* gfortran.dg/integer_exponentiation_5.F90: XFAIL on spu-*-*.
* gfortran.dg/elemental_subroutine_1.f90: Relax "epsilon" check.
* gfortran.dg/gamma_5.f90: Likewise.
From-SVN: r146243
Diffstat (limited to 'gcc/testsuite/gfortran.dg/gamma_5.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gamma_5.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/gamma_5.f90 b/gcc/testsuite/gfortran.dg/gamma_5.f90 index d9cb358..467c579 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 > 3e-6) call abort + if (abs(gamma(xs)-ts)/ts > 9e-6) call abort if (abs(gamma(xd)-td)/td > 5e-14) call abort end do call tst_s(2.3, gamma(2.3)) |