fixed overflow/underflow problems in csch and sech

fixed problem for huge argument in coth


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

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/tcsch.c b/tests/tcsch.c
index 172625488..271666518 100644
--- a/tests/tcsch.c
+++ b/tests/tcsch.c
@@ -75,6 +75,22 @@ check_specials (void)
       exit (1);
     }
 
+  /* check huge x */
+  mpfr_set_str (x, "8e8", 10, GMP_RNDN);
+  mpfr_csch (y, x, GMP_RNDN);
+  if (! (mpfr_zero_p (y) && MPFR_SIGN (y) > 0))
+    {
+      printf ("Error: csch(8e8) != +0\n");
+      exit (1);
+    }
+  mpfr_set_str (x, "-8e8", 10, GMP_RNDN);
+  mpfr_csch (y, x, GMP_RNDN);
+  if (! (mpfr_zero_p (y) && MPFR_SIGN (y) < 0))
+    {
+      printf ("Error: csch(-8e8) != -0\n");
+      exit (1);
+    }
+
   mpfr_clear (x);
   mpfr_clear (y);
 }