gcc/testsuite/gcc.c-torture/execute/stdarg-2.c

   1 #include <stdarg.h>
   2
   3 extern void abort (void);
   4
   5 int foo_arg, bar_arg;
   6 long x;
   7 double d;
   8 va_list gap;
   9
  10 void
  11 foo (int v, va_list ap)
  12 {
  13   switch (v)
  14     {
  15     case 5:
  16       foo_arg = va_arg (ap, int) + va_arg (ap, double);
  17       foo_arg += va_arg (ap, long long);
  18       break;
  19     case 8:
  20       foo_arg = va_arg (ap, long long) + va_arg (ap, double);
  21       break;
  22     case 11:
  23       foo_arg = va_arg (ap, int) + va_arg (ap, long double);
  24       break;
  25     default:
  26       abort ();
  27     }
  28 }
  29
  30 void
  31 bar (int v)
  32 {
  33   if (v == 0x4002)
  34     {
  35       if (va_arg (gap, int) != 13 || va_arg (gap, double) != -14.0)
  36         abort ();
  37     }
  38   bar_arg = v;
  39 }
  40
  41 void
  42 f1 (int i, ...)
  43 {
  44   va_start (gap, i);
  45   x = va_arg (gap, long);
  46   va_end (gap);
  47 }
  48
  49 void
  50 f2 (int i, ...)
  51 {
  52   va_start (gap, i);
  53   bar (i);
  54   va_end (gap);
  55 }
  56
  57 void
  58 f3 (int i, ...)
  59 {
  60   va_list aps[10];
  61   va_start (aps[4], i);
  62   x = va_arg (aps[4], long);
  63   va_end (aps[4]);
  64 }
  65
  66 void
  67 f4 (int i, ...)
  68 {
  69   va_list aps[10];
  70   va_start (aps[4], i);
  71   bar (i);
  72   va_end (aps[4]);
  73 }
  74
  75 void
  76 f5 (int i, ...)
  77 {
  78   va_list aps[10];
  79   va_start (aps[4], i);
  80   foo (i, aps[4]);
  81   va_end (aps[4]);
  82 }
  83
  84 struct A { int i; va_list g; va_list h[2]; };
  85
  86 void
  87 f6 (int i, ...)
  88 {
  89   struct A a;
  90   va_start (a.g, i);
  91   x = va_arg (a.g, long);
  92   va_end (a.g);
  93 }
  94
  95 void
  96 f7 (int i, ...)
  97 {
  98   struct A a;
  99   va_start (a.g, i);
 100   bar (i);
 101   va_end (a.g);
 102 }
 103
 104 void
 105 f8 (int i, ...)
 106 {
 107   struct A a;
 108   va_start (a.g, i);
 109   foo (i, a.g);
 110   va_end (a.g);
 111 }
 112
 113 void
 114 f10 (int i, ...)
 115 {
 116   struct A a;
 117   va_start (a.h[1], i);
 118   x = va_arg (a.h[1], long);
 119   va_end (a.h[1]);
 120 }
 121
 122 void
 123 f11 (int i, ...)
 124 {
 125   struct A a;
 126   va_start (a.h[1], i);
 127   bar (i);
 128   va_end (a.h[1]);
 129 }
 130
 131 void
 132 f12 (int i, ...)
 133 {
 134   struct A a;
 135   va_start (a.h[1], i);
 136   foo (i, a.h[1]);
 137   va_end (a.h[1]);
 138 }
 139
 140 int
 141 main (void)
 142 {
 143   f1 (1, 79);
 144   if (x != 79)
 145     abort ();
 146   f2 (0x4002, 13, -14.0);
 147   if (bar_arg != 0x4002)
 148     abort ();
 149   f3 (3, 2031L);
 150   if (x != 2031)
 151     abort ();
 152   f4 (4, 18);
 153   if (bar_arg != 4)
 154     abort ();
 155   f5 (5, 1, 19.0, 18LL);
 156   if (foo_arg != 38)
 157     abort ();
 158   f6 (6, 18L);
 159   if (x != 18L)
 160     abort ();
 161   f7 (7);
 162   if (bar_arg != 7)
 163     abort ();
 164   f8 (8, 2031LL, 13.0);
 165   if (foo_arg != 2044)
 166     abort ();
 167   f10 (9, 180L);
 168   if (x != 180L)
 169     abort ();
 170   f11 (10);
 171   if (bar_arg != 10)
 172     abort ();
 173   f12 (11, 2030, 12.0L);
 174   if (foo_arg != 2042)
 175     abort ();
 176   return 0;
 177 }