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
|
/* Test of transcendent float functions.
Original from Jesus Calvino-Fraga
func: SQRTF, LOGF, POWF, TANF
*/
#include <testfwk.h>
#include <math.h>
#if defined (__STDC_IEC_559__) || defined (__SDCC)
#define {func} 1
#endif
void
testTrans(void)
{
#ifdef SQRTF
ASSERT(fabsf (sqrtf (5.0) - 2.23606801) < 0.00001);
#endif
#ifdef LOGF
ASSERT(fabsf (logf (124.0) - 4.82028150) < 0.00001);
ASSERT(fabsf (log10f (124.0) - 2.09342169) < 0.00001);
#endif
#ifdef POWF
/* too big for small model */
# ifndef __SDCC_MODEL_SMALL
ASSERT(fabsf (powf (1.5, 2.0) - 2.24999976) < 0.00001);
# endif
#endif
#ifdef TANF
ASSERT(fabsf (tanf (1.6) - -34.23250579) < 0.00001);
#endif
}
|
