diff options
author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2001-10-15 14:15:27 +0000 |
---|---|---|
committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2001-10-15 14:15:27 +0000 |
commit | 9c7cd58e47f4deed76f68556a5244f81b773d456 (patch) | |
tree | 111f331065acc80f6d95b076d6af27c48b6259e2 /tests/ttanh.c | |
parent | fff9b94f431903cff5c5af5811317588fde315d5 (diff) | |
download | mpfr-9c7cd58e47f4deed76f68556a5244f81b773d456.tar.gz |
now use tgeneric.c
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1259 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/ttanh.c')
-rw-r--r-- | tests/ttanh.c | 63 |
1 files changed, 2 insertions, 61 deletions
diff --git a/tests/ttanh.c b/tests/ttanh.c index 1b82f208a..52d60b159 100644 --- a/tests/ttanh.c +++ b/tests/ttanh.c @@ -26,71 +26,12 @@ MA 02111-1307, USA. */ #include <mpfr.h> #define TEST_FUNCTION mpfr_tanh +#include "tgeneric.c" int main (int argc, char *argv[]) { - unsigned int prec, err, yprec, n, p0 = 1, p1 = 100, N = 100; - mp_rnd_t rnd; - mpfr_t x, y, z, t; - - mpfr_init (x); - mpfr_init (y); - mpfr_init (z); - mpfr_init (t); - - /* ttanh prec - perform one random computation with precision prec */ - if (argc >= 2) - { - p0 = p1 = atoi (argv[1]); - N = 1; - } - - for (prec = p0; prec <= p1; prec++) - { - mpfr_set_prec (x, prec); - mpfr_set_prec (z, prec); - mpfr_set_prec (t, prec); - yprec = prec + 10; - - for (n=0; n<N; n++) - { - mpfr_random (x); - if (random() % 2) - mpfr_neg (x, x, GMP_RNDN); - rnd = random () % 4; - mpfr_set_prec (y, yprec); - TEST_FUNCTION (y, x, rnd); - err = (rnd == GMP_RNDN) ? yprec + 1 : yprec; - if (mpfr_can_round (y, err, rnd, rnd, prec)) - { - mpfr_set (t, y, rnd); - TEST_FUNCTION (z, x, rnd); - if (mpfr_cmp (t, z)) - { - printf ("results differ for x="); - mpfr_out_str (stdout, 2, prec, x, GMP_RNDN); - printf (" prec=%u rnd_mode=%s\n", prec, - mpfr_print_rnd_mode (rnd)); - printf (" got "); - mpfr_out_str (stdout, 2, prec, z, GMP_RNDN); - putchar ('\n'); - printf (" expected "); - mpfr_out_str (stdout, 2, prec, t, GMP_RNDN); - putchar ('\n'); - printf (" approximation was "); - mpfr_print_raw (y); - putchar ('\n'); - exit (1); - } - } - } - } - - mpfr_clear (x); - mpfr_clear (y); - mpfr_clear (z); - mpfr_clear (t); + test_generic (1, 100, 100); return 0; } |