mul.c: bug with underflow

mul.dat: added test discovering the bug


git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@952 211d60ee-9f03-0410-a15a-8952a2c7a4e4

1 files changed, 2 insertions, 2 deletions

diff --git a/src/mul.c b/src/mul.c
index 5a76601..bf8db43 100644
--- a/src/mul.c
+++ b/src/mul.c
@@ -306,11 +306,11 @@ mpfr_fmam (mpfr_ptr z, mpfr_srcptr a, mpfr_srcptr b, mpfr_srcptr c,
             mpfr_set_zero (z, signv);
             inex = -signv;
          }
-         else /* both exponents are equal */ if (mpfr_cmp (u, v) > 0) {
+         else /* both exponents are equal */ if (mpfr_cmpabs (u, v) > 0) {
             mpfr_set_zero (z, signu);
             inex = -signu;
          }
-         else if (mpfr_cmp (u, v) < 0) {
+         else if (mpfr_cmpabs (u, v) < 0) {
             mpfr_set_zero (z, signv);
             inex = -signv;
          }