diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-09-28 19:31:37 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-09-28 19:31:37 +0000 |
| commit | 48c7b142f9e32a5332f2332ecd401f199034dbc6 (patch) | |
| tree | 36dec650567cc39b4056c5be6dbc618241ee6e7c /gcc/fortran/arith.c | |
| parent | 0461b801bf19aa735ecdd2d65e70ca253d5b6fbd (diff) | |
| download | gcc-48c7b142f9e32a5332f2332ecd401f199034dbc6.zip gcc-48c7b142f9e32a5332f2332ecd401f199034dbc6.tar.gz gcc-48c7b142f9e32a5332f2332ecd401f199034dbc6.tar.bz2 | |
arith.c: Change conditional test for inclusion of arctangent().
2006-09-28 Steven G. Kargl <kargl@gcc.gnu.org>
* arith.c: Change conditional test for inclusion of arctangent().
(gfc_check_real_range): Change conditional test for use of
mpfr_subnormalize.
* simplify.c (gfc_simplify_atan2): Fix conditional for use of
mpfr_atan2() instead of arctangent().
(gfc_simplify_exponent): Fix conditional for use of mpfr_get_exp().
(gfc_simplify_log): Fix conditional for use of mpfr_atan2() instead
of arctangent().
(gfc_simplify_nearest): Fix conditional for use of mpfr_nextafter().
From-SVN: r117289
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 53f1262..086ec4d 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -75,7 +75,7 @@ gfc_set_model (mpfr_t x) mpfr_set_default_prec (mpfr_get_prec (x)); } -#if !defined(MPFR_VERSION_MAJOR) +#if MPFR_VERSION_MAJOR < 2 || (MPFR_VERSION_MAJOR == 2 && MPFR_VERSION_MINOR < 2) /* Calculate atan2 (y, x) atan2(y, x) = atan(y/x) if x > 0, @@ -408,7 +408,7 @@ gfc_check_real_range (mpfr_t p, int kind) } else if (mpfr_cmp (q, gfc_real_kinds[i].tiny) < 0) { -#if !defined(MPFR_VERSION_MAJOR) +#if MPFR_VERSION_MAJOR < 2 || (MPFR_VERSION_MAJOR == 2 && MPFR_VERSION_MINOR < 2) /* MPFR operates on a number with a given precision and enormous exponential range. To represent subnormal numbers, the exponent is allowed to become smaller than emin, but always retains the full |