Changed the remaining stderr to stdout.

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

1 files changed, 122 insertions, 117 deletions

diff --git a/tests/tcmp2.c b/tests/tcmp2.c
index 220b1c5a3..5331263f2 100644
--- a/tests/tcmp2.c
+++ b/tests/tcmp2.c
@@ -66,26 +66,26 @@ worst_cases (void)
 
       l = 0;
       if (mpfr_cmp2 (x, y, &l) <= 0 || l != 1)
-	{
-	  fprintf (stderr, "Error in mpfr_cmp2:\nx=");
-	  mpfr_out_str (stderr, 2, 0, x, GMP_RNDN);
-	  fprintf (stderr, "\ny=");
-	  mpfr_out_str (stderr, 2, 0, y, GMP_RNDN);
-	  fprintf (stderr, "\ngot %lu instead of %u\n", l, 1);
-	  exit(1);
-	}
+        {
+          printf ("Error in mpfr_cmp2:\nx=");
+          mpfr_out_str (stdout, 2, 0, x, GMP_RNDN);
+          printf ("\ny=");
+          mpfr_out_str (stdout, 2, 0, y, GMP_RNDN);
+          printf ("\ngot %lu instead of %u\n", l, 1);
+          exit (1);
+        }
 
       mpfr_add (x, x, y, GMP_RNDN); /* x = 1 + 1/2^i */
       l = 0;
       if (mpfr_cmp2 (x, y, &l) <= 0 || l != 0)
-	{
-	  fprintf (stderr, "Error in mpfr_cmp2:\nx=");
-	  mpfr_out_str (stderr, 2, 0, x, GMP_RNDN);
-	  fprintf (stderr, "\ny=");
-	  mpfr_out_str (stderr, 2, 0, y, GMP_RNDN);
-	  fprintf (stderr, "\ngot %lu instead of %u\n", l, 0);
-	  exit(1);
-	}
+        {
+          printf ("Error in mpfr_cmp2:\nx=");
+          mpfr_out_str (stdout, 2, 0, x, GMP_RNDN);
+          printf ("\ny=");
+          mpfr_out_str (stdout, 2, 0, y, GMP_RNDN);
+          printf ("\ngot %lu instead of %u\n", l, 0);
+          exit (1);
+        }
     }
 
   for (i=0; i<64; i++) /* |u| = i */
@@ -95,47 +95,45 @@ worst_cases (void)
       set_bit (x, i + 1, 1);
       set_bit (y, i + 1, 0);
       for (j=0; j<64; j++) /* |v| = j */
-	{
-	  b = randlimb () % 2;
-	  set_bit (x, i + j + 2, b);
-	  set_bit (y, i + j + 2, b);
-
+        {
+          b = randlimb () % 2;
+          set_bit (x, i + j + 2, b);
+          set_bit (y, i + j + 2, b);
 	  for (k=0; k<64; k++)
-	    {
-
-	      if (k) set_bit (x, i + j + k + 1, 0);
-	      if (k) set_bit (y, i + j + k + 1, 1);
-
-	      set_bit (x, i + j + k + 2, 1);
-	      set_bit (y, i + j + k + 2, 0);
-	      l = 0; mpfr_cmp2 (x, y, &l);
-	      expected = i + j + k + 1;
-	      if (l != expected)
-		{
-		  fprintf (stderr, "Error in mpfr_cmp2:\nx=");
-		  mpfr_out_str (stderr, 2, 0, x, GMP_RNDN);
-		  fprintf (stderr, "\ny=");
-		  mpfr_out_str (stderr, 2, 0, y, GMP_RNDN);
-		  fprintf (stderr, "\ngot %lu instead of %u\n", l, expected);
-		  exit(1);
-		}
-
-	      set_bit (x, i + j + k + 2, 0);
-	      set_bit (x, i + j + k + 3, 0);
-	      set_bit (y, i + j + k + 3, 1);
-	      l = 0; mpfr_cmp2 (x, y, &l);
-	      expected = i + j + k + 2;
-	      if (l != expected)
-		{
-		  fprintf (stderr, "Error in mpfr_cmp2:\nx=");
-		  mpfr_out_str (stderr, 2, 0, x, GMP_RNDN);
-		  fprintf (stderr, "\ny=");
-		  mpfr_out_str (stderr, 2, 0, y, GMP_RNDN);
-		  fprintf (stderr, "\ngot %lu instead of %u\n", l, expected);
-		  exit(1);
-		}
-	    }
-	}
+            {
+              if (k)
+                set_bit (x, i + j + k + 1, 0);
+              if (k)
+                set_bit (y, i + j + k + 1, 1);
+              set_bit (x, i + j + k + 2, 1);
+              set_bit (y, i + j + k + 2, 0);
+              l = 0; mpfr_cmp2 (x, y, &l);
+              expected = i + j + k + 1;
+              if (l != expected)
+                {
+                  printf ("Error in mpfr_cmp2:\nx=");
+                  mpfr_out_str (stdout, 2, 0, x, GMP_RNDN);
+                  printf ("\ny=");
+                  mpfr_out_str (stdout, 2, 0, y, GMP_RNDN);
+                  printf ("\ngot %lu instead of %u\n", l, expected);
+                  exit (1);
+                }
+              set_bit (x, i + j + k + 2, 0);
+              set_bit (x, i + j + k + 3, 0);
+              set_bit (y, i + j + k + 3, 1);
+              l = 0; mpfr_cmp2 (x, y, &l);
+              expected = i + j + k + 2;
+              if (l != expected)
+                {
+                  printf ("Error in mpfr_cmp2:\nx=");
+                  mpfr_out_str (stdout, 2, 0, x, GMP_RNDN);
+                  printf ("\ny=");
+                  mpfr_out_str (stdout, 2, 0, y, GMP_RNDN);
+                  printf ("\ngot %lu instead of %u\n", l, expected);
+                  exit (1);
+                }
+            }
+        }
     }
 
   mpfr_clear (x);
@@ -154,7 +152,7 @@ tcmp2 (double x, double y, int i)
         i = 53;
       else
         i = (int) (__gmpfr_floor_log2 (x) - __gmpfr_floor_log2 (x - y));
-  }
+    }
   mpfr_init2(xx, 53); mpfr_init2(yy, 53);
   mpfr_set_d (xx, x, GMP_RNDN);
   mpfr_set_d (yy, y, GMP_RNDN);
@@ -163,22 +161,23 @@ tcmp2 (double x, double y, int i)
     {
       if (x != y)
         {
-          fprintf (stderr, "Error in mpfr_cmp2 for\nx=");
-          mpfr_out_str (stderr, 2, 0, xx, GMP_RNDN);
-          fprintf (stderr, "\ny=");
-          mpfr_out_str (stderr, 2, 0, yy, GMP_RNDN);
-          fprintf (stderr, "\ngot sign 0 for x != y\n");
-          exit(1);
+          printf ("Error in mpfr_cmp2 for\nx=");
+          mpfr_out_str (stdout, 2, 0, xx, GMP_RNDN);
+          printf ("\ny=");
+          mpfr_out_str (stdout, 2, 0, yy, GMP_RNDN);
+          printf ("\ngot sign 0 for x != y\n");
+          exit (1);
         }
     }
-  else if (j != i) {
-    fprintf (stderr, "Error in mpfr_cmp2 for\nx=");
-    mpfr_out_str (stderr, 2, 0, xx, GMP_RNDN);
-    fprintf (stderr, "\ny=");
-    mpfr_out_str (stderr, 2, 0, yy, GMP_RNDN);
-    fprintf (stderr, "\ngot %lu instead of %u\n", j, i);
-    exit(1);
-  }
+  else if (j != i)
+    {
+      printf ("Error in mpfr_cmp2 for\nx=");
+      mpfr_out_str (stdout, 2, 0, xx, GMP_RNDN);
+      printf ("\ny=");
+      mpfr_out_str (stdout, 2, 0, yy, GMP_RNDN);
+      printf ("\ngot %lu instead of %u\n", j, i);
+      exit (1);
+    }
   mpfr_clear(xx); mpfr_clear(yy);
 }
 
@@ -196,80 +195,86 @@ special (void)
   mpfr_set_str_raw (x, "0.10000000000000000000000000000000000001110010010110100110011110000E1");
   mpfr_set_str_raw (y, "0.11100100101101001100111011111111110001101001000011101001001010010E-35");
   j = 0;
-  if (mpfr_cmp2 (x, y, &j) <= 0 || j != 1) {
-    printf ("Error in mpfr_cmp2:\n");
-    printf ("x=");
-    mpfr_print_binary (x);
-    puts ("");
-    printf ("y=");
-    mpfr_print_binary (y);
-    puts ("");
-    printf ("got %lu, expected 1\n", j);
-    exit (1);
-  }
+  if (mpfr_cmp2 (x, y, &j) <= 0 || j != 1)
+    {
+      printf ("Error in mpfr_cmp2:\n");
+      printf ("x=");
+      mpfr_print_binary (x);
+      puts ("");
+      printf ("y=");
+      mpfr_print_binary (y);
+      puts ("");
+      printf ("got %lu, expected 1\n", j);
+      exit (1);
+    }
 
   mpfr_set_prec(x, 127); mpfr_set_prec(y, 127);
   mpfr_set_str_raw(x, "0.1011010000110111111000000101011110110001000101101011011110010010011110010000101101000010011001100110010000000010110000101000101E6");
   mpfr_set_str_raw(y, "0.1011010000110111111000000101011011111100011101000011001111000010100010100110110100110010011001100110010000110010010110000010110E6");
   j = 0;
-  if (mpfr_cmp2(x, y, &j) <= 0 || j != 32) {
-    printf("Error in mpfr_cmp2:\n");
-    printf("x="); mpfr_print_binary(x); puts ("");
-    printf("y="); mpfr_print_binary(y); puts ("");
-    printf("got %lu, expected 32\n", j);
-    exit(1);
-  }
+  if (mpfr_cmp2(x, y, &j) <= 0 || j != 32)
+    {
+      printf ("Error in mpfr_cmp2:\n");
+      printf ("x="); mpfr_print_binary(x); puts ("");
+      printf ("y="); mpfr_print_binary(y); puts ("");
+      printf ("got %lu, expected 32\n", j);
+      exit (1);
+    }
 
   mpfr_set_prec (x, 128); mpfr_set_prec (y, 239);
   mpfr_set_str_raw (x, "0.10001000110110000111011000101011111100110010010011001101000011111010010110001000000010100110100111111011011010101100100000000000E167");
   mpfr_set_str_raw (y, "0.10001000110110000111011000101011111100110010010011001101000011111010010110001000000010100110100111111011011010101100011111111111111111111111111111111111111111111111011111100101011100011001101000100111000010000000000101100110000111111000101E167");
   j = 0;
-  if (mpfr_cmp2(x, y, &j) <= 0 || j != 164) {
-    printf("Error in mpfr_cmp2:\n");
-    printf("x="); mpfr_print_binary(x); puts ("");
-    printf("y="); mpfr_print_binary(y); puts ("");
-    printf("got %lu, expected 164\n", j);
-    exit(1);
-  }
+  if (mpfr_cmp2(x, y, &j) <= 0 || j != 164)
+    {
+      printf ("Error in mpfr_cmp2:\n");
+      printf ("x="); mpfr_print_binary(x); puts ("");
+      printf ("y="); mpfr_print_binary(y); puts ("");
+      printf ("got %lu, expected 164\n", j);
+      exit (1);
+    }
 
   /* bug found by Nathalie Revol, 29 March 2001 */
   mpfr_set_prec (x, 130); mpfr_set_prec (y, 130);
   mpfr_set_str_raw (x, "0.1100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E2");
   mpfr_set_str_raw (y, "0.1011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111100E2");
   j = 0;
-  if (mpfr_cmp2(x, y, &j) <= 0 || j != 127) {
-    printf("Error in mpfr_cmp2:\n");
-    printf("x="); mpfr_print_binary(x); puts ("");
-    printf("y="); mpfr_print_binary(y); puts ("");
-    printf("got %lu, expected 127\n", j);
-    exit(1);
-  }
+  if (mpfr_cmp2(x, y, &j) <= 0 || j != 127)
+    {
+      printf ("Error in mpfr_cmp2:\n");
+      printf ("x="); mpfr_print_binary(x); puts ("");
+      printf ("y="); mpfr_print_binary(y); puts ("");
+      printf ("got %lu, expected 127\n", j);
+      exit (1);
+    }
 
   /* bug found by Nathalie Revol, 2 Apr 2001 */
   mpfr_set_prec (x, 65); mpfr_set_prec (y, 65);
   mpfr_set_ui (x, 5, GMP_RNDN);
   mpfr_set_str_raw (y, "0.10011111111111111111111111111111111111111111111111111111111111101E3");
   j = 0;
-  if (mpfr_cmp2(x, y, &j) <= 0 || j != 63) {
-    printf("Error in mpfr_cmp2:\n");
-    printf("x="); mpfr_print_binary(x); puts ("");
-    printf("y="); mpfr_print_binary(y); puts ("");
-    printf("got %lu, expected 63\n", j);
-    exit(1);
-  }
+  if (mpfr_cmp2(x, y, &j) <= 0 || j != 63)
+    {
+      printf ("Error in mpfr_cmp2:\n");
+      printf ("x="); mpfr_print_binary(x); puts ("");
+      printf ("y="); mpfr_print_binary(y); puts ("");
+      printf ("got %lu, expected 63\n", j);
+      exit (1);
+    }
 
   /* bug found by Nathalie Revol, 2 Apr 2001 */
   mpfr_set_prec (x, 65); mpfr_set_prec (y, 65);
   mpfr_set_str_raw (x, "0.10011011111000101001110000000000000000000000000000000000000000000E-69");
   mpfr_set_str_raw (y, "0.10011011111000101001101111111111111111111111111111111111111111101E-69");
   j = 0;
-  if (mpfr_cmp2(x, y, &j) <= 0 || j != 63) {
-    printf("Error in mpfr_cmp2:\n");
-    printf("x="); mpfr_print_binary(x); puts ("");
-    printf("y="); mpfr_print_binary(y); puts ("");
-    printf("got %lu, expected 63\n", j);
-    exit(1);
-  }
+  if (mpfr_cmp2(x, y, &j) <= 0 || j != 63)
+    {
+      printf ("Error in mpfr_cmp2:\n");
+      printf ("x="); mpfr_print_binary(x); puts ("");
+      printf ("y="); mpfr_print_binary(y); puts ("");
+      printf ("got %lu, expected 63\n", j);
+      exit (1);
+    }
 
   mpfr_clear(x); mpfr_clear(y);
 }