summaryrefslogtreecommitdiff
path: root/tests/ttan.c
diff options
context:
space:
mode:
authorvlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2002-04-07 00:38:47 +0000
committervlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2002-04-07 00:38:47 +0000
commit9bf7d0a9a20f36a151c75442f5d40e29b1f8f959 (patch)
tree8ef85d212aed286d03a33cecb0f35e5d1d57497b /tests/ttan.c
parent2c1213f578f342a6dd42d797ad292cb8da9154d0 (diff)
downloadmpfr-9bf7d0a9a20f36a151c75442f5d40e29b1f8f959.tar.gz
mpfr_get_d -> mpfr_get_d1 and mpfr_get_d2 -> mpfr_get_d.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1825 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/ttan.c')
-rw-r--r--tests/ttan.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/ttan.c b/tests/ttan.c
index da9b7c727..627bc6201 100644
--- a/tests/ttan.c
+++ b/tests/ttan.c
@@ -38,11 +38,11 @@ check53 (double x, double tan_x, mp_rnd_t rnd_mode)
mpfr_init2 (s, 53);
mpfr_set_d (xx, x, rnd_mode); /* should be exact */
mpfr_tan (s, xx, rnd_mode);
- if (mpfr_get_d (s) != tan_x && (!isnan(tan_x) || !mpfr_nan_p(s))) {
+ if (mpfr_get_d1 (s) != tan_x && (!isnan(tan_x) || !mpfr_nan_p(s))) {
fprintf (stderr, "mpfr_tan failed for x=%1.20e, rnd=%s\n", x,
mpfr_print_rnd_mode (rnd_mode));
fprintf (stderr, "mpfr_tan gives tan(x)=%1.20e, expected %1.20e\n",
- mpfr_get_d (s), tan_x);
+ mpfr_get_d1 (s), tan_x);
exit(1);
}
mpfr_clear (xx);
@@ -71,10 +71,10 @@ main(int argc, char *argv[])
mpfr_set_prec (x, 2);
mpfr_set_d (x, 0.5, GMP_RNDN);
mpfr_tan (x, x, GMP_RNDD);
- if (mpfr_get_d (x) != 0.5)
+ if (mpfr_get_d1 (x) != 0.5)
{
fprintf (stderr, "mpfr_tan(0.5, GMP_RNDD) failed\n");
- fprintf (stderr, "expected 0.5, got %f\n", mpfr_get_d (x));
+ fprintf (stderr, "expected 0.5, got %f\n", mpfr_get_d1 (x));
exit (1);
}