1
/* Test of exp() function.
2
$Id: exp-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; /* exp(x) */
22
{ { .fl= 0.0 }, { .fl= 1 } },
23
{ { .fl= -0.0 }, { .fl= 1 } },
26
{ { 0x7f800000 }, { 0x7f800000 } },
27
{ { 0xff800000 }, { 0x00000000 } },
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
{ { 0xc3000000 }, { .fl= 0 } },
41
{ { 0xc3800000 }, { .fl= 0 } },
42
{ { 0xc3ffffff }, { .fl= 0 } },
43
{ { 0xc4000000 }, { .fl= 0 } },
44
{ { 0xff7fffff }, { .fl= 0 } },
47
{ { .fl= 1.0 }, { 0x402df854 } },
48
{ { .fl= -1.0 }, { 0x3ebc5ab2 } },
51
{ { .fl= 0x0.000002p0 }, { .fl= 0x1.000002p0 } },
52
{ { .fl= 0x0.000004p0 }, { .fl= 0x1.000004p0 } },
53
{ { .fl= 0x0.000006p0 }, { .fl= 0x1.000006p0 } },
54
{ { .fl= 0x0.000010p0 }, { .fl= 0x1.000010p0 } },
55
{ { .fl= 0x0.000100p0 }, { .fl= 0x1.000100p0 } },
56
{ { .fl= 0x0.000800p0 }, { .fl= 0x1.000800p0 } },
58
{ { .fl= -0x0.000001p0 }, { .fl= 0x0.ffffffp0 } },
59
{ { .fl= -0x0.000002p0 }, { .fl= 0x0.fffffep0 } },
60
{ { .fl= -0x0.000003p0 }, { .fl= 0x0.fffffdp0 } },
61
{ { .fl= -0x0.000010p0 }, { .fl= 0x0.fffff0p0 } },
62
{ { .fl= -0x0.000100p0 }, { .fl= 0x0.ffff00p0 } },
63
{ { .fl= -0x0.001000p0 }, { .fl= 0x0.fff000p0 } },
66
void x_exit (int index)
69
fprintf (stderr, "t[%d]: %#lx\n", index - 1, v.lo);
71
exit (index ? index : -1);
79
for (i = 0; i < (int) (sizeof(t) / sizeof(t[0])); i++) {
80
x.lo = pgm_read_dword (& t[i].x);
81
z.lo = pgm_read_dword (& t[i].z);
83
/* Comparison is integer to verify the zero sign. */