tfma.c: check NaN in test_overflow2.

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

1 files changed, 13 insertions, 1 deletions

diff --git a/tests/tfma.c b/tests/tfma.c
index 346cc527c..d50037a12 100644
--- a/tests/tfma.c
+++ b/tests/tfma.c
@@ -145,7 +145,19 @@ test_overflow2 (void)
                     overflow);
             err = 1;
           }
-        if (MPFR_SIGN (r) >= 0)
+        if (mpfr_nanflag_p ())
+          {
+            printf ("Error in test_overflow2 (i = %d, %s): NaN flag should"
+                    " not be set\n", i, mpfr_print_rnd_mode (rnd));
+            err = 1;
+          }
+        if (mpfr_nan_p (r))
+          {
+            printf ("Error in test_overflow2 (i = %d, %s): got NaN\n",
+                    i, mpfr_print_rnd_mode (rnd));
+            err = 1;
+          }
+        else if (MPFR_SIGN (r) >= 0)
           {
             printf ("Error in test_overflow2 (i = %d, %s): wrong sign ",
                     "(+ instead of -)\n", i, mpfr_print_rnd_mode (rnd));