X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fmath%2Flgamma_r.c;h=0324815dd13816bee4d180a4fce50fee1a2c517d;hb=1421f13d69c511693e685e6e406de523610223fd;hp=c2acb998043b6da167cca51e607183ca2898e055;hpb=d22f4f43182fe1cc70b343b6a52cb8e3a54d1f44;p=libc-test diff --git a/src/math/lgamma_r.c b/src/math/lgamma_r.c index c2acb99..0324815 100644 --- a/src/math/lgamma_r.c +++ b/src/math/lgamma_r.c @@ -1,9 +1,12 @@ +#define _BSD_SOURCE 1 +#define _GNU_SOURCE 1 #include #include -#include "util.h" +#include "mtest.h" static struct d_di t[] = { #include "sanity/lgamma_r.h" +#include "special/lgamma_r.h" }; @@ -33,7 +36,7 @@ int main(void) err++; } d = ulperr(y, p->y, p->dy); - if (!checkulp(d, p->r) || yi != p->i) { + if (!checkulp(d, p->r) || (!isnan(p->x) && p->x!=-inf && !(p->e&DIVBYZERO) && yi != p->i)) { printf("%s:%d: %s lgamma_r(%a) want %a,%lld got %a,%d ulperr %.3f = %a + %a\n", p->file, p->line, rstr(p->r), p->x, p->y, p->i, y, yi, d, d-p->dy, p->dy); err++;