fix for RNDF

git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/branches/faithful@10486 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 4 insertions, 1 deletions

diff --git a/tests/tfmma.c b/tests/tfmma.c
index c45995a57..b510a0c78 100644
--- a/tests/tfmma.c
+++ b/tests/tfmma.c
@@ -263,7 +263,7 @@ overflow_tests (void)
       set_emax (emax);
       exp_a = emax/2 + 32;
 
-      rnd = RND_RAND ();
+      do rnd = RND_RAND (); while (rnd == MPFR_RNDF);
       prec_a = 64 + randlimb () % 100;
       prec_z = MPFR_PREC_MIN + randlimb () % 160;
 
@@ -347,6 +347,9 @@ overflow_tests (void)
           mpfr_dump (z2);
           printf ("  with inex = %d, flags =", inex2);
           flags_out (flags2);
+          printf ("a="); mpfr_dump (a);
+          printf ("c="); mpfr_dump (c);
+          printf ("d="); mpfr_dump (d);
           exit (1);
         }