diff options
author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2004-09-29 16:05:01 +0000 |
---|---|---|
committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2004-09-29 16:05:01 +0000 |
commit | e915499c43740f5b8df672536c791d7391921a32 (patch) | |
tree | 7759060a1ac2d77b4d9c7a8eb6b7ef7be9f0fcab | |
parent | f2af580a8d5f41bc8fdebf7209c5a2959c83efc6 (diff) | |
download | mpfr-e915499c43740f5b8df672536c791d7391921a32.tar.gz |
added worst-case
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@3011 280ebfd0-de03-0410-8827-d642c229c3f4
-rw-r--r-- | tests/tget_str.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/tget_str.c b/tests/tget_str.c index e89792c14..c8d13bbaa 100644 --- a/tests/tget_str.c +++ b/tests/tget_str.c @@ -229,6 +229,17 @@ check_small (void) } mpfr_free_str (s); + /* worst case found by Vincent Lefe`vre */ + mpfr_set_prec (x, 53); + mpfr_set_str_binary (x, "10011110111100000000001011011110101100010000011011111E164"); + s = mpfr_get_str (NULL, &e, 10, 17, x, GMP_RNDN); + if (strcmp (s, "13076622631878654") || (e != 66)) + { + printf ("Error in mpfr_get_str (7): s=%s e=%d\n", s, (int) e); + exit (1); + } + mpfr_free_str (s); + mpfr_set_prec (x, 45); mpfr_set_str_binary (x, "1E45"); s = mpfr_get_str (NULL, &e, 32, 9, x, GMP_RNDN); |