e = fetestexcept(INEXACT|INVALID|DIVBYZERO|UNDERFLOW|OVERFLOW);
if (!checkexcept(e, p->e, p->r)) {
+ if (fabs(y) < 0x1p-1022 && (e|INEXACT) == (INEXACT|UNDERFLOW))
+ printf("X ");
+ else
+ err++;
printf("%s:%d: bad fp exception: %s exp2(%a)=%a, want %s",
p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
- err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {