diff options
| author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2003-01-23 13:16:00 +0000 |
|---|---|---|
| committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2003-01-23 13:16:00 +0000 |
| commit | d62553fbf3e2fc09b14e6785c3da6e46db53eb97 (patch) | |
| tree | f81b4becd65eb575119b8090805a7559f686997d /tests/tget_d.c | |
| parent | f4d7679b85dd9bd871a3d5a4a5907f9137d7b181 (diff) | |
| download | mpfr-d62553fbf3e2fc09b14e6785c3da6e46db53eb97.tar.gz | |
workaround for gcc bug on m68040-unknown-netbsd1.4.1
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@2218 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tget_d.c')
| -rw-r--r-- | tests/tget_d.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/tests/tget_d.c b/tests/tget_d.c index 93ad8ac33..081d4537d 100644 --- a/tests/tget_d.c +++ b/tests/tget_d.c @@ -35,15 +35,21 @@ check_denorms () { mp_rnd_t rnd_mode; mpfr_t x; - double d, d2, dd, f; + double d, d2, dd, f, dbl_min; int fail = 0, k, n; + /* workaround for gcc bug on m68040-unknown-netbsd1.4.1, + where DBL_MIN gives (1-2^(-52))/2^1022 */ + dbl_min = 1.0; + for (d = DBL_MIN; d < 0.9; d *= 2.0) + dbl_min /= 2.0; + mpfr_init2 (x, BITS_PER_MP_LIMB); rnd_mode = GMP_RNDN; for (k = -17; k <= 17; k += 2) { - d = (double) k * DBL_MIN; /* k * 2^(-1022) */ + d = (double) k * dbl_min; /* k * 2^(-1022) */ f = 1.0; mpfr_set_si (x, k, GMP_RNDN); mpfr_div_2exp (x, x, 1022, GMP_RNDN); /* k * 2^(-1022) */ |