X-Git-Url: http://nsz.repo.hu/git/?p=libc-test;a=blobdiff_plain;f=src%2Fmath%2Flgamma_r.c;fp=src%2Fmath%2Flgamma_r.c;h=78b66eacfe7d47ef00b2866df882459d1c070e19;hp=0645feb469d175ad255dca8f545836fbb4f75b56;hb=c886bb85233e642ca37731de72ad3e1f2f18a2f3;hpb=db87a4c3abf99af95d5dfe27f77b6815ec27a4f4 diff --git a/src/math/lgamma_r.c b/src/math/lgamma_r.c index 0645feb..78b66ea 100644 --- a/src/math/lgamma_r.c +++ b/src/math/lgamma_r.c @@ -34,7 +34,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++;