int main (int argc, char *argv[]) { long nbtests; mpfr_prec_t prec; int verbose = 0; int rnd; long bit_index; tests_start_mpfr (); if (argc > 1) verbose = 1; nbtests = 10000; if (argc > 1) { long a = atol(argv[1]); if (a != 0) nbtests = a; } if (argc <= 2) prec = 1000; else prec = atol(argv[2]); if (argc <= 3) bit_index = -1; else { bit_index = atol(argv[3]); if (bit_index >= prec) { printf ("Warning. Cannot compute the bit frequency: the given bit " "index (= %ld) is not less than the precision (= %ld).\n", bit_index, (long) prec); bit_index = -1; } } RND_LOOP(rnd) { test_urandom (nbtests, prec, (mpfr_rnd_t) rnd, bit_index, verbose); if (argc == 1) /* check also small precision */ { test_urandom (nbtests, 2, (mpfr_rnd_t) rnd, -1, 0); } } #ifndef MPFR_USE_MINI_GMP /* since this test assumes a deterministic random generator, and this is not implemented in mini-gmp, we omit it with mini-gmp */ bug20100914 (); #endif tests_end_mpfr (); return 0; }
int main (int argc, char *argv[]) { long nbtests; mpfr_prec_t prec; int verbose = 0; int rnd; long bit_index; tests_start_mpfr (); if (argc > 1) verbose = 1; nbtests = 10000; if (argc > 1) { long a = atol(argv[1]); if (a != 0) nbtests = a; } if (argc <= 2) prec = 1000; else prec = atol(argv[2]); if (argc <= 3) bit_index = -1; else { bit_index = atol(argv[3]); if (bit_index >= prec) { printf ("Warning. Cannot compute the bit frequency: the given bit " "index (= %ld) is not less than the precision (= %ld).\n", bit_index, prec); bit_index = -1; } } RND_LOOP(rnd) { test_urandom (nbtests, prec, (mpfr_rnd_t) rnd, bit_index, verbose); if (argc == 1) /* check also small precision */ { test_urandom (nbtests, 2, (mpfr_rnd_t) rnd, -1, 0); } } tests_end_mpfr (); return 0; }