X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fmath%2Flgamma.c;h=b20a693e01ea09901968cc7e87507c0acca9d7b5;hb=517ccafc57089ac88b88050a4c7ab0ece4235e19;hp=cd74903fa736a66f4733a54b9b61f397724c3ca9;hpb=f3f0ff4782fc90bd0f3e48fd541ee431f76aaed1;p=libc-test diff --git a/src/math/lgamma.c b/src/math/lgamma.c index cd74903..b20a693 100644 --- a/src/math/lgamma.c +++ b/src/math/lgamma.c @@ -1,6 +1,7 @@ +#define _XOPEN_SOURCE 700 #include #include -#include "util.h" +#include "mtest.h" static struct d_di t[] = { #include "sanity/lgamma.h" @@ -35,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(%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++;