diff options
author | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-05-17 15:37:02 +0000 |
---|---|---|
committer | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-05-17 15:37:02 +0000 |
commit | 8b5687406dac564c196ad5da1f87bccbf8bb0e34 (patch) | |
tree | b07b12920fdeeb1d497889599cb4bd7f597c3e1a /tests/tsinh.c | |
parent | 3638a824af3424935368b89c842209c5fc3857d8 (diff) | |
download | mpfr-8b5687406dac564c196ad5da1f87bccbf8bb0e34.tar.gz |
Fix bug of overflow.
Still a problem if exp(x) is near the limit of EMAX_MAX.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@3580 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tsinh.c')
-rw-r--r-- | tests/tsinh.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/tsinh.c b/tests/tsinh.c index 153c0e899..652adee16 100644 --- a/tests/tsinh.c +++ b/tests/tsinh.c @@ -60,9 +60,12 @@ special (void) mpfr_set_str_binary (x, "1E1000000000"); mpfr_sinh (x, x, GMP_RNDN); MPFR_ASSERTN (MPFR_IS_INF (x) && MPFR_SIGN (x) > 0); + MPFR_ASSERTN (mpfr_overflow_p ()); + mpfr_clear_underflow (); mpfr_set_str_binary (x, "-1E1000000000"); mpfr_sinh (x, x, GMP_RNDN); MPFR_ASSERTN (MPFR_IS_INF (x) && MPFR_SIGN (x) < 0); + MPFR_ASSERTN (mpfr_overflow_p () && !mpfr_underflow_p ()); mpfr_clear (x); } |