diff options
| author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2002-03-21 15:35:48 +0000 |
|---|---|---|
| committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2002-03-21 15:35:48 +0000 |
| commit | 7563e1b2676d837c96ed25e361a5e9dd714567dc (patch) | |
| tree | 33906130053295abaaf74e98f81b794b8eece54b /tests/tsub.c | |
| parent | 0df22d500aef3b11656722b40e21890ee1a5c531 (diff) | |
| download | mpfr-7563e1b2676d837c96ed25e361a5e9dd714567dc.tar.gz | |
replaced rand/lrand48, drand48, srand/srand48 by macros
LONG_RAND, DBL_RAND, SEED_RAND
and time(NULL) by getpid()
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1762 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tsub.c')
| -rw-r--r-- | tests/tsub.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/tsub.c b/tests/tsub.c index 8dede879f..e5767f48c 100644 --- a/tests/tsub.c +++ b/tests/tsub.c @@ -306,7 +306,7 @@ check_two_sum (mp_prec_t p) mpfr_random (y); if (mpfr_cmp_abs (x, y) < 0) mpfr_swap (x, y); - rnd = rand() % 4; + rnd = LONG_RAND() % 4; rnd = GMP_RNDN; inexact = mpfr_sub (u, x, y, GMP_RNDN); mpfr_sub (v, u, x, GMP_RNDN); @@ -363,7 +363,7 @@ check_inexact (void) : MPFR_EXP(u)-MPFR_EXP(x); pz = pz + MAX(MPFR_PREC(x), MPFR_PREC(u)); mpfr_set_prec (z, pz); - rnd = rand () % 4; + rnd = LONG_RAND () % 4; if (mpfr_sub (z, x, u, rnd)) { fprintf (stderr, "z <- x - u should be exact\n"); |