diff options
| author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2019-07-22 10:29:09 +0000 |
|---|---|---|
| committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2019-07-22 10:29:09 +0000 |
| commit | 653554ba344be0b3264ee64985e216c7688c9308 (patch) | |
| tree | 54c5b1da44e8315e7da39cc60232335db6188614 /tests/tget_set_d64.c | |
| parent | feca79c57e3bd1bc08c377e683d23a2afed42baf (diff) | |
| download | mpfr-653554ba344be0b3264ee64985e216c7688c9308.tar.gz | |
[tests/tget_set_d64.c] Improved the noncanonical test, but this does not
solve the failure with gcc-snapshot.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@13531 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tget_set_d64.c')
| -rw-r--r-- | tests/tget_set_d64.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/tget_set_d64.c b/tests/tget_set_d64.c index a25f23353..ab2cc32f0 100644 --- a/tests/tget_set_d64.c +++ b/tests/tget_set_d64.c @@ -487,9 +487,11 @@ noncanonical (void) union mpfr_ieee_double_extract x; union ieee_double_decimal64 y; + MPFR_ASSERTN (sizeof (x) == 8); + MPFR_ASSERTN (sizeof (y) == 8); /* test for non-canonical encoding */ y.d64 = 9999999999999999.0dd; - x.d = y.d; + memcpy (&x, &y, 8); /* if BID, we have sig=0, exp=1735, manh=231154, manl=1874919423 */ if (x.s.sig == 0 && x.s.exp == 1735 && x.s.manh == 231154 && x.s.manl == 1874919423) @@ -497,7 +499,7 @@ noncanonical (void) mpfr_t z; mpfr_init2 (z, 54); /* 54 bits ensure z is exact, since 10^16 < 2^54 */ x.s.manl += 1; /* then the significand equals 10^16 */ - y.d = x.d; + memcpy (&y, &x, 8); mpfr_set_decimal64 (z, y.d64, MPFR_RNDN); /* Fails with r13530 and gcc (Debian 20190719-1) 10.0.0 20190718 (experimental) [trunk revision 273586] */ @@ -509,6 +511,8 @@ noncanonical (void) } mpfr_clear (z); } + else + printf ("Warning! Unexpected value of x in noncanonical.\n"); #endif } |