diff options
Diffstat (limited to 'tests/tcos.c')
-rw-r--r-- | tests/tcos.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/tcos.c b/tests/tcos.c index 2a45de1d9..60963a879 100644 --- a/tests/tcos.c +++ b/tests/tcos.c @@ -38,12 +38,12 @@ check53 (double x, double cos_x, mp_rnd_t rnd_mode) mpfr_init2 (c, 53); mpfr_set_d (xx, x, rnd_mode); /* should be exact */ mpfr_cos (c, xx, rnd_mode); - if (mpfr_get_d (c) != cos_x && (!isnan(cos_x) || !mpfr_nan_p(c))) + if (mpfr_get_d1 (c) != cos_x && (!isnan(cos_x) || !mpfr_nan_p(c))) { fprintf (stderr, "mpfr_cos failed for x=%1.20e, rnd=%s\n", x, mpfr_print_rnd_mode (rnd_mode)); fprintf (stderr, "mpfr_cos gives cos(x)=%1.20e, expected %1.20e\n", - mpfr_get_d (c), cos_x); + mpfr_get_d1 (c), cos_x); exit (1); } mpfr_clear (xx); |