diff options
author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2002-10-17 15:13:09 +0000 |
---|---|---|
committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2002-10-17 15:13:09 +0000 |
commit | af5c5e5d327c3b04cade0eee40f0e16d040d3bf7 (patch) | |
tree | 88353ac54dd1b515f268c3b60ceec2dfed5a13ff /tests/tset_ld.c | |
parent | 9a666991314a678039f4a3c8addba8d2c3f731bb (diff) | |
download | mpfr-af5c5e5d327c3b04cade0eee40f0e16d040d3bf7.tar.gz |
added one test (2^1024)
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@2052 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tset_ld.c')
-rw-r--r-- | tests/tset_ld.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/tset_ld.c b/tests/tset_ld.c index 44fb820d3..a6eeac6fe 100644 --- a/tests/tset_ld.c +++ b/tests/tset_ld.c @@ -60,6 +60,7 @@ int main (int argc, char *argv[]) { long double d, e; + double f; mpfr_t x; int i; @@ -98,6 +99,12 @@ main (int argc, char *argv[]) check_set_get (d, x); check_set_get (-d, x); + /* checks 2^1024 */ + f = 1.3407807929942597100e155; /* 2^512 */ + d = (long double) f; + d = d * d; /* 2^1024 */ + check_set_get (d, x); + /* checks that 2^i, 2^i+1 and 2^i-1 are correctly converted */ d = 1.0; for (i=1; i<=113; i++) |