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
55
56
57
58
59
|
/*
va-arg-5.c from the execute part of the gcc torture tests.
*/
#include <testfwk.h>
#pragma disable_warning 93
#include <stdarg.h>
va_double (int n, ...)
{
va_list args;
va_start (args, n);
if (va_arg (args, double) != 3.141592)
ASSERT (0);
if (va_arg (args, double) != 2.71827)
ASSERT (0);
if (va_arg (args, double) != 2.2360679)
ASSERT (0);
if (va_arg (args, double) != 2.1474836)
ASSERT (0);
va_end (args);
}
#if 0 // TODO: Enable when SDCC supports long double!
va_long_double (int n, ...)
{
va_list args;
va_start (args, n);
if (va_arg (args, long double) != 3.141592L)
ASSERT (0);
if (va_arg (args, long double) != 2.71827L)
ASSERT (0);
if (va_arg (args, long double) != 2.2360679L)
ASSERT (0);
if (va_arg (args, long double) != 2.1474836L)
ASSERT (0);
va_end (args);
}
#endif
void
testTortureExecute (void)
{
#ifndef __SDCC_pdk14 // Lack of memory
#if !(defined (__GNUC__) && __GNUC__ < 7) // Test fails on older GCC on 32-bit systems
va_double (4, 3.141592, 2.71827, 2.2360679, 2.1474836);
#if 0
va_long_double (4, 3.141592L, 2.71827L, 2.2360679L, 2.1474836L);
#endif
return;
#endif
#endif
}
|
