fixed 2 bugs and added test

git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@2743 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 13 insertions, 0 deletions

diff --git a/tests/tset_f.c b/tests/tset_f.c
index e361e6b0d..8d4544971 100644
--- a/tests/tset_f.c
+++ b/tests/tset_f.c
@@ -71,6 +71,19 @@ main (void)
       exit (1);
     }
 
+  mpf_set_prec (y, 300);
+  mpf_set_str (y, "1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111", -2);
+  mpf_mul_2exp (y, y, 600);
+  mpfr_set_prec (x, 300);
+  mpfr_set_f (x, y, GMP_RNDN);
+  if (mpfr_check (x) == 0)
+    {
+      printf ("Error in mpfr_set_f: corrupted result\n");
+      mpfr_dump (x);
+      exit (1);
+    }
+  MPFR_ASSERTN(mpfr_cmp_ui_2exp (x, 1, 901) == 0);
+
   mpfr_clear (u);
 
   for (k = 1; k <= 100000; k++)