now deals with NaN

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

1 files changed, 2 insertions, 0 deletions

diff --git a/set.c b/set.c
index cf10e1cdd..2b1174c9d 100644
--- a/set.c
+++ b/set.c
@@ -37,6 +37,8 @@ mpfr_set4(a, b, rnd_mode, signb)
 {
   int carry, an, preca = PREC(a), sh; mp_limb_t *ap = MANT(a);
 
+  if (FLAG_NAN(b)) { SET_NAN(a); return; }
+
   carry = mpfr_round_raw(ap, MANT(b), PREC(b), (signb<0), preca, rnd_mode);
   EXP(a) = EXP(b);
   if (carry) {