tests/tset_ld.c: Add test case for the bug fixed with r6101.

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

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/tset_ld.c b/tests/tset_ld.c
index ab5636dbe..c136d422e 100644
--- a/tests/tset_ld.c
+++ b/tests/tset_ld.c
@@ -144,6 +144,21 @@ test_small (void)
   mpfr_clear (z);
 }
 
+static void
+test_fixed_bugs (void)
+{
+  mpfr_t x;
+  long double d;
+  long e;
+
+  /* bug found by Steve Kargl (2009-03-14) */
+  mpfr_init2 (x, 64);
+  mpfr_set_ui_2exp (x, 1, -16447, MPFR_RNDN);
+  d = mpfr_get_ld (x, MPFR_RNDN);  /* an assertion failed in init2.c:50 */
+
+  mpfr_clear (x);
+}
+
 int
 main (int argc, char *argv[])
 {
@@ -163,6 +178,7 @@ main (int argc, char *argv[])
 #endif
 
   check_gcc33_bug ();
+  test_fixed_bugs ();
 
   tests_start_mpfr ();
   mpfr_test_init ();