y = acos(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s acos(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s acos(%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)) {
- printf("%s acos(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s acos(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = acosf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s acosf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s acosf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s acosf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s acosf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = acosh(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s acosh(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s acosh(%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)) {
- printf("%s acosh(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s acosh(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = acoshf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s acoshf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s acoshf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s acoshf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s acoshf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = acoshl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s acoshl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s acoshl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s acoshl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s acoshl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = acosl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s acosl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s acosl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s acosl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s acosl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = asin(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s asin(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s asin(%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)) {
- printf("%s asin(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s asin(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = asinf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s asinf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s asinf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s asinf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s asinf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = asinh(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s asinh(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s asinh(%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)) {
- printf("%s asinh(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s asinh(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = asinhf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s asinhf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s asinhf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s asinhf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s asinhf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = asinhl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s asinhl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s asinhl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s asinhl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s asinhl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = asinl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s asinl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s asinl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s asinl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s asinl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = atan(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s atan(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s atan(%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)) {
- printf("%s atan(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s atan(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = atan2(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s atan2(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s atan2(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s atan2(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s atan2(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = atan2f(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s atan2f(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s atan2f(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s atan2f(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s atan2f(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = atan2l(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s atan2l(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s atan2l(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s atan2l(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s atan2l(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = atanf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s atanf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s atanf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s atanf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s atanf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = atanh(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s atanh(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s atanh(%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)) {
- printf("%s atanh(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s atanh(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = atanhf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s atanhf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s atanhf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s atanhf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s atanhf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = atanhl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s atanhl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s atanhl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s atanhl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s atanhl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = atanl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s atanl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s atanl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s atanl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s atanl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = cbrt(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s cbrt(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s cbrt(%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)) {
- printf("%s cbrt(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s cbrt(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = cbrtf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s cbrtf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s cbrtf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s cbrtf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s cbrtf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = cbrtl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s cbrtl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s cbrtl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s cbrtl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s cbrtl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = ceil(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s ceil(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s ceil(%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)) {
- printf("%s ceil(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s ceil(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = ceilf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s ceilf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s ceilf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s ceilf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s ceilf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = ceill(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s ceill(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s ceill(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s ceill(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s ceill(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = copysign(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s copysign(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s copysign(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s copysign(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s copysign(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = copysignf(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s copysignf(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s copysignf(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s copysignf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s copysignf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = copysignl(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s copysignl(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s copysignl(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s copysignl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s copysignl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = cos(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s cos(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s cos(%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)) {
- printf("%s cos(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s cos(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = cosf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s cosf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s cosf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s cosf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s cosf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = cosh(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s cosh(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s cosh(%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)) {
- printf("%s cosh(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s cosh(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = coshf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s coshf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s coshf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s coshf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s coshf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = coshl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s coshl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s coshl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s coshl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s coshl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = cosl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s cosl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s cosl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s cosl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s cosl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = erf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s erf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s erf(%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)) {
- printf("%s erf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s erf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = erfc(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s erfc(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s erfc(%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)) {
- printf("%s erfc(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s erfc(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = erfcf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s erfcf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s erfcf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s erfcf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s erfcf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = erfcl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s erfcl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s erfcl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s erfcl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s erfcl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = erff(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s erff(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s erff(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s erff(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s erff(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = erfl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s erfl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s erfl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s erfl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s erfl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = exp(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s exp(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s exp(%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)) {
- printf("%s exp(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s exp(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = exp10(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s exp10(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s exp10(%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)) {
- printf("%s exp10(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s exp10(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = exp10f(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s exp10f(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s exp10f(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s exp10f(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s exp10f(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = exp10l(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s exp10l(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s exp10l(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s exp10l(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s exp10l(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = exp2(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s exp2(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ 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)) {
- printf("%s exp2(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s exp2(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = exp2f(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s exp2f(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s exp2f(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s exp2f(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s exp2f(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = exp2l(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s exp2l(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s exp2l(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s exp2l(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s exp2l(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = expf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s expf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s expf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s expf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s expf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = expl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s expl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s expl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s expl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s expl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = expm1(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s expm1(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s expm1(%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)) {
- printf("%s expm1(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s expm1(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = expm1f(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s expm1f(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s expm1f(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s expm1f(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s expm1f(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = expm1l(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s expm1l(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s expm1l(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s expm1l(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s expm1l(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fabs(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fabs(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fabs(%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)) {
- printf("%s fabs(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fabs(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fabsf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fabsf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fabsf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fabsf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fabsf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fabsl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fabsl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fabsl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fabsl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fabsl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fdim(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fdim(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fdim(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fdim(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fdim(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fdimf(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fdimf(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fdimf(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fdimf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fdimf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fdiml(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fdiml(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fdiml(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fdiml(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fdiml(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = floor(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s floor(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s floor(%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)) {
- printf("%s floor(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s floor(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = floorf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s floorf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s floorf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s floorf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s floorf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = floorl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s floorl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s floorl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s floorl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s floorl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fmax(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fmax(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fmax(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fmax(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fmax(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fmaxf(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fmaxf(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fmaxf(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fmaxf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fmaxf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fmaxl(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fmaxl(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fmaxl(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fmaxl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fmaxl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fmin(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fmin(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fmin(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fmin(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fmin(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fminf(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fminf(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fminf(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fminf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fminf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fminl(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fminl(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fminl(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fminl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fminl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fmod(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fmod(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fmod(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fmod(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fmod(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fmodf(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fmodf(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fmodf(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fmodf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fmodf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = fmodl(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s fmodl(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s fmodl(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s fmodl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s fmodl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
t->e = 0;
return 0;
}
-int mpnearbyint(struct t *t) { return mpd1(t, wrap_nearbyint); }
-int mpnearbyintf(struct t *t) { return mpf1(t, wrap_nearbyint); }
-int mpnearbyintl(struct t *t) { return mpl1(t, wrap_nearbyint); }
+int mpnearbyint(struct t *t) { return mpd1(t, wrap_nearbyint) || (t->e&=~INEXACT, 0); }
+int mpnearbyintf(struct t *t) { return mpf1(t, wrap_nearbyint) || (t->e&=~INEXACT, 0); }
+int mpnearbyintl(struct t *t) { return mpl1(t, wrap_nearbyint) || (t->e&=~INEXACT, 0); }
int mpnextafter(struct t *t) { return -1; }
int mpnextafterf(struct t *t) { return -1; }
int mpnextafterl(struct t *t) { return -1; }
y = ___(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s ___(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s ___(%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)) {
- printf("%s ___(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s ___(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = ___(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s ___(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s ___(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s ___(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s ___(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = ___(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s ___(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s ___(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s ___(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s ___(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = ___(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s ___(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s ___(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s ___(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s ___(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = ___(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s ___(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s ___(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s ___(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s ___(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = ___(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s ___(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s ___(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s ___(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s ___(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = hypot(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s hypot(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s hypot(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s hypot(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s hypot(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = hypotf(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s hypotf(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s hypotf(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s hypotf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s hypotf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = hypotl(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s hypotl(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s hypotl(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s hypotl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s hypotl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = j0(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s j0(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s j0(%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)) {
- printf("%s j0(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s j0(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = j0f(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s j0f(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s j0f(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s j0f(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s j0f(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = j1(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s j1(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s j1(%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)) {
- printf("%s j1(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s j1(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = j1f(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s j1f(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s j1f(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s j1f(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s j1f(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = log(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s log(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s log(%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)) {
- printf("%s log(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s log(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = log10(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s log10(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s log10(%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)) {
- printf("%s log10(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s log10(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = log10f(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s log10f(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s log10f(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s log10f(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s log10f(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = log10l(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s log10l(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s log10l(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s log10l(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s log10l(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = log1p(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s log1p(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s log1p(%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)) {
- printf("%s log1p(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s log1p(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = log1pf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s log1pf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s log1pf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s log1pf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s log1pf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = log1pl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s log1pl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s log1pl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s log1pl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s log1pl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = log2(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s log2(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s log2(%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)) {
- printf("%s log2(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s log2(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = log2f(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s log2f(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s log2f(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s log2f(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s log2f(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = log2l(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s log2l(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s log2l(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s log2l(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s log2l(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = logb(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s logb(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s logb(%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)) {
- printf("%s logb(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s logb(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = logbf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s logbf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s logbf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s logbf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s logbf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = logbl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s logbl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s logbl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s logbl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s logbl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = logf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s logf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s logf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s logf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s logf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = logl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s logl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s logl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s logl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s logl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = nearbyint(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s nearbyint(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s nearbyint(%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)) {
- printf("%s nearbyint(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s nearbyint(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = nearbyintf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s nearbyintf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s nearbyintf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s nearbyintf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s nearbyintf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = nearbyintl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s nearbyintl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s nearbyintl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s nearbyintl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s nearbyintl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = nextafter(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s nextafter(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s nextafter(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s nextafter(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s nextafter(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = nextafterf(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s nextafterf(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s nextafterf(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s nextafterf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s nextafterf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = nextafterl(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s nextafterl(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s nextafterl(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s nextafterl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s nextafterl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = nexttowardl(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s nexttowardl(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s nexttowardl(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s nexttowardl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s nexttowardl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = pow(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s pow(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s pow(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s pow(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s pow(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = pow10(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s pow10(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s pow10(%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)) {
- printf("%s pow10(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s pow10(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = pow10f(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s pow10f(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s pow10f(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s pow10f(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s pow10f(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = pow10l(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s pow10l(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s pow10l(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s pow10l(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s pow10l(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = powf(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s powf(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s powf(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s powf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s powf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = powl(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s powl(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s powl(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s powl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s powl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = remainder(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s remainder(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s remainder(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s remainder(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s remainder(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = remainderf(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s remainderf(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s remainderf(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s remainderf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s remainderf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = remainderl(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s remainderl(%La,%La)==%La except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s remainderl(%La,%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s remainderl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s remainderl(%La,%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = rint(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s rint(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s rint(%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)) {
- printf("%s rint(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s rint(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = rintf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s rintf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s rintf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s rintf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s rintf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = rintl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s rintl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s rintl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s rintl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s rintl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = round(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s round(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s round(%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)) {
- printf("%s round(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s round(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = roundf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s roundf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s roundf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s roundf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s roundf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = roundl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s roundl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s roundl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s roundl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s roundl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
-T(RN, -0x1.02239f3c6a8f1p+3, -0x1p+3, 0x0p+0, INEXACT)
-T(RN, 0x1.161868e18bc67p+2, 0x1p+2, 0x0p+0, INEXACT)
-T(RN, -0x1.0c34b3e01e6e7p+3, -0x1p+3, 0x0p+0, INEXACT)
-T(RN, -0x1.a206f0a19dcc4p+2, -0x1.cp+2, 0x0p+0, INEXACT)
-T(RN, 0x1.288bbb0d6a1e6p+3, 0x1.2p+3, 0x0p+0, INEXACT)
-T(RN, 0x1.52efd0cd80497p-1, 0x1p+0, 0x0p+0, INEXACT)
-T(RN, -0x1.a05cc754481d1p-2, -0x0p+0, 0x0p+0, INEXACT)
-T(RN, 0x1.1f9ef934745cbp-1, 0x1p+0, 0x0p+0, INEXACT)
-T(RN, 0x1.8c5db097f7442p-1, 0x1p+0, 0x0p+0, INEXACT)
-T(RN, -0x1.5b86ea8118a0ep-1, -0x1p+0, 0x0p+0, INEXACT)
+T(RN, -0x1.02239f3c6a8f1p+3, -0x1p+3, 0x0p+0, 0)
+T(RN, 0x1.161868e18bc67p+2, 0x1p+2, 0x0p+0, 0)
+T(RN, -0x1.0c34b3e01e6e7p+3, -0x1p+3, 0x0p+0, 0)
+T(RN, -0x1.a206f0a19dcc4p+2, -0x1.cp+2, 0x0p+0, 0)
+T(RN, 0x1.288bbb0d6a1e6p+3, 0x1.2p+3, 0x0p+0, 0)
+T(RN, 0x1.52efd0cd80497p-1, 0x1p+0, 0x0p+0, 0)
+T(RN, -0x1.a05cc754481d1p-2, -0x0p+0, 0x0p+0, 0)
+T(RN, 0x1.1f9ef934745cbp-1, 0x1p+0, 0x0p+0, 0)
+T(RN, 0x1.8c5db097f7442p-1, 0x1p+0, 0x0p+0, 0)
+T(RN, -0x1.5b86ea8118a0ep-1, -0x1p+0, 0x0p+0, 0)
-T(RN, -0x1.0223ap+3, -0x1p+3, 0x0p+0, INEXACT)
-T(RN, 0x1.161868p+2, 0x1p+2, 0x0p+0, INEXACT)
-T(RN, -0x1.0c34b4p+3, -0x1p+3, 0x0p+0, INEXACT)
-T(RN, -0x1.a206fp+2, -0x1.cp+2, 0x0p+0, INEXACT)
-T(RN, 0x1.288bbcp+3, 0x1.2p+3, 0x0p+0, INEXACT)
-T(RN, 0x1.52efdp-1, 0x1p+0, 0x0p+0, INEXACT)
-T(RN, -0x1.a05cc8p-2, -0x0p+0, 0x0p+0, INEXACT)
-T(RN, 0x1.1f9efap-1, 0x1p+0, 0x0p+0, INEXACT)
-T(RN, 0x1.8c5dbp-1, 0x1p+0, 0x0p+0, INEXACT)
-T(RN, -0x1.5b86eap-1, -0x1p+0, 0x0p+0, INEXACT)
+T(RN, -0x1.0223ap+3, -0x1p+3, 0x0p+0, 0)
+T(RN, 0x1.161868p+2, 0x1p+2, 0x0p+0, 0)
+T(RN, -0x1.0c34b4p+3, -0x1p+3, 0x0p+0, 0)
+T(RN, -0x1.a206fp+2, -0x1.cp+2, 0x0p+0, 0)
+T(RN, 0x1.288bbcp+3, 0x1.2p+3, 0x0p+0, 0)
+T(RN, 0x1.52efdp-1, 0x1p+0, 0x0p+0, 0)
+T(RN, -0x1.a05cc8p-2, -0x0p+0, 0x0p+0, 0)
+T(RN, 0x1.1f9efap-1, 0x1p+0, 0x0p+0, 0)
+T(RN, 0x1.8c5dbp-1, 0x1p+0, 0x0p+0, 0)
+T(RN, -0x1.5b86eap-1, -0x1p+0, 0x0p+0, 0)
-T(RN, -0x1.02239f3c6a8f13dep+3L, -0x1p+3L, 0x0p+0, INEXACT)
-T(RN, 0x1.161868e18bc67782p+2L, 0x1p+2L, 0x0p+0, INEXACT)
-T(RN, -0x1.0c34b3e01e6e682cp+3L, -0x1p+3L, 0x0p+0, INEXACT)
-T(RN, -0x1.a206f0a19dcc3948p+2L, -0x1.cp+2L, 0x0p+0, INEXACT)
-T(RN, 0x1.288bbb0d6a1e5bdap+3L, 0x1.2p+3L, 0x0p+0, INEXACT)
-T(RN, 0x1.52efd0cd80496a5ap-1L, 0x1p+0L, 0x0p+0, INEXACT)
-T(RN, -0x1.a05cc754481d0bdp-2L, -0x0p+0L, 0x0p+0, INEXACT)
-T(RN, 0x1.1f9ef934745cad6p-1L, 0x1p+0L, 0x0p+0, INEXACT)
-T(RN, 0x1.8c5db097f744257ep-1L, 0x1p+0L, 0x0p+0, INEXACT)
-T(RN, -0x1.5b86ea8118a0e2bcp-1L, -0x1p+0L, 0x0p+0, INEXACT)
+T(RN, -0x1.02239f3c6a8f13dep+3L, -0x1p+3L, 0x0p+0, 0)
+T(RN, 0x1.161868e18bc67782p+2L, 0x1p+2L, 0x0p+0, 0)
+T(RN, -0x1.0c34b3e01e6e682cp+3L, -0x1p+3L, 0x0p+0, 0)
+T(RN, -0x1.a206f0a19dcc3948p+2L, -0x1.cp+2L, 0x0p+0, 0)
+T(RN, 0x1.288bbb0d6a1e5bdap+3L, 0x1.2p+3L, 0x0p+0, 0)
+T(RN, 0x1.52efd0cd80496a5ap-1L, 0x1p+0L, 0x0p+0, 0)
+T(RN, -0x1.a05cc754481d0bdp-2L, -0x0p+0L, 0x0p+0, 0)
+T(RN, 0x1.1f9ef934745cad6p-1L, 0x1p+0L, 0x0p+0, 0)
+T(RN, 0x1.8c5db097f744257ep-1L, 0x1p+0L, 0x0p+0, 0)
+T(RN, -0x1.5b86ea8118a0e2bcp-1L, -0x1p+0L, 0x0p+0, 0)
y = scalb(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s scalb(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s scalb(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperr(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s scalb(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s scalb(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = scalbf(p->x, p->x2);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s scalbf(%a,%a)==%a except: want %s", rstr(p->r), p->x, p->x2, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s scalbf(%a,%a)=%a, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s scalbf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s scalbf(%a,%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->x2, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = sin(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s sin(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s sin(%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)) {
- printf("%s sin(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s sin(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = sinf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s sinf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s sinf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s sinf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s sinf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = sinh(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s sinh(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s sinh(%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)) {
- printf("%s sinh(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s sinh(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = sinhf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s sinhf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s sinhf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s sinhf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s sinhf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = sinhl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s sinhl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s sinhl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s sinhl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s sinhl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = sinl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s sinl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s sinl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s sinl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s sinl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = sqrt(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s sqrt(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s sqrt(%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)) {
- printf("%s sqrt(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s sqrt(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = sqrtf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s sqrtf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s sqrtf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s sqrtf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s sqrtf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = sqrtl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s sqrtl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s sqrtl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s sqrtl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s sqrtl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = tan(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s tan(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s tan(%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)) {
- printf("%s tan(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s tan(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = tanf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s tanf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s tanf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s tanf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s tanf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = tanh(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s tanh(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s tanh(%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)) {
- printf("%s tanh(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s tanh(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = tanhf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s tanhf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s tanhf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s tanhf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s tanhf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = tanhl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s tanhl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s tanhl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s tanhl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s tanhl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = tanl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s tanl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s tanl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s tanl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s tanl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = tgamma(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s tgamma(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s tgamma(%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)) {
- printf("%s tgamma(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s tgamma(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = tgammaf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s tgammaf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s tgammaf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s tgammaf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s tgammaf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = tgammal(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s tgammal(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s tgammal(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s tgammal(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s tgammal(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = trunc(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s trunc(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s trunc(%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)) {
- printf("%s trunc(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s trunc(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = truncf(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s truncf(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s truncf(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s truncf(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s truncf(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = truncl(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s truncl(%La)==%La except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s truncl(%La)=%La, want %s",
+ p->file, p->line, rstr(p->r), p->x, p->y, estr(p->e));
printf(" got %s\n", estr(e));
err++;
}
d = ulperrl(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s truncl(%La) want %La got %La ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s truncl(%La) want %La got %La ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = y0(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s y0(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s y0(%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)) {
- printf("%s y0(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s y0(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = y0f(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s y0f(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s y0f(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s y0f(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s y0f(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = y1(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s y1(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s y1(%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)) {
- printf("%s y1(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s y1(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}
y = y1f(p->x);
e = getexcept();
if (!checkexcept(e, p->e, p->r)) {
- printf("%s y1f(%a)==%a except: want %s", rstr(p->r), p->x, p->y, estr(p->e));
+ printf("%s:%d: bad fp exception: %s y1f(%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 = ulperrf(y, p->y, p->dy);
if (!checkulp(d, p->r)) {
- printf("%s y1f(%a) want %a got %a ulperr %.3f = %a + %a\n",
- rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
+ printf("%s:%d: %s y1f(%a) want %a got %a ulperr %.3f = %a + %a\n",
+ p->file, p->line, rstr(p->r), p->x, p->y, y, d, d-p->dy, p->dy);
err++;
}
}