X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fmath%2Flgamma.c;h=381e2d337328b0311d8379fea9adb4b387a932eb;hb=e444a960e992bc5a55142ac7f3267a08fc6ce0f5;hp=d76538f16550fa67a67a2c8bb0a98fce7af07963;hpb=d22f4f43182fe1cc70b343b6a52cb8e3a54d1f44;p=libc-test diff --git a/src/math/lgamma.c b/src/math/lgamma.c index d76538f..381e2d3 100644 --- a/src/math/lgamma.c +++ b/src/math/lgamma.c @@ -1,9 +1,12 @@ +#define _BSD_SOURCE 1 +#define _XOPEN_SOURCE 700 #include #include -#include "util.h" +#include "mtest.h" static struct d_di t[] = { #include "sanity/lgamma.h" +#include "special/lgamma.h" }; @@ -34,7 +37,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++;