diff options
| author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2007-11-21 14:50:18 +0000 |
|---|---|---|
| committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2007-11-21 14:50:18 +0000 |
| commit | 122ef7e94a65731793bcbb3dcd17ba658b86a32a (patch) | |
| tree | 41c53cd7b5ef07dc6693d4569ebb93b9fded310e /tests/tzeta.c | |
| parent | 5cda8158a3dacfdb60fed134e92e9d2f7752c980 (diff) | |
| download | mpfr-122ef7e94a65731793bcbb3dcd17ba658b86a32a.tar.gz | |
tests/tzeta.c: completed test of mpfr_zeta bug fixed in r4920 (the value
of zeta(large negative) was also wrong in GMP_RNDU: -Inf instead of the
largest negative MPFR number).
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@4969 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tzeta.c')
| -rw-r--r-- | tests/tzeta.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/tzeta.c b/tests/tzeta.c index c978bee59..8190f5b28 100644 --- a/tests/tzeta.c +++ b/tests/tzeta.c @@ -387,7 +387,11 @@ main (int argc, char *argv[]) mpfr_set_prec (z, 128); mpfr_set_str_binary (s, "-0.1000000000000000000000000000000000000000000000000000000000000001E64"); inex = mpfr_zeta (z, s, GMP_RNDN); - MPFR_ASSERTN(mpfr_inf_p (z) && MPFR_SIGN(z) < 0 && inex < 0); + MPFR_ASSERTN (mpfr_inf_p (z) && MPFR_SIGN (z) < 0 && inex < 0); + inex = mpfr_zeta (z, s, GMP_RNDU); + mpfr_set_inf (s, -1); + mpfr_nextabove (s); + MPFR_ASSERTN (mpfr_equal_p (z, s) && inex > 0); mpfr_clear (s); mpfr_clear (y); |