fixed issue when x=0 and y=Inf (or converse)

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

1 files changed, 4 insertions, 4 deletions

diff --git a/tests/tfms.c b/tests/tfms.c
index b8a7889ff..6ed9e53d0 100644
--- a/tests/tfms.c
+++ b/tests/tfms.c
@@ -488,22 +488,22 @@ main (int argc, char *argv[])
     }
 
   mpfr_set_inf (x, 1);
-  mpfr_urandomb (y, RANDS);
+  do mpfr_urandomb (y, RANDS); while (MPFR_IS_ZERO(y));
   mpfr_urandomb (z, RANDS);
   mpfr_fms (s, x, y, z, MPFR_RNDN);
   if (!mpfr_inf_p (s) || mpfr_sgn (s) < 0)
     {
-      printf ("evaluation of function in x=INF does not return INF\n");
+      printf ("evaluation of function at x=INF does not return INF\n");
       exit (1);
     }
 
   mpfr_set_inf (y, 1);
-  mpfr_urandomb (x, RANDS);
+  do mpfr_urandomb (x, RANDS); while (MPFR_IS_ZERO(x));
   mpfr_urandomb (z, RANDS);
   mpfr_fms (s, x, y, z, MPFR_RNDN);
   if (!mpfr_inf_p (s) || mpfr_sgn (s) < 0)
     {
-      printf ("evaluation of function in y=INF does not return INF\n");
+      printf ("evaluation of function at y=INF does not return INF\n");
       exit (1);
     }