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/hypot.c b/hypot.c
index b65e7af3b..10cc75f06 100644
--- a/hypot.c
+++ b/hypot.c
@@ -151,7 +151,8 @@ mpfr_hypot (mpfr_ptr z, mpfr_srcptr x , mpfr_srcptr y , mp_rnd_t rnd_mode)
         not_exact = 1;
  
     }
-  while (not_exact && mpfr_can_round (t, Nt - 2, GMP_RNDZ, rnd_mode, Nz) == 0);
+  while (not_exact && !mpfr_can_round (t, Nt - 2, GMP_RNDN, GMP_RNDZ,
+                                       Nz + (rnd_mode == GMP_RNDN)));
 
   inexact = mpfr_mul_2ui (z, t, sh, rnd_mode);