dist/tests/reuse.c

95   mpfr_t ref1, ref2, ref3;
104   mpfr_init2 (ref3, prec);
112       set_special (ref3, i / SPECIAL_MAX);
115       testfunc (ref1, ref2, ref3, rnd);
119       testfunc (res1, res1, ref3, rnd);
125           DISP("a=", ref2); DISP2(", c=", ref3);
132       mpfr_set (res1, ref3, rnd);
137           DISP("b=", ref2); DISP2(", a=", ref3);
144       mpfr_set (ref3, ref2, rnd);
145       testfunc (ref1, ref2, ref3, rnd);
161   mpfr_clear (ref3);
306   unsigned int ref3;
318      ref3 can be 0 or any number */
322       ref3 = i / SPECIAL_MAX == 0 ? 0 : randlimb ();
325       testfunc (ref1, ref2, ref3, rnd);
329       testfunc (res1, res1, ref3, rnd);
333           printf ("Error for %s(a, a, c) for c=%u\n", foo, ref3);
350   mpfr_t ref1, ref3;
359   mpfr_init2 (ref3, prec);
364       set_special (ref3, i % SPECIAL_MAX);
368       testfunc (ref1, ref2, ref3, rnd);
371       mpfr_set (res1, ref3, rnd); /* exact operation */
376           DISP2("a=", ref3);
383   mpfr_clear (ref3);
472   mpfr_t ref1, ref2, ref3;
481   mpfr_init2 (ref3, prec);
487       set_special (ref3, i);
490       testfunc (ref1, ref2, ref3, rnd);
493       mpfr_set (res1, ref3, rnd); /* exact operation */
499           DISP2("a=", ref3);
506       mpfr_set (res2, ref3, rnd); /* exact operation */
511           DISP2("b=", ref3);
520   mpfr_clear (ref3);
535   mpfr_t ref1, ref2, ref3;
544   mpfr_init2 (ref3, 1005);
551       mpfr_set_ui (ref3, 20, MPFR_RNDN);
556         mpfr_mul_2ui (ref3, ref3, 1000, MPFR_RNDN);
558         mpfr_add_ui (ref3, ref3, 1, MPFR_RNDN);  /* odd integer */
561       mpfr_pow (ref1, ref2, ref3, rnd);
565       mpfr_pow (res1, res1, ref3, rnd);
570           DISP("a=", ref2); DISP2(", c=", ref3);
577   mpfr_clears (ref1, ref2, ref3, res1, (mpfr_ptr) 0);