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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
/* Test structure passing by value. */
/* { dg-do run } */
/* { dg-options "-O2" } */
#define T(N) \
struct S##N { unsigned char i[N]; }; \
struct S##N g1s##N, g2s##N, g3s##N; \
\
void \
init##N (struct S##N *p, int i) \
{ \
int j; \
for (j = 0; j < N; j++) \
p->i[j] = i + j; \
} \
\
void \
check##N (struct S##N *p, int i) \
{ \
int j; \
for (j = 0; j < N; j++) \
if (p->i[j] != i + j) abort (); \
} \
\
void \
test##N (struct S##N s1, struct S##N s2, \
struct S##N s3) \
{ \
check##N (&s1, 64); \
check##N (&s2, 128); \
check##N (&s3, 192); \
} \
\
void \
test2_##N (struct S##N s1, struct S##N s2) \
{ \
test##N (s1, g2s##N, s2); \
} \
\
void \
testit##N (void) \
{ \
init##N (&g1s##N, 64); \
check##N (&g1s##N, 64); \
init##N (&g2s##N, 128); \
check##N (&g2s##N, 128); \
init##N (&g3s##N, 192); \
check##N (&g3s##N, 192); \
test##N (g1s##N, g2s##N, g3s##N); \
test2_##N (g1s##N, g3s##N); \
}
extern void abort (void);
extern void exit (int);
T(0) T(1) T(2) T(3) T(4) T(5) T(6) T(7)
T(8) T(9) T(10) T(11) T(12) T(13) T(14) T(15)
T(16) T(17) T(18) T(19) T(20) T(21) T(22) T(23)
T(24) T(25) T(26) T(27) T(28) T(29) T(30) T(31)
T(32) T(33) T(34) T(35) T(36) T(37) T(38) T(39)
T(40) T(41) T(42) T(43) T(44) T(45) T(46) T(47)
T(48) T(49) T(50) T(51) T(52) T(53) T(54) T(55)
T(56) T(57) T(58) T(59) T(60) T(61) T(62) T(63)
#undef T
int
main ()
{
#define T(N) testit##N ();
T(0) T(1) T(2) T(3) T(4) T(5) T(6) T(7)
T(8) T(9) T(10) T(11) T(12) T(13) T(14) T(15)
T(16) T(17) T(18) T(19) T(20) T(21) T(22) T(23)
T(24) T(25) T(26) T(27) T(28) T(29) T(30) T(31)
T(32) T(33) T(34) T(35) T(36) T(37) T(38) T(39)
T(40) T(41) T(42) T(43) T(44) T(45) T(46) T(47)
T(48) T(49) T(50) T(51) T(52) T(53) T(54) T(55)
T(56) T(57) T(58) T(59) T(60) T(61) T(62) T(63)
#undef T
exit (0);
}
|
