Commit - atests/atests.libc - c886bb85233e642ca37731de72ad3e1f2f18a2f3

atests / atests.libc

`c886bb` math: in lgamma* only check signgam when it's specified

Authored and Committed by Szabolcs Nagy 12 years ago

raw patch tree parent

6 files changed. 6 lines added. 6 lines removed.

    math: in lgamma* only check signgam when it's specified

src/math/lgamma.c

file modified

+1 -1

src/math/lgamma.c CHANGED

@@ -35,7 +35,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++;

src/math/lgamma_r.c

file modified

+1 -1

src/math/lgamma_r.c CHANGED

@@ -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++;

src/math/lgammaf.c

file modified

+1 -1

src/math/lgammaf.c CHANGED

@@ -35,7 +35,7 @@ int main(void)
             err++;
         }
         d = ulperrf(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 lgammaf(%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++;

src/math/lgammaf_r.c

file modified

+1 -1

src/math/lgammaf_r.c CHANGED

@@ -34,7 +34,7 @@ int main(void)
             err++;
         }
         d = ulperrf(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 lgammaf_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++;

src/math/lgammal.c

file modified

+1 -1

src/math/lgammal.c CHANGED

@@ -41,7 +41,7 @@ int main(void)
             err++;
         }
         d = ulperrl(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 lgammal(%La) want %La,%lld got %La,%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++;

src/math/lgammal_r.c

file modified

+1 -1

src/math/lgammal_r.c CHANGED

@@ -40,7 +40,7 @@ int main(void)
             err++;
         }
         d = ulperrl(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 lgammal_r(%La) want %La,%lld got %La,%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++;

atests / atests.libc

Source Code

c886bb math: in lgamma* only check signgam when it's specified

Authored and Committed by Szabolcs Nagy 12 years ago

`c886bb` math: in lgamma* only check signgam when it's specified