diff options
author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-01 16:24:38 +0000 |
---|---|---|
committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-01 16:24:38 +0000 |
commit | 150c0c39249463779fe7df4ad24fe09731c0967d (patch) | |
tree | 15fabe5c15ab032733629223977c9d3590761024 /gcc/testsuite/gfortran.fortran-torture | |
parent | e6918fe98eb11f59bb446347f952ac5f604dc442 (diff) | |
download | gcc-150c0c39249463779fe7df4ad24fe09731c0967d.tar.gz |
gcc/fortran:
2007-07-01 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/32239
* trans-expr.c (gfc_conv_power_op): Use builtin_powi for
real**int4 powers.
* f95-lang.c (gfc_init_builtin_functions): Add builtin_powi to the
builtins table.
libgfortran:
2007-07-01 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/32239
* Makefile.am: Don't generate real**int4 pow functions.
* gfortran.map: Remove real**int4 pow symbols.
* Makefile.in: Regenerated.
testsuite
2007-07-01 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/32239
* gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90
(test_4): Use proper test for floating point equality.
(test_8): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126175 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture')
-rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90 index a22d0b9f50a..c469cb4340b 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90 @@ -66,7 +66,7 @@ if (z .gt. 0) then else y = (y / 2.) * (2. ** (z + 1)) end if -if (abs (x - y) .gt. abs(x * 1e-6)) call abort() +if (abs (x - y) .gt. spacing (max (abs (x), abs (y)))) call abort() end subroutine test_8(x) @@ -79,6 +79,6 @@ if (z .gt. 0) then else y = (y / 2._8) * (2._8 ** (z + 1)) end if -if (abs (x - y) .gt. abs(x * 1e-6)) call abort() +if (abs (x - y) .gt. spacing (max (abs (x), abs(y)))) call abort() end |