view gcc/testsuite/gcc.dg/compat/struct-by-value-1_x.c @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line source

#define T(N)							\
struct S##N { unsigned char i[N]; };				\
struct S##N g1s##N, g2s##N, g3s##N;				\
								\
extern void init##N (struct S##N *p, int i);			\
extern void checkg##N (void);					\
extern void test##N (struct S##N s1,				\
    struct S##N s2, struct S##N s3);				\
								\
void								\
check##N (struct S##N x, int i)					\
{								\
  int j;							\
  for (j = 0; j < N; j++)					\
    if (x.i[j] != i + j) abort ();				\
}								\
								\
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);					\
  init##N (&g2s##N, 128);					\
  init##N (&g3s##N, 192);					\
  checkg##N ();							\
  test##N (g1s##N, g2s##N, g3s##N);				\
  test2_##N (g1s##N, g3s##N);					\
}

extern void abort (void);

#ifndef SKIP_ZERO_ARRAY
T(0)
#endif
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

void
struct_by_value_1_x ()
{
#define T(N) testit##N ();

#ifndef SKIP_ZERO_ARRAY
T(0)
#endif
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
}