sign of sin(-1) was not set

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

1 files changed, 3 insertions, 2 deletions

diff --git a/asin.c b/asin.c
index 6d22ae3d0..eb1b0f75a 100644
--- a/asin.c
+++ b/asin.c
@@ -61,7 +61,7 @@ mpfr_asin (mpfr_ptr asin, mpfr_srcptr x, mp_rnd_t rnd_mode)
   if (compared > 0) /* asin(x) = NaN for |x| > 1 */
     {
       MPFR_SET_NAN(asin);
-      mpfr_clear(xp);
+      mpfr_clear (xp);
       MPFR_RET_NAN;
     }
 
@@ -76,9 +76,10 @@ mpfr_asin (mpfr_ptr asin, mpfr_srcptr x, mp_rnd_t rnd_mode)
           else if (rnd_mode == GMP_RNDD)
             rnd_mode = GMP_RNDU;
           mpfr_const_pi (asin, rnd_mode);
+          mpfr_neg (asin, asin, rnd_mode);
         }
       MPFR_EXP(asin)--;
-      mpfr_clear(xp);
+      mpfr_clear (xp);
       return 1; /* inexact */
     }