diff options
| author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-09-28 14:14:42 +0000 |
|---|---|---|
| committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-09-28 14:14:42 +0000 |
| commit | a573a476f751b595a9404b0909be735f88845a61 (patch) | |
| tree | b9e33db6410944d6f2e2300db6c3102ad3bd6e1c /tests/tlngamma.c | |
| parent | 2b88e4f7081d612896a4cf94b3f4e3bf01921520 (diff) | |
| download | mpfr-a573a476f751b595a9404b0909be735f88845a61.tar.gz | |
fixed infinite loop for lngamma(2)
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@3871 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tlngamma.c')
| -rw-r--r-- | tests/tlngamma.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/tlngamma.c b/tests/tlngamma.c index a4e421ba3..3e012091c 100644 --- a/tests/tlngamma.c +++ b/tests/tlngamma.c @@ -93,6 +93,14 @@ special (void) exit (1); } + mpfr_set_ui (x, 2, GMP_RNDN); + mpfr_lngamma (y, x, GMP_RNDN); + if (mpfr_cmp_ui (y, 0)) + { + printf ("Error for lngamma(2)\n"); + exit (1); + } + mpfr_set_prec (x, 53); mpfr_set_prec (y, 53); |