Take into account Inf, Nans ; clear the flags of the return variable

in most function calls.


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

1 files changed, 1 insertions, 0 deletions

diff --git a/random.c b/random.c
index 3b54a86ee..f689d007c 100644
--- a/random.c
+++ b/random.c
@@ -47,6 +47,7 @@ mpfr_random(x)
 {
   mp_limb_t *xp; unsigned long xn, i, cnt, prec=MPFR_PREC(x); 
 
+  MPFR_CLEAR_FLAGS(x);
   xp = MPFR_MANT(x);
   xn = (prec-1)/BITS_PER_MP_LIMB + 1;