dist/tests/reuse.c

95   mpfr_t ref1, ref2, ref3;
103   mpfr_init2 (ref2, prec);
111       set_special (ref2, i % SPECIAL_MAX);
115       testfunc (ref1, ref2, ref3, rnd);
118       mpfr_set (res1, ref2, rnd); /* exact operation */
125           DISP("a=", ref2); DISP2(", c=", ref3);
133       testfunc (res1, ref2, res1, rnd);
137           DISP("b=", ref2); DISP2(", a=", ref3);
144       mpfr_set (ref3, ref2, rnd);
145       testfunc (ref1, ref2, ref3, rnd);
146       mpfr_set (res1, ref2, rnd);
152           DISP2("a=", ref2);
160   mpfr_clear (ref2);
305   mpfr_t ref1, ref2;
314   mpfr_init2 (ref2, prec);
317   /* ref2 can be NaN, +Inf, -Inf, +0, -0 or any number
321       set_special (ref2, i % SPECIAL_MAX);
325       testfunc (ref1, ref2, ref3, rnd);
328       mpfr_set (res1, ref2, rnd); /* exact operation */
334           DISP2("a=", ref2);
342   mpfr_clear (ref2);
351   unsigned int ref2;
365       ref2 = i / SPECIAL_MAX == 0 ? 0 : randlimb ();
368       testfunc (ref1, ref2, ref3, rnd);
372       testfunc (res1, ref2, res1, rnd);
375           printf ("Error for %s(a, b, a) for b=%u \n", foo, ref2);
392   mpfr_t ref1, ref2;
400   mpfr_init2 (ref2, prec);
405       set_special (ref2, i);
408       testfunc (ref1, ref2, rnd);
411       mpfr_set (res1, ref2, rnd); /* exact operation */
416           DISP2("a=", ref2);
423   mpfr_clear (ref2);
432   mpfr_t ref1, ref2;
440   mpfr_init2 (ref2, prec);
445       set_special (ref2, i);
448       testfunc (ref1, ref2);
451       mpfr_set (res1, ref2, MPFR_RNDN); /* exact operation */
456           DISP2("a=", ref2);
463   mpfr_clear (ref2);
472   mpfr_t ref1, ref2, ref3;
480   mpfr_init2 (ref2, prec);
490       testfunc (ref1, ref2, ref3, rnd);
495       if (! SAME_VAL (res1, ref1) || ! SAME_VAL (res2, ref2))
500           DISP("expected (", ref1); DISP(",", ref2);
508       if (! SAME_VAL (res1, ref1) || ! SAME_VAL (res2, ref2))
512           DISP("expected (", ref1); DISP(",", ref2);
519   mpfr_clear (ref2);
535   mpfr_t ref1, ref2, ref3;
543                ref1, ref2, res1, (mpfr_ptr) 0);
548       mpfr_urandomb (ref2, RANDS);
550         mpfr_neg (ref2, ref2, MPFR_RNDN);
561       mpfr_pow (ref1, ref2, ref3, rnd);
564       mpfr_set (res1, ref2, rnd); /* exact operation */
570           DISP("a=", ref2); DISP2(", c=", ref3);
577   mpfr_clears (ref1, ref2, ref3, res1, (mpfr_ptr) 0);