From fd5e5221f3d42f1d1e29d99a15ac43a76460bf9b Mon Sep 17 00:00:00 2001 From: vlefevre Date: Thu, 25 Sep 2003 08:15:42 +0000 Subject: Changed the remaining stderr to stdout. git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@2449 280ebfd0-de03-0410-8827-d642c229c3f4 --- tests/tcmp2.c | 239 ++++++++++++++++++++++++++++++---------------------------- 1 file changed, 122 insertions(+), 117 deletions(-) (limited to 'tests/tcmp2.c') 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); } -- cgit v1.2.1