view gcc/testsuite/gcc.dg/compat/struct-by-value-22_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

#ifndef SKIP_VLA_IN_STRUCT

#ifndef T
#include "compat-common.h"
#include "mixed-struct-defs.h"
#include "mixed-struct-init.h"

#define T(NAME, FIELDS, TYPE, FIELDINIT, FIELDTEST)			\
extern void testva##NAME (int n, ...);					\
									\
void									\
testit##NAME (int n)							\
{									\
  struct S { FIELDS TYPE a[n]; } s;					\
  int i;								\
  FIELDINIT;								\
  for (i = 0; i < n; ++i)						\
    s.a[i] = 12 + n - i;						\
  testva##NAME (n, s, n, s);						\
}

#include "struct-by-value-22_x.c"

#undef T

void
struct_by_value_22_x ()
{
  int n;
DEBUG_INIT

#define T(NAME, FIELDS, TYPE, FIELDINIT, FIELDTEST) testit##NAME (n);

  for (n = 0; n < 16; ++n)
    {
#include "struct-by-value-22_x.c"
      DEBUG_NL;
    }
  for (; n < 110; n += 13)
    {
#include "struct-by-value-22_x.c"
      DEBUG_NL;
    }

DEBUG_FINI

if (fails != 0)
  abort ();
}

#else

#define S(NAME, FIELDS, FIELDINIT, FIELDTEST)				\
  T(c##NAME, FIELDS, char, FIELDINIT, FIELDTEST)			\
  T(s##NAME, FIELDS, short, FIELDINIT, FIELDTEST)			\
  T(u##NAME, FIELDS, unsigned, FIELDINIT, FIELDTEST)			\
  T(d##NAME, FIELDS, double, FIELDINIT, FIELDTEST)
S(E, , do {} while (0), DEBUG_DOT)
S(n, int n;, s.n = n, if (s.n != n) DEBUG_CHECK)
#define U(TYPE)								\
S(TYPE, TYPE s;, init##TYPE (&s.s, n), check##TYPE (s.s, n))
U(Scd)
U(Scdc)
U(Sd)
U(Sdi)
U(Scsds)
U(Scsdsc)
U(Scsdis)
U(Scsdisc)
U(Ssds)
U(Ssdsc)
U(Scssdss)
U(Scssdssc)
U(Sfi)
U(Sfii)
U(Sfifi)
U(Sfiifii)
#undef S
#undef U

#endif

#endif