cmp(x,y) if x=NAN or y=NAN returns 0 and erange flag.

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

1 files changed, 5 insertions, 7 deletions

diff --git a/cmp_d.c b/cmp_d.c
index 869c3d332..4426aa2ee 100644
--- a/cmp_d.c
+++ b/cmp_d.c
@@ -25,15 +25,13 @@ int
 mpfr_cmp_d (mpfr_srcptr b, double d)
 {
   mpfr_t tmp; 
-  int z; 
-
-  MPFR_ASSERTN(!MPFR_IS_NAN(b));
+  int res; 
 
   mpfr_init2 (tmp, IEEE_DBL_MANT_DIG);
-  mpfr_set_d (tmp, d, GMP_RNDN); 
-
-  z = mpfr_cmp (b, tmp); 
+  res = mpfr_set_d (tmp, d, GMP_RNDN);
+  MPFR_ASSERTD (res == 0);
+  res = mpfr_cmp (b, tmp); 
   mpfr_clear (tmp); 
 
-  return z; 
+  return res; 
 }