1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
/* $OpenBSD: complex.c,v 1.2 2015/07/16 13:42:06 martynas Exp $ */
/*
* Written by Martynas Venckus. Public domain
*/
#include <assert.h>
#include <complex.h>
#include <math.h>
#define PREC 1000
#define test(f, r, i) ( \
floor((__real__ (f)) * PREC) == floor((r) * PREC) && \
floor((__imag__ (f)) * PREC) == floor((i) * PREC) \
)
#define testf(f, r, i) ( \
floorf((__real__ (f)) * PREC) == floorf((r) * PREC) && \
floorf((__imag__ (f)) * PREC) == floorf((i) * PREC) \
)
#define testl(f, r, i) ( \
floorl((__real__ (f)) * PREC) == floorl((r) * PREC) && \
floorl((__imag__ (f)) * PREC) == floorl((i) * PREC) \
)
int
main(int argc, char *argv[])
{
double complex r, z4 = -1.1 - 1.1 * I;
float complex rf, z4f = -1.1F - 1.1F * I;
long double complex rl, z4l = -1.1L - 1.1L * I;
r = cacosh(z4);
assert(test(r, 1.150127, -2.256295));
r = casinh(z4);
assert(test(r, -1.150127, -0.685498));
r = catanh(z4);
assert(test(r, -0.381870, -1.071985));
rf = cacoshf(z4f);
assert(testf(rf, 1.150127F, -2.256295F));
rf = casinhf(z4f);
assert(testf(rf, -1.150127F, -0.685498F));
rf = catanhf(z4f);
assert(testf(rf, -0.381870F, -1.071985F));
rl = cacoshl(z4l);
assert(testl(rl, 1.150127L, -2.256295L));
rl = casinhl(z4l);
assert(testl(rl, -1.150127L, -0.685498L));
rl = catanhl(z4l);
assert(testl(rl, -0.381870L, -1.071985L));
return (0);
}
|
