clear NaN/Inf flags in normal case

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

1 files changed, 6 insertions, 1 deletions

diff --git a/sqrt.c b/sqrt.c
index ebda6c809..1c27a58d9 100644
--- a/sqrt.c
+++ b/sqrt.c
@@ -49,7 +49,10 @@ mpfr_sqrt (r, u, rnd_mode)
   char can_round = 0; 
   TMP_DECL (marker); TMP_DECL(marker0); 
 
-  if (MPFR_IS_NAN(u) || MPFR_SIGN(u) == -1) { MPFR_SET_NAN(r); return 1; }
+  if (MPFR_IS_NAN(u) || MPFR_SIGN(u) == -1) {
+    MPFR_SET_NAN(r);
+    return 1;
+  }
 
   if (MPFR_SIGN(r) != 1) { MPFR_CHANGE_SIGN(r); }
   if (MPFR_IS_INF(u)) 
@@ -58,6 +61,8 @@ mpfr_sqrt (r, u, rnd_mode)
       return 1;
     }
 
+  MPFR_CLEAR_FLAGS (r);
+
   prec = MPFR_PREC(r);
 
   if (!MPFR_NOTZERO(u))