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/random2.c b/random2.c
index c8f6686d2..6740ccb41 100644
--- a/random2.c
+++ b/random2.c
@@ -52,6 +52,7 @@ mpfr_random2 (x, size, exp)
   mp_size_t xn; unsigned long cnt; mp_ptr xp = MPFR_MANT(x); 
   mp_size_t prec = (MPFR_PREC(x) - 1)/BITS_PER_MP_LIMB; 
 
+  MPFR_CLEAR_FLAGS(x);
   xn = ABS (size);
   if (xn != 0)
     {