diff options
Diffstat (limited to 'test/monniaux/send_through/send_through_ccomp.c')
-rw-r--r-- | test/monniaux/send_through/send_through_ccomp.c | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/monniaux/send_through/send_through_ccomp.c b/test/monniaux/send_through/send_through_ccomp.c new file mode 100644 index 00000000..a683dd82 --- /dev/null +++ b/test/monniaux/send_through/send_through_ccomp.c @@ -0,0 +1,20 @@ +#include <stdio.h> +#include <math.h> +#include "send_through.h" + +double send_through_double(op_int_double f, int x, int y, double z) { + double w= f(x, f(y, z)); + int mu = 1; + return w; +} + +float send_through_float(op_int_float f, int x, int y, float z) { + float w= f(x, f(y, z)); + int mu = 1; + return w; +} + +void print_from_ccomp(double x) { + printf("x=%e x=%f x=%g x=%.03e x=%.03f x=%.03g x[rounded]=%ld\n", + x, x, x, x, x, x, lrint(x)); +} |