Case where argument < 0 included, NR 17-04-2001

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

1 files changed, 6 insertions, 0 deletions

diff --git a/log.c b/log.c
index 726a7bd5b..c15e1e2ab 100644
--- a/log.c
+++ b/log.c
@@ -64,6 +64,12 @@ mpfr_log (r, a, rnd_mode)
     return 1;
   }
 
+  /* If a is negative, the result is NaN */
+  if (MPFR_ISNEG(a)) {
+    MPFR_SET_NAN(r);
+    return 1;
+  }
+
   MPFR_CLEAR_NAN(r);
 
   /* check for infinity before zero */