From 48c7b142f9e32a5332f2332ecd401f199034dbc6 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Thu, 28 Sep 2006 19:31:37 +0000 Subject: arith.c: Change conditional test for inclusion of arctangent(). 2006-09-28 Steven G. Kargl * 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 --- gcc/fortran/arith.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/fortran/arith.c') 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 -- cgit v1.1