1
/* Test of cos() function.
2
$Id: cos-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; /* cos(x) */
22
{ { .fl= +0.0 }, { .fl= 1.0 } },
23
{ { .fl= -0.0 }, { .fl= 1.0 } },
26
{ { 0x00000001 }, { .fl= 1.0 } },
27
{ { 0x00000100 }, { .fl= 1.0 } },
28
{ { 0x00010000 }, { .fl= 1.0 } },
29
{ { 0x007fffff }, { .fl= 1.0 } },
30
{ { 0x80000001 }, { .fl= 1.0 } },
31
{ { 0x80000100 }, { .fl= 1.0 } },
32
{ { 0x80010000 }, { .fl= 1.0 } },
33
{ { 0x807fffff }, { .fl= 1.0 } },
36
{ { 0x00800000 }, { .fl= 1.0 } },
37
{ { 0x01000000 }, { .fl= 1.0 } },
38
{ { 0x107fffff }, { .fl= 1.0 } },
39
{ { 0x80800000 }, { .fl= 1.0 } },
40
{ { 0x81000000 }, { .fl= 1.0 } },
41
{ { 0x907fffff }, { .fl= 1.0 } },
44
{ { .fl= 3.1415927 }, { .fl= -1.0 } },
45
{ { .fl= 6.2831853 }, { .fl= 1.0 } },
46
{ { .fl= -3.1415927 }, { .fl= -1.0 } },
47
{ { .fl= -6.2831853 }, { .fl= 1.0 } },
50
void x_exit (int index)
53
fprintf (stderr, "t[%d]: %#lx\n", index - 1, v.lo);
55
exit (index ? index : -1);
63
for (i = 0; i < (int) (sizeof(t) / sizeof(t[0])); i++) {
64
x.lo = pgm_read_dword (& t[i].x);
65
z.lo = pgm_read_dword (& t[i].z);
67
/* Comparison is integer to verify the zero sign. */