fixed bug for negative even index in mpfr_jn (wrong sign)

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

1 files changed, 2 insertions, 1 deletions

diff --git a/jn.c b/jn.c
index d0100b0cf..2c689474a 100644
--- a/jn.c
+++ b/jn.c
@@ -164,7 +164,8 @@ mpfr_jn (mpfr_ptr res, long n, mpfr_srcptr z, mp_rnd_t r)
     }
   MPFR_ZIV_FREE (loop);
 
-  inex = (n >= 0) ? mpfr_set (res, s, r) : mpfr_neg (res, s, r);
+  inex = ((n >= 0) || ((n & 1) == 0)) ? mpfr_set (res, s, r)
+                                      : mpfr_neg (res, s, r);
 
   mpfr_clear (y);
   mpfr_clear (s);