mini-gmp/tests/t-reuse.c

150   mpz_t in1, in2, in3;
163   mpz_init (in1);
181       mini_rrandomb (in1, size);
194 	mpz_neg (in1, in1);
207 	  (dss_funcs[i]) (ref1, in1, in2);
210 	  mpz_set (res1, in1);
214 	    FAIL (dss, i, in1, in2, NULL);
217 	  (dss_funcs[i]) (res1, in1, res1);
220 	    FAIL (dss, i, in1, in2, NULL);
230 	  (ddss_div_funcs[i]) (ref1, ref2, in1, in2);
234 	  mpz_set (res1, in1);
239 	    FAIL (ddss_div, i, in1, in2, NULL);
241 	  mpz_set (res2, in1);
246 	    FAIL (ddss_div, i, in1, in2, NULL);
249 	  (ddss_div_funcs[i]) (res1, res2, in1, res1);
253 	    FAIL (ddss_div, i, in1, in2, NULL);
256 	  (ddss_div_funcs[i]) (res1, res2, in1, res2);
260 	    FAIL (ddss_div, i, in1, in2, NULL);
268 	      && mpz_sgn (in1) < 0)
271 	  (ds_funcs[i]) (ref1, in1);
274 	  mpz_set (res1, in1);
278 	    FAIL (ds, i, in1, in2, NULL);
299 	  (dsi_funcs[i]) (ref1, in1, in2i);
302 	  mpz_set (res1, in1);
306 	    FAIL (dsi, i, in1, in2, NULL);
313 	      r1 = (dsi_div_funcs[i]) (ref1, in1, in2i);
316 	      mpz_set (res1, in1);
320 		FAIL (dsi_div, i, in1, in2, NULL);
325 	      r1 = (ddsi_div_funcs[i]) (ref1, ref2, in1, in2i);
328 	      mpz_set (res1, in1);
332 		FAIL (ddsi_div, i, in1, in2, NULL);
334 	      mpz_set (res2, in1);
338 		FAIL (ddsi_div, i, in1, in2, NULL);
342       if (mpz_sgn (in1) >= 0)
344 	  mpz_sqrtrem (ref1, ref2, in1);
348 	  mpz_set (res1, in1);
353 	    FAIL2 (mpz_sqrtrem, in1, NULL, NULL);
355 	  mpz_set (res2, in1);
360 	    FAIL2 (mpz_sqrtrem, in1, NULL, NULL);
363       if (mpz_sgn (in1) >= 0)
365 	  mpz_root (ref1, in1, in2i % 0x1000 + 1);
368 	  mpz_set (res1, in1);
372 	    FAIL2 (mpz_root, in1, in2, NULL);
375       if (mpz_sgn (in1) >= 0)
377 	  mpz_rootrem (ref1, ref2, in1, in2i % 0x1000 + 1);
381 	  mpz_set (res1, in1);
386 	    FAIL2 (mpz_rootrem, in1, in2, NULL);
388 	  mpz_set (res2, in1);
393 	    FAIL2 (mpz_rootrem, in1, in2, NULL);
398 	  mpz_gcdext (ref1, ref2, ref3, in1, in2);
403 	  mpz_set (res1, in1);
410 	    FAIL2 (mpz_gcdext, in1, in2, NULL);
412 	  mpz_set (res2, in1);
419 	    FAIL2 (mpz_gcdext, in1, in2, NULL);
421 	  mpz_set (res3, in1);
428 	    FAIL2 (mpz_gcdext, in1, in2, NULL);
431 	  mpz_gcdext (res1, res2, res3, in1, res1);
437 	    FAIL2 (mpz_gcdext, in1, in2, NULL);
440 	  mpz_gcdext (res1, res2, res3, in1, res2);
446 	    FAIL2 (mpz_gcdext, in1, in2, NULL);
449 	  mpz_gcdext (res1, res2, res3, in1, res3);
455 	    FAIL2 (mpz_gcdext, in1, in2, NULL);
457 	  mpz_set (res1, in1);
463 	    FAIL2 (mpz_gcdext, in1, in2, NULL);
465 	  mpz_set (res2, in1);
471 	    FAIL2 (mpz_gcdext, in1, in2, NULL);
474 	  mpz_gcdext (res1, res2, NULL, in1, res1);
479 	    FAIL2 (mpz_gcdext, in1, in2, NULL);
482 	  mpz_gcdext (res1, res2, NULL, in1, res2);
487 	    FAIL2 (mpz_gcdext, in1, in2, NULL);
492 	  && (mpz_sgn (in2) >= 0 || mpz_invert (t, in1, in3)))
494 	  mpz_powm (ref1, in1, in2, in3);
497 	  mpz_set (res1, in1);
501 	    FAIL2 (mpz_powm, in1, in2, in3);
504 	  mpz_powm (res1, in1, res1, in3);
507 	    FAIL2 (mpz_powm, in1, in2, in3);
510 	  mpz_powm (res1, in1, in2, res1);
513 	    FAIL2 (mpz_powm, in1, in2, in3);
519 	  mpz_powm_ui (ref1, in1, in2i, in3);
522 	  mpz_set (res1, in1);
526 	    FAIL2 (mpz_powm_ui, in1, in2, in3);
529 	  mpz_powm_ui (res1, in1, in2i, res1);
532 	    FAIL2 (mpz_powm_ui, in1, in2, in3);
536 	r1 = mpz_gcd_ui (ref1, in1, in2i);
539 	mpz_set (res1, in1);
543 	  FAIL2 (mpz_gcd_ui, in1, in2, NULL);
546       if (mpz_cmp_ui (in2, 1L) > 0 && mpz_sgn (in1) != 0)
549 	  mpz_remove (ref1, in1, in2);
552 	  mpz_set (res1, in1);
556 	    FAIL2 (mpz_remove, in1, in2, NULL);
559 	  mpz_remove (res1, in1, res1);
562 	    FAIL2 (mpz_remove, in1, in2, NULL);
568 	  mpz_mul (t, in1, in2);
589 	  mpz_mul (t, in1, in2);
615   mpz_clear (in1);
628 dump3 (const char *name, mpz_t in1, mpz_t in2, mpz_t in3)
631   mpz_out_str (stdout, -16, in1);