1
/* Test of cosh() function.
2
$Id: cosh-01.c,v 1.1 2007/02/05 21:35:58 dmix Exp $
14
volatile union lofl_u v = { .lo = 1 };
16
PROGMEM const struct { /* Table of test cases. */
17
union lofl_u x; /* argument */
18
union lofl_u z; /* cosh(x) */
22
{ { .fl= 0.0 }, { .fl= 1 } },
23
{ { .fl= -0.0 }, { .fl= 1 } },
26
{ { 0x7f800000 }, { 0x7f800000 } },
27
{ { 0xff800000 }, { 0x7f800000 } },
30
{ { 0x00000001 }, { .fl= 1 } },
31
{ { 0x00000100 }, { .fl= 1 } },
32
{ { 0x00010000 }, { .fl= 1 } },
33
{ { 0x007fffff }, { .fl= 1 } },
34
{ { 0x80000001 }, { .fl= 1 } },
35
{ { 0x80000100 }, { .fl= 1 } },
36
{ { 0x80010000 }, { .fl= 1 } },
37
{ { 0x807fffff }, { .fl= 1 } },
40
{ { .fl= 89.415989 }, { 0x7f800000 } },
41
{ { .fl= 100 }, { 0x7f800000 } },
42
{ { .fl= 1000 }, { 0x7f800000 } },
43
{ { 0x7f7fffff }, { 0x7f800000 } },
45
/* Arg too negative */
46
{ { .fl= -89.415989 }, { 0x7f800000 } },
47
{ { .fl= -100 }, { 0x7f800000 } },
48
{ { .fl= -12345 }, { 0x7f800000 } },
49
{ { 0xff7fffff }, { 0x7f800000 } },
52
{ { .fl= 0x1p-127 }, { .fl= 1 } },
53
{ { .fl= 0x1p-100 }, { .fl= 1 } },
54
{ { .fl= 0x1p-50 }, { .fl= 1 } },
55
{ { .fl= 0x1p-25 }, { .fl= 1 } },
56
{ { .fl= 0x0.000001p0 }, { .fl= 1 } },
57
{ { .fl= 0x0.0001p0 }, { .fl= 1 } },
58
{ { .fl= 0x0.001p0 }, { .fl= 1 } },
60
{ { .fl= -0x1p-127 }, { .fl= 1 } },
61
{ { .fl= -0x1p-100 }, { .fl= 1 } },
62
{ { .fl= -0x1p-50 }, { .fl= 1 } },
63
{ { .fl= -0x1p-25 }, { .fl= 1 } },
64
{ { .fl= -0x0.000001p0 }, { .fl= 1 } },
65
{ { .fl= -0x0.0001p0 }, { .fl= 1 } },
66
{ { .fl= -0x0.001p0 }, { .fl= 1 } },
69
void x_exit (int index)
72
fprintf (stderr, "t[%d]: %#lx\n", index - 1, v.lo);
74
exit (index ? index : -1);
82
for (i = 0; i < (int) (sizeof(t) / sizeof(t[0])); i++) {
83
x.lo = pgm_read_dword (& t[i].x);
84
z.lo = pgm_read_dword (& t[i].z);
86
/* Comparison is integer to verify the zero sign. */