gcc/testsuite/gcc.c-torture/execute/va-arg-24.c

/* The purpose of this code is to test argument passing of a tuple of
   11 integers, with the break point between named and unnamed arguments
   at every possible position.	*/

#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>

static int errors = 0;

static void
verify (const char *tcase, int n[11])
{
  int i;
  for (i = 0; i <= 10; i++)
    if (n[i] != i)
      {
	printf (" %s: n[%d] = %d expected %d\n", tcase, i, n[i], i);
	errors++;
      }
}

#define STR(x) #x

#define p(i) int q##i,
#define P(i) n[i] = q##i;

#define p0 p(0)
#define p1 p(1)
#define p2 p(2)
#define p3 p(3)
#define p4 p(4)
#define p5 p(5)
#define p6 p(6)
#define p7 p(7)
#define p8 p(8)
#define p9 p(9)

#define P0 P(0)
#define P1 P(1)
#define P2 P(2)
#define P3 P(3)
#define P4 P(4)
#define P5 P(5)
#define P6 P(6)
#define P7 P(7)
#define P8 P(8)
#define P9 P(9)

#define TCASE(x, params, vecinit)		\
static void					\
varargs##x (params ...)				\
{						\
  va_list ap;					\
  int n[11];					\
  int i;					\
						\
  va_start (ap, q##x);				\
  vecinit					\
  for (i = x + 1; i <= 10; i++)			\
    n[i] = va_arg (ap, int);			\
  va_end (ap);					\
						\
  verify (STR(varargs##x), n);			\
}

#define TEST(x) varargs##x (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

TCASE(0, p0			      , P0			     )
TCASE(1, p0 p1			      , P0 P1			     )
TCASE(2, p0 p1 p2		      , P0 P1 P2		     )
TCASE(3, p0 p1 p2 p3		      , P0 P1 P2 P3		     )
TCASE(4, p0 p1 p2 p3 p4		      , P0 P1 P2 P3 P4		     )
TCASE(5, p0 p1 p2 p3 p4 p5	      , P0 P1 P2 P3 P4 P5	     )
TCASE(6, p0 p1 p2 p3 p4 p5 p6	      , P0 P1 P2 P3 P4 P5 P6	     )
TCASE(7, p0 p1 p2 p3 p4 p5 p6 p7      , P0 P1 P2 P3 P4 P5 P6 P7	     )
TCASE(8, p0 p1 p2 p3 p4 p5 p6 p7 p8   , P0 P1 P2 P3 P4 P5 P6 P7 P8   )
TCASE(9, p0 p1 p2 p3 p4 p5 p6 p7 p8 p9, P0 P1 P2 P3 P4 P5 P6 P7 P8 P9)

int main(void)
{
  TEST(0);
  TEST(1);
  TEST(2);
  TEST(3);
  TEST(4);
  TEST(5);
  TEST(6);
  TEST(7);
  TEST(8);
  TEST(9);

  if (errors)
    abort ();
  exit (0);
}