diff options
author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2002-04-07 00:38:47 +0000 |
---|---|---|
committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2002-04-07 00:38:47 +0000 |
commit | 9bf7d0a9a20f36a151c75442f5d40e29b1f8f959 (patch) | |
tree | 8ef85d212aed286d03a33cecb0f35e5d1d57497b /tests/ttan.c | |
parent | 2c1213f578f342a6dd42d797ad292cb8da9154d0 (diff) | |
download | mpfr-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.c | 8 |
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); } |