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, 19 insertions, 0 deletions

diff --git a/tests/tcmp_ld.c b/tests/tcmp_ld.c
index 51810d6ba..23ca045dc 100644
--- a/tests/tcmp_ld.c
+++ b/tests/tcmp_ld.c
@@ -27,6 +27,7 @@ int
 main (void)
 {
   mpfr_t x;
+  int c;
 
   tests_start_mpfr ();
 
@@ -65,6 +66,24 @@ main (void)
       exit (1);
     }
 
+  /* Check NAN */
+  mpfr_clear_erangeflag ();
+  c = mpfr_cmp_ld (x, DBL_NAN);
+  if (c != 0 || !mpfr_erangeflag_p ())
+    {
+      printf ("ERROR for NAN (1)\n");
+      exit (1);
+    }
+  mpfr_set_nan (x);
+  mpfr_clear_erangeflag ();
+  c = mpfr_cmp_ld (x, 2.0);
+  if (c != 0 || !mpfr_erangeflag_p ())
+    {
+      printf ("ERROR for NAN (2)\n");
+      exit (1);
+    }
+
+
   mpfr_clear(x);
 
   tests_end_mpfr ();