diff options
author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2017-12-20 20:28:49 +0000 |
---|---|---|
committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2017-12-20 20:28:49 +0000 |
commit | cbb10f58363f7a72f32bf70b2cf4cac6df140b5f (patch) | |
tree | ca8728411dec1d4707cc7069038f8db00a4269e6 /tests/tlngamma.c | |
parent | afba0f707ee32f09886c762054a0e676c8ad5b3f (diff) | |
download | mpfr-cbb10f58363f7a72f32bf70b2cf4cac6df140b5f.tar.gz |
[tests/tlngamma.c] added test for new failure
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@12030 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tlngamma.c')
-rw-r--r-- | tests/tlngamma.c | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/tlngamma.c b/tests/tlngamma.c index 88fd8b358..bbee1f718 100644 --- a/tests/tlngamma.c +++ b/tests/tlngamma.c @@ -284,12 +284,36 @@ bug20171220 (void) mpfr_clear (z); } +/* taway failing with GMP_CHECK_RANDOMIZE=1513888822 */ +static void +bug20171220a (void) +{ + mpfr_t x, y, z; + int inex; + + mpfr_init2 (x, 198); + mpfr_init2 (y, 1); + mpfr_init2 (z, 1); + + mpfr_set_str (x, "9.999962351340362288585900348170984233205352566408878552154832e-01", 10, MPFR_RNDN); + inex = mpfr_lngamma (y, x, MPFR_RNDA); + /* lngamma(x) ~ -18.81, should be rounded to -32 */ + mpfr_set_si (z, -32, MPFR_RNDN); + MPFR_ASSERTN(mpfr_equal_p (y, z)); + MPFR_ASSERTN(inex < 0); + + mpfr_clear (x); + mpfr_clear (y); + mpfr_clear (z); +} + int main (void) { tests_start_mpfr (); bug20171220 (); + bug20171220a (); special (); test_generic (MPFR_PREC_MIN, 100, 2); |