mpc/tests/tset.c

53   MPC_SET_X_Y (ui, fr, z, a, b, rnd)
57   MPC_SET_X_Y (fr, ui, z, a, b, rnd)
71   mpfr_t fr;
78   mpfr_init2 (fr, 1000);
91       mpfr_set_prec (fr, prec);
95       mpfr_set_d (fr, 1.23456789, GMP_RNDN);
98       if (mpfr_cmp (mpc_realref(z), fr) != 0 || mpfr_cmp_si (mpc_imagref(z), 0) != 0)
103       if (mpfr_cmp (mpc_realref(z), fr) != 0 || mpfr_cmp (mpc_imagref(z), fr) != 0)
113       if (mpfr_cmp (mpc_realref(z), fr) != 0 || mpfr_cmp (mpc_imagref(z), fr) != 0)
120       mpfr_set_ld (fr, 1.23456789L, GMP_RNDN);
123       if (mpfr_cmp (mpc_realref(z), fr) != 0 || mpfr_cmp (mpc_imagref(z), fr) != 0)
128       if (mpfr_cmp (mpc_realref(z), fr) != 0 || mpfr_cmp (mpc_imagref(z), fr) != 0)
138       if (mpfr_cmp (mpc_realref(z), fr) != 0
144       mpfr_set_ui(fr, 1, GMP_RNDN);
145       mpfr_div_ui(fr, fr, 3, GMP_RNDN);
146       mpfr_set(mpc_realref(x), fr, GMP_RNDN);
147       mpfr_set(mpc_imagref(x), fr, GMP_RNDN);
166       mpc_set_fr (z, fr, MPC_RNDNN);
168       if (mpfr_cmp (mpc_realref(z), fr) != 0
173       mpfr_set_z (fr, mpz, GMP_RNDN);
176       if (mpfr_cmp (mpc_realref(z), fr) != 0
177           || mpfr_cmp (mpc_imagref(z), fr) != 0
181       mpc_set_fr_fr (z, fr, fr, MPC_RNDNN);
183       if (mpfr_cmp (mpc_realref(z), fr) != 0
184           || mpfr_cmp (mpc_imagref(z), fr) != 0
190       if (mpfr_cmp (mpc_realref(z), fr) != 0
195       mpfr_set_q (fr, mpq, GMP_RNDN);
198       if (mpfr_cmp (mpc_realref(z), fr) != 0
199           || mpfr_cmp (mpc_imagref(z), fr) != 0
203       mpc_set_ui_fr (z, u, fr, MPC_RNDNN);
206           || mpfr_cmp (mpc_imagref (z), fr) != 0
210       mpc_set_fr_ui (z, fr, u, MPC_RNDNN);
212       if (mpfr_cmp (mpc_realref (z), fr) != 0
219       if (mpfr_cmp (mpc_realref(z), fr) != 0
224       mpfr_set_f (fr, mpf, GMP_RNDN);
227       if (mpfr_cmp (mpc_realref(z), fr) != 0
228           || mpfr_cmp (mpc_imagref(z), fr) != 0
234       if (mpfr_cmp (mpc_realref(z), fr) != 0
241       if (mpfr_cmp (mpc_realref (z), fr) != 0
317   mpfr_clear (fr);