diff options
| author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-09-28 14:28:19 +0000 |
|---|---|---|
| committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-09-28 14:28:19 +0000 |
| commit | 375c3db2fe2254b3bb697419468f00a21d83716d (patch) | |
| tree | 85b2b39ab7306120f0ef3188c95db7fc4ad3f99c /tests/tlngamma.c | |
| parent | a573a476f751b595a9404b0909be735f88845a61 (diff) | |
| download | mpfr-375c3db2fe2254b3bb697419468f00a21d83716d.tar.gz | |
Test the sign of 0.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@3872 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tlngamma.c')
| -rw-r--r-- | tests/tlngamma.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/tlngamma.c b/tests/tlngamma.c index 3e012091c..58131acd3 100644 --- a/tests/tlngamma.c +++ b/tests/tlngamma.c @@ -79,7 +79,7 @@ special (void) mpfr_set_ui (x, 1, GMP_RNDN); mpfr_lngamma (y, x, GMP_RNDN); - if (mpfr_cmp_ui (y, 0)) + if (mpfr_cmp_ui (y, 0) || MPFR_IS_NEG (y)) { printf ("Error for lngamma(1)\n"); exit (1); @@ -95,7 +95,7 @@ special (void) mpfr_set_ui (x, 2, GMP_RNDN); mpfr_lngamma (y, x, GMP_RNDN); - if (mpfr_cmp_ui (y, 0)) + if (mpfr_cmp_ui (y, 0) || MPFR_IS_NEG (y)) { printf ("Error for lngamma(2)\n"); exit (1); |