X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=src%2Fmath%2Fcbrtf.c;fp=src%2Fmath%2Fcbrtf.c;h=1e178a8af2274e81f7e7683ec328c1c06cb506ff;hb=f9d17902a35b6403b7c8354845e9f13f882c1c8e;hp=0000000000000000000000000000000000000000;hpb=1ee02029133b60651176619b0a6743a5d011c21b;p=libc-test diff --git a/src/math/cbrtf.c b/src/math/cbrtf.c new file mode 100644 index 0000000..1e178a8 --- /dev/null +++ b/src/math/cbrtf.c @@ -0,0 +1,35 @@ +#include +#include +#include "util.h" + +static struct f_f t[] = { + +#include "sanity/cbrtf.h" +}; + +int main(void) +{ + float y; + float d; + int e, i, err = 0; + struct f_f *p; + + for (i = 0; i < sizeof t/sizeof *t; i++) { + p = t + i; + setupfenv(p->r); + 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(" 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); + err++; + } + } + return !!err; +}