diff options
author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2007-07-20 16:11:15 +0000 |
---|---|---|
committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2007-07-20 16:11:15 +0000 |
commit | bd51be6f206ac602e8e2682b72b05a02416f2eb0 (patch) | |
tree | ac6ccf8a4cb0217e5ee20fe07aea381da020fdf2 /tests/tlgamma.c | |
parent | 4e7a9de434990ad6cb497ab843787fcbea382f46 (diff) | |
download | mpfr-bd51be6f206ac602e8e2682b72b05a02416f2eb0.tar.gz |
Added code to check mpfr against Gonnet's tables when the environment variable
MPFR_CHECK_ALL is defined (some table entries were checked by MuPAD)
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@4688 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tlgamma.c')
-rw-r--r-- | tests/tlgamma.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/tlgamma.c b/tests/tlgamma.c index 94604493b..55c5e851b 100644 --- a/tests/tlgamma.c +++ b/tests/tlgamma.c @@ -351,6 +351,14 @@ special (void) mpfr_clear (y); } +static int +mpfr_lgamma1 (mpfr_t y, mpfr_t x, mp_rnd_t r) +{ + int sign; + + return mpfr_lgamma (y, &sign, x, r); +} + int main (void) { @@ -359,6 +367,9 @@ main (void) special (); test_generic (2, 100, 2); + if (getenv ("MPFR_CHECK_ALL") != NULL) + data_check ("data/lgamma", mpfr_lgamma1, "mpfr_lgamma"); + tests_end_mpfr (); return 0; } |