diff options
| author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2004-02-12 16:08:00 +0000 |
|---|---|---|
| committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2004-02-12 16:08:00 +0000 |
| commit | 8e8b860662e5c1606905a619b12517e9a710ddfb (patch) | |
| tree | 13824d0f01d260f5b58f96b2c26600b88068a43d /tests/tfrac.c | |
| parent | 147c6bd2bcdcb18f4c7f042f21df28c6a5d45981 (diff) | |
| download | mpfr-8e8b860662e5c1606905a619b12517e9a710ddfb.tar.gz | |
improved cov. test
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@2692 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tfrac.c')
| -rw-r--r-- | tests/tfrac.c | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/tests/tfrac.c b/tests/tfrac.c index 67f2c7128..478e194f1 100644 --- a/tests/tfrac.c +++ b/tests/tfrac.c @@ -133,8 +133,19 @@ special (void) { mpfr_t z, t; - mpfr_init2 (z, 6); - mpfr_init2 (t, 3); + mpfr_init (z); + mpfr_init (t); + + mpfr_set_nan (z); + mpfr_frac (t, z, GMP_RNDN); + if (!mpfr_nan_p (t)) + { + printf ("Error for frac(NaN)\n"); + exit (1); + } + + mpfr_set_prec (z, 6); + mpfr_set_prec (t, 3); mpfr_set_str_binary (z, "0.101101E3"); mpfr_frac (t, z, GMP_RNDN); |