diff options
| author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2016-01-20 21:08:21 +0000 |
|---|---|---|
| committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2016-01-20 21:08:21 +0000 |
| commit | ff36f1d47e357484551a5c3efac2d7ff63e747f5 (patch) | |
| tree | e25a5cea46006810ab31696b8e226bbbc35d1067 /tests/tsqrt.c | |
| parent | 7fa7007d5457a6d5160c6296b2777065a2470707 (diff) | |
| download | mpfr-ff36f1d47e357484551a5c3efac2d7ff63e747f5.tar.gz | |
fixed bug in mpfr_sqrt reported by Fredrik Johansson
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@9858 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tsqrt.c')
| -rw-r--r-- | tests/tsqrt.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/tsqrt.c b/tests/tsqrt.c index 2f0e03b2f..4c8e407c8 100644 --- a/tests/tsqrt.c +++ b/tests/tsqrt.c @@ -577,7 +577,12 @@ bug20160120 (void) mpfr_init2 (x, 361); mpfr_init2 (y, 64); - mpfr_set_str_binary (x, "0.111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111E0"); + mpfr_set_ui (x, 1, MPFR_RNDN); + mpfr_nextbelow (x); + mpfr_sqrt (y, x, MPFR_RNDN); + MPFR_ASSERTN(mpfr_cmp_ui (y, 1) == 0); + + mpfr_set_prec (y, 128); mpfr_sqrt (y, x, MPFR_RNDN); MPFR_ASSERTN(mpfr_cmp_ui (y, 1) == 0); |