X-Git-Url: http://nsz.repo.hu/git/?p=libc-test;a=blobdiff_plain;f=src%2Fmath%2Fgen%2Ftemplate%2Fd_di.c;h=efe20fd4b4f4ab8c00a1bb32ce181644615f09e8;hp=3b224faefd20824ab4fc4016afcdf7ab2e3098e0;hb=d22f4f43182fe1cc70b343b6a52cb8e3a54d1f44;hpb=75aab93ef75299e347be24f57223dc93f2af80a4 diff --git a/src/math/gen/template/d_di.c b/src/math/gen/template/d_di.c index 3b224fa..efe20fd 100644 --- a/src/math/gen/template/d_di.c +++ b/src/math/gen/template/d_di.c @@ -8,6 +8,7 @@ HEADERS int main(void) { + #pragma STDC FENV_ACCESS ON int yi; double y; float d; @@ -16,9 +17,14 @@ int main(void) for (i = 0; i < sizeof t/sizeof *t; i++) { p = t + i; - setupfenv(p->r); + + if (p->r < 0) + continue; + fesetround(p->r); + feclearexcept(FE_ALL_EXCEPT); y = ___(p->x, &yi); - e = getexcept(); + e = fetestexcept(INEXACT|INVALID|DIVBYZERO|UNDERFLOW|OVERFLOW); + if (!checkexcept(e, p->e, p->r)) { printf("%s:%d: bad fp exception: %s ___(%a)=%a,%lld, want %s", p->file, p->line, rstr(p->r), p->x, p->y, p->i, estr(p->e));