dist/tests/tgamma.c

486   int inex1, inex2;
497   inex1 = mpfr_gamma (y, x, MPFR_RNDN);
506   if (inex1 != inex2 || flags1 != flags2 || ! mpfr_equal_p (y, z))
511       printf ("Expected inex1 = %d, flags1 = %u, ", SIGN (inex1), flags1);
520   inex1 = mpfr_gamma (y, x, MPFR_RNDD);
529   if (inex1 != inex2 || flags1 != flags2 || ! mpfr_equal_p (y, z))
534       printf ("Expected inex1 = %d, flags1 = %u, ", SIGN (inex1), flags1);
543   inex1 = mpfr_check_range (y, inex1, MPFR_RNDD);
551   if (inex1 != inex2 || flags1 != flags2 || ! mpfr_equal_p (y, z))
556       printf ("Expected inex1 = %d, flags1 = %u, ", SIGN (inex1), flags1);
565   inex1 = mpfr_gamma (y, x, MPFR_RNDD);
574   if (inex1 != inex2 || flags1 != flags2 || ! mpfr_equal_p (y, z))
579       printf ("Expected inex1 = %d, flags1 = %u, ", SIGN (inex1), flags1);
592   inex1 = 1;
599   if (inex1 != inex2 || flags1 != flags2 || ! mpfr_equal_p (y, z))
604       printf ("Expected inex1 = %d, flags1 = %u, ", SIGN (inex1), flags1);
615   if (inex1 != inex2 || flags1 != flags2 || ! mpfr_equal_p (y, z))
620       printf ("Expected inex1 = %d, flags1 = %u, ", SIGN (inex1), flags1);
627   inex1 = -1;
633   if (inex1 != inex2 || flags1 != flags2 || ! mpfr_equal_p (y, z))
638       printf ("Expected inex1 = %d, flags1 = %u, ", SIGN (inex1), flags1);
646   inex1 = 1;
653   if (inex1 != inex2 || flags1 != flags2 || ! mpfr_equal_p (y, z))
658       printf ("Expected inex1 = %d, flags1 = %u, ", SIGN (inex1), flags1);
669   if (inex1 != inex2 || flags1 != flags2 || ! mpfr_equal_p (y, z))
674       printf ("Expected inex1 = %d, flags1 = %u, ", SIGN (inex1), flags1);
681   inex1 = -1;
688   if (inex1 != inex2 || flags1 != flags2 || ! mpfr_equal_p (y, z))
693       printf ("Expected inex1 = %d, flags1 = %u, ", SIGN (inex1), flags1);