dist/tests/tmul.c

58   mpfr_t xx, yy, zz;
62   mpfr_init2 (zz, pz);
65   test_mul(zz, xx, yy, rnd_mode);
66   if (mpfr_cmp_str1 (zz, res) )
71       mpfr_out_str(stdout, 10, 0, zz, MPFR_RNDN);
78         mpfr_print_binary(zz);
80         mpfr_set_str1 (zz, res);
81         mpfr_print_binary(zz);
85   mpfr_clear(xx); mpfr_clear(yy); mpfr_clear(zz);
91   mpfr_t xx, yy, zz;
93   mpfr_inits2 (53, xx, yy, zz, (mpfr_ptr) 0);
96   test_mul (zz, xx, yy, rnd_mode);
97   if (mpfr_cmp_str1 (zz, zs) )
102       mpfr_out_str(stdout, 10, 0, zz, MPFR_RNDN);
109         mpfr_print_binary(zz);
111         mpfr_set_str1 (zz, zs);
112         mpfr_print_binary(zz);
116   mpfr_clears (xx, yy, zz, (mpfr_ptr) 0);
123   mpfr_t xx, yy, zz;
125   mpfr_inits2 (24, xx, yy, zz, (mpfr_ptr) 0);
128   test_mul (zz, xx, yy, rnd_mode);
129   if (mpfr_cmp_str1 (zz, zs) )
134       mpfr_out_str(stdout, 10, 0, zz, MPFR_RNDN);
138   mpfr_clears (xx, yy, zz, (mpfr_ptr) 0);
282   mpfr_t xx, yy, zz;
287   mpfr_init2(zz, 4);
293   test_mul(zz, xx, yy, MPFR_RNDU);
294   if (!(mpfr_overflow_p() && MPFR_IS_INF(zz)))
301   test_mul(zz, xx, yy, MPFR_RNDD);
302   if (mpfr_overflow_p() || MPFR_IS_INF(zz))
309   if (!(MPFR_IS_FP(xx) && MPFR_IS_FP(zz)))
314   if (mpfr_cmp(xx, zz) != 0)
317       mpfr_out_str(stdout, 2, 0, zz, MPFR_RNDZ);
329   test_mul (zz, xx, yy, MPFR_RNDN);
331   MPFR_ASSERTN(mpfr_cmp_ui (zz, 0) == 0 && MPFR_IS_POS(zz));
341   test_mul (zz, xx, yy, MPFR_RNDN);
343   MPFR_ASSERTN(mpfr_cmp (zz, yy) == 0);
348   mpfr_clear(zz);
354   mpfr_t xx, yy, zz;
358   mpfr_init2(zz, 3);
363   test_mul(zz, xx, yy, MPFR_RNDD);
364   if (mpfr_sgn(zz) != 0)
367       mpfr_out_str(stdout, 2, 0, zz, MPFR_RNDZ);
372   test_mul(zz, xx, yy, MPFR_RNDU);
380   if (mpfr_cmp(xx, zz) != 0)
383       mpfr_out_str(stdout, 2, 0, zz, MPFR_RNDZ);
392   mpfr_clear(zz);