From 326c0d1529d86c28a2559533e739d2be509f7500 Mon Sep 17 00:00:00 2001 From: zimmerma Date: Fri, 6 Apr 2018 16:19:29 +0000 Subject: [src/strtofr.c] added comment [tests/tstrtofr.c] improve coverage git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@12566 280ebfd0-de03-0410-8827-d642c229c3f4 --- tests/tstrtofr.c | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'tests/tstrtofr.c') diff --git a/tests/tstrtofr.c b/tests/tstrtofr.c index 1e0e1e169..d6d1d1e83 100644 --- a/tests/tstrtofr.c +++ b/tests/tstrtofr.c @@ -938,6 +938,20 @@ check_overflow (void) mpfr_dump (x); exit (1); } + mpfr_strtofr (x, "1@2305843009213693951", &s, 16, MPFR_RNDN); + if (s[0] != 0 || !MPFR_IS_INF (x) || !MPFR_IS_POS (x)) + { + printf ("Check overflow failed (8) with:\n s=%s\n x=", s); + mpfr_dump (x); + exit (1); + } + mpfr_strtofr (x, "1@2305843009213693951", &s, 17, MPFR_RNDN); + if (s[0] != 0 || !MPFR_IS_INF (x) || !MPFR_IS_POS (x)) + { + printf ("Check overflow failed (9) with:\n s=%s\n x=", s); + mpfr_dump (x); + exit (1); + } /* Check underflow */ mpfr_strtofr (x, "123456789E-2147483646", &s, 0, MPFR_RNDN); @@ -969,6 +983,13 @@ check_overflow (void) mpfr_dump (x); exit (1); } + mpfr_strtofr (x, "1@-2305843009213693952", &s, 16, MPFR_RNDN); + if (s[0] != 0 || !MPFR_IS_ZERO (x) || !MPFR_IS_POS (x) ) + { + printf ("Check underflow failed (8) with:\n s='%s'\n x=", s); + mpfr_dump (x); + exit (1); + } mpfr_clear (x); } -- cgit v1.2.1