tests/mpz/reuse.c

212   mpz_t in1, in2, in3;
230   mpz_init (in2);
267       MAKE_RANDOM_OP (in2, size_range, 2);
274 	     mpz_sizeinbase(in2,2),
283 	mpz_neg (in2, in2);
289 	  if (dss[i].isdivision && mpz_sgn (in2) == 0)
294 	  (dss[i].fptr) (ref1, in1, in2);
298 	  INVOKE_RSS (dss[i], res1, res1, in2);
301 	    FAIL (dss, i, in1, in2, NULL);
303 	  mpz_set (res1, in2);
307 	    FAIL (dss, i, in1, in2, NULL);
312 	  if (mpz_sgn (in2) == 0)
315 	  (ddss_div[i].fptr) (ref1, ref2, in1, in2);
321 	  INVOKE_RRSS (ddss_div[i], res1, res2, res1, in2);
325 	    FAIL (ddss_div, i, in1, in2, NULL);
329 	  INVOKE_RRSS (ddss_div[i], res1, res2, res2, in2);
333 	    FAIL (ddss_div, i, in1, in2, NULL);
335 	  mpz_set (res1, in2);
341 	    FAIL (ddss_div, i, in1, in2, NULL);
344 	  mpz_set (res2, in2);
349 	    FAIL (ddss_div, i, in1, in2, NULL);
364 	    FAIL (ds, i, in1, in2, NULL);
367       in2i = mpz_get_ui (in2);
372 	    in2i = mpz_get_ui (in2) % dsi[i].mod;
381 	    FAIL (dsi, i, in1, in2, NULL);
395 		FAIL (dsi_div, i, in1, in2, NULL);
408 		FAIL (ddsi_div, i, in1, in2, NULL);
415 		FAIL (ddsi_div, i, in1, in2, NULL);
455 	    FAIL2 (mpz_root, in1, in2, NULL);
469 	    FAIL2 (mpz_rootrem, in1, in2, NULL);
476 	    FAIL2 (mpz_rootrem, in1, in2, NULL);
481 	  mpz_gcdext (ref1, ref2, ref3, in1, in2);
506 	  GCDEXT_CHECK3 (res1, in2);
511 	  GCDEXT_CHECK3 (res2, in2);
516 	  GCDEXT_CHECK3 (res3, in2);
518 	  mpz_set (res1, in2);
524 	  mpz_set (res2, in2);
530 	  mpz_set (res3, in2);
534 	  mpz_set (res2, in2);
540 	  mpz_set (res3, in2);
545 	  mpz_set (res3, in2);
548 	  mpz_set (res1, in2);
553 	  mpz_set (res1, in2);
559 	  mpz_set (res2, in2);
565 	  GCDEXT_CHECK2 (res1, in2);
569 	  GCDEXT_CHECK2 (res2, in2);
571 	  mpz_set (res1, in2);
576 	  mpz_set (res2, in2);
630       if (size_range < 17 && mpz_sizeinbase (in2, 2) < 250 && mpz_sgn (in3) != 0
631 	  && (mpz_sgn (in2) >= 0 || mpz_invert (t, in1, in3)))
633 	  mpz_powm (ref1, in1, in2, in3);
637 	  mpz_powm (res1, res1, in2, in3);
640 	    FAIL2 (mpz_powm, in1, in2, in3);
642 	  mpz_set (res1, in2);
646 	    FAIL2 (mpz_powm, in1, in2, in3);
649 	  mpz_powm (res1, in1, in2, res1);
652 	    FAIL2 (mpz_powm, in1, in2, in3);
665 	    FAIL2 (mpz_powm_ui, in1, in2, in3);
671 	    FAIL2 (mpz_powm_ui, in1, in2, in3);
682 	  FAIL2 (mpz_gcd_ui, in1, in2, NULL);
685       if (mpz_sgn (in2) != 0)
689 	  refretval = mpz_remove (ref1, in1, in2);
693 	  retval = mpz_remove (res1, res1, in2);
696 	    FAIL2 (mpz_remove, in1, in2, NULL);
698 	  mpz_set (res1, in2);
702 	    FAIL2 (mpz_remove, in1, in2, NULL);
705       if (mpz_sgn (in2) != 0)
708 	  mpz_mul (t, in1, in2);
709 	  mpz_divexact (ref1, t, in2);
713 	  mpz_divexact (res1, res1, in2);
716 	    FAIL2 (mpz_divexact, t, in2, NULL);
718 	  mpz_set (res1, in2);
722 	    FAIL2 (mpz_divexact, t, in2, NULL);
725       if (mpz_sgn (in2) > 0)
728 	  mpz_mul (t, in1, in2);
729 	  mpz_divexact_gcd (ref1, t, in2);
733 	  mpz_divexact_gcd (res1, res1, in2);
736 	    FAIL2 (mpz_divexact_gcd, t, in2, NULL);
738 	  mpz_set (res1, in2);
742 	    FAIL2 (mpz_divexact_gcd, t, in2, NULL);
751   mpz_clear (in2);
769 dump (const char *name, mpz_t in1, mpz_t in2, mpz_t in3)
773   if (in2 != NULL)
776       mpz_out_str (stdout, -16, in2);