replaced mpfr_can_round (approx, err, rnd1, GMP_RNDN, prec)

by       mpfr_can_round (approx, err, rnd1, GMP_RNDZ, prec + 1)
which in addition guarantees a correct inexact flag


git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@2492 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 2 insertions, 1 deletions

diff --git a/pow.c b/pow.c
index 7c965f632..27244593c 100644
--- a/pow.c
+++ b/pow.c
@@ -349,7 +349,8 @@ mpfr_pow (mpfr_ptr z, mpfr_srcptr x, mpfr_srcptr y, mp_rnd_t rnd_mode)
 	/* actualisation of the precision */
         Nt += 10;
 
-        ok = mpfr_can_round (t, err, GMP_RNDN, rnd_mode, Nz);
+        ok = mpfr_can_round (t, err, GMP_RNDN, GMP_RNDZ,
+                             Nz + (rnd_mode == GMP_RNDN));
 
         /* check exact power */
         if (ok == 0 && loop == 1)