[tests/t*random*.c]

  * Replaced some fprintf with stderr by printf (but not those
    concerning memory allocation errors).
  * Do bitwise operations in unsigned arithmetic.
  * Formatting.

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

1 files changed, 13 insertions, 17 deletions

diff --git a/tests/trandom_deviate.c b/tests/trandom_deviate.c
index 529b88891..0e26ea236 100644
--- a/tests/trandom_deviate.c
+++ b/tests/trandom_deviate.c
@@ -72,8 +72,7 @@ test_compare (long nbtests, int verbose)
           t2 = mpfr_random_deviate_less (u, v, RANDS);
           if (t1 != t2)
             {
-              fprintf (stderr,
-                       "Error: mpfr_random_deviate_less() inconsistent.\n");
+              printf ("Error: mpfr_random_deviate_less() inconsistent.\n");
               exit (1);
             }
           if (t1)
@@ -84,14 +83,13 @@ test_compare (long nbtests, int verbose)
       t1 = mpfr_random_deviate_less (u, u, RANDS);
       if (t1)
         {
-          fprintf (stderr, "Error: mpfr_random_deviate_less() gives u < u.\n");
+          printf ("Error: mpfr_random_deviate_less() gives u < u.\n");
           exit (1);
         }
       t1 = mpfr_random_deviate_tstbit (u, 0, RANDS);
       if (t1)
         {
-          fprintf (stderr,
-                   "Error: mpfr_random_deviate_tstbit() says 1 bit is on.\n");
+          printf ("Error: mpfr_random_deviate_tstbit() says 1 bit is on.\n");
           exit (1);
         }
     }
@@ -151,7 +149,7 @@ test_value_consistency (long nbtests)
               inexa2 == inexb2 && mpfr_equal_p (a2, b2) &&
               inexa3 == inexb3 && mpfr_equal_p (a3, b3) ) )
         {
-          fprintf (stderr, "Error: random_deviate values are inconsistent.\n");
+          printf ("Error: random_deviate values are inconsistent.\n");
           exit (1);
         }
     }
@@ -191,10 +189,9 @@ test_value_round (long nbtests, mpfr_prec_t prec)
               inexd     < 0 && inexu     > 0 &&
               inexz * s < 0 && inexa * s > 0 ) )
         {
-          fprintf (stderr, "n %d t %d d %d u %d z %d a %d s %d\n",
+          printf ("n %d t %d d %d u %d z %d a %d s %d\n",
                   inexn, inext, inexd, inexu, inexz, inexa, s);
-          fprintf (stderr,
-                   "Error: random_deviate has wrong values for inexact.\n");
+          printf ("Error: random_deviate has wrong values for inexact.\n");
           exit (1);
         }
       if (inexn < 0)
@@ -208,13 +205,13 @@ test_value_round (long nbtests, mpfr_prec_t prec)
               mpfr_equal_p(xz, SAME_SIGN(inexn, inexz) ? xn : t) &&
               mpfr_equal_p(xa, SAME_SIGN(inexn, inexa) ? xn : t) ) )
         {
-          fprintf (stderr, "n %d t %d d %d u %d z %d a %d s %d\n",
+          printf ("n %d t %d d %d u %d z %d a %d s %d\n",
                   inexn, inext, inexd, inexu, inexz, inexa, s);
-          fprintf (stderr, "n %.4f t %.4f d %.4f u %.4f z %.4f a %.4f\n",
-                   mpfr_get_d (xn, MPFR_RNDN), mpfr_get_d (t, MPFR_RNDN),
-                   mpfr_get_d (xd, MPFR_RNDN), mpfr_get_d (xu, MPFR_RNDN),
-                   mpfr_get_d (xz, MPFR_RNDN), mpfr_get_d (xa, MPFR_RNDN));
-          fprintf (stderr, "Error: random_deviate rounds inconsistently.\n");
+          printf ("n %.4f t %.4f d %.4f u %.4f z %.4f a %.4f\n",
+                  mpfr_get_d (xn, MPFR_RNDN), mpfr_get_d (t, MPFR_RNDN),
+                  mpfr_get_d (xd, MPFR_RNDN), mpfr_get_d (xu, MPFR_RNDN),
+                  mpfr_get_d (xz, MPFR_RNDN), mpfr_get_d (xa, MPFR_RNDN));
+          printf ("Error: random_deviate rounds inconsistently.\n");
           exit (1);
         }
     }
@@ -271,8 +268,7 @@ test_value (long nbtests, mpfr_prec_t prec, mpfr_rnd_t rnd,
         }
       if (exact)
         {
-          fprintf (stderr,
-                   "Error: random_deviate() returns a zero ternary value.\n");
+          printf ("Error: random_deviate() returns a zero ternary value.\n");
           exit (1);
         }
       mpfr_random_deviate_reset (u);