1*6c640833Skettenis /* $OpenBSD: fpaccuracy.c,v 1.2 2018/03/10 20:52:58 kettenis Exp $ */
22b0358dfSmartynas
32b0358dfSmartynas /*
42b0358dfSmartynas * Written by Martynas Venckus. Public domain
52b0358dfSmartynas */
62b0358dfSmartynas
72b0358dfSmartynas #include <err.h>
82b0358dfSmartynas #include <stdio.h>
92b0358dfSmartynas
102b0358dfSmartynas #include "fpaccuracy.h"
112b0358dfSmartynas
122b0358dfSmartynas int
main(int argc,char * argv[])132b0358dfSmartynas main(int argc, char *argv[])
142b0358dfSmartynas {
152b0358dfSmartynas FILE *out;
162b0358dfSmartynas int retval = 0;
172b0358dfSmartynas
182b0358dfSmartynas if ((out = fopen("fpaccuracy.out", "w")) == NULL)
192b0358dfSmartynas err(1, NULL);
202b0358dfSmartynas
212b0358dfSmartynas fprintf(out, "%8s %5s %27s %26s %25s\n", "function", "tests",
222b0358dfSmartynas "max err in ulps", "argument (max err)", "value (max err)");
232b0358dfSmartynas retval |= fpaccuracy_Gamma(out);
242b0358dfSmartynas retval |= fpaccuracy_INV(out);
252b0358dfSmartynas retval |= fpaccuracy_Pix(out);
262b0358dfSmartynas retval |= fpaccuracy_acos(out);
272b0358dfSmartynas retval |= fpaccuracy_acosh(out);
282b0358dfSmartynas retval |= fpaccuracy_asin(out);
292b0358dfSmartynas retval |= fpaccuracy_asinh(out);
302b0358dfSmartynas retval |= fpaccuracy_atan(out);
312b0358dfSmartynas retval |= fpaccuracy_atanh(out);
322b0358dfSmartynas retval |= fpaccuracy_cos(out);
332b0358dfSmartynas retval |= fpaccuracy_cosh(out);
342b0358dfSmartynas retval |= fpaccuracy_erf(out);
352b0358dfSmartynas retval |= fpaccuracy_erfc(out);
362b0358dfSmartynas retval |= fpaccuracy_exp(out);
372b0358dfSmartynas retval |= fpaccuracy_j0(out);
382b0358dfSmartynas retval |= fpaccuracy_j1(out);
392b0358dfSmartynas retval |= fpaccuracy_lgamma(out);
402b0358dfSmartynas retval |= fpaccuracy_log(out);
412b0358dfSmartynas retval |= fpaccuracy_log10(out);
422b0358dfSmartynas retval |= fpaccuracy_pow2_x(out);
432b0358dfSmartynas retval |= fpaccuracy_powx_275(out);
442b0358dfSmartynas retval |= fpaccuracy_sin(out);
45*6c640833Skettenis retval |= fpaccuracy_sincos_sin(out);
46*6c640833Skettenis retval |= fpaccuracy_sincos_cos(out);
472b0358dfSmartynas retval |= fpaccuracy_sinh(out);
482b0358dfSmartynas retval |= fpaccuracy_sqrt(out);
492b0358dfSmartynas retval |= fpaccuracy_tan(out);
502b0358dfSmartynas retval |= fpaccuracy_tanh(out);
512b0358dfSmartynas retval |= fpaccuracy_y0(out);
522b0358dfSmartynas retval |= fpaccuracy_y1(out);
532b0358dfSmartynas
542b0358dfSmartynas fclose(out);
552b0358dfSmartynas
562b0358dfSmartynas return retval;
572b0358dfSmartynas }
582b0358dfSmartynas
59