From 8bd1c1d1a96af0cfb1d45439d3efe49667e4d633 Mon Sep 17 00:00:00 2001
From: vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>
Date: Mon, 26 Nov 2018 13:24:37 +0000
Subject: [tests/tset_str.c] Added bug20180908() test. (merged changesets
 r13164,13296 from the trunk, for the tests directory)

git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/branches/4.0@13297 280ebfd0-de03-0410-8827-d642c229c3f4
---
 tests/tset_str.c | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/tests/tset_str.c b/tests/tset_str.c
index 77c7c93bc..22da9bec0 100644
--- a/tests/tset_str.c
+++ b/tests/tset_str.c
@@ -93,6 +93,22 @@ bug20081028 (void)
   mpfr_clear (x);
 }
 
+static void
+bug20180908 (void)
+{
+  mpfr_t x, y;
+  const char s[] = "ssq4";
+
+  mpfr_init2 (x, 12);
+  mpfr_init2 (y, 12);
+  mpfr_set_str_binary (x, "0.100010111010E24");
+  /* x = 9150464 = [4, 52, 54, 54] in base 55 */
+  mpfr_set_str (y, s, 55, MPFR_RNDN);
+  MPFR_ASSERTN (mpfr_equal_p (x, y));
+  mpfr_clear (x);
+  mpfr_clear (y);
+}
+
 int
 main (int argc, char *argv[])
 {
@@ -844,6 +860,7 @@ main (int argc, char *argv[])
 
   check_underflow ();
   bug20081028 ();
+  bug20180908 ();
 
   tests_end_mpfr ();
   return 0;
-- 
cgit v1.2.1