gcc/testsuite/gcc.dg/compat/scalar-return-4_y.c

   1 #include <stdarg.h>
   2
   3 #include "compat-common.h"
   4
   5 #define T(NAME, TYPE, INITVAL)                                  \
   6 extern TYPE g01##NAME, g02##NAME, g03##NAME, g04##NAME;         \
   7 extern TYPE g05##NAME, g06##NAME, g07##NAME, g08##NAME;         \
   8 extern TYPE g09##NAME, g10##NAME, g11##NAME, g12##NAME;         \
   9 extern TYPE g13##NAME, g14##NAME, g15##NAME, g16##NAME;         \
  10                                                                 \
  11 extern void check##NAME (TYPE x, TYPE v);                       \
  12                                                                 \
  13 void                                                            \
  14 init##NAME (TYPE *p, TYPE v)                                    \
  15 {                                                               \
  16   *p = v + INITVAL;                                             \
  17 }                                                               \
  18                                                                 \
  19 void                                                            \
  20 checkg##NAME (void)                                             \
  21 {                                                               \
  22   check##NAME (g01##NAME,  1+INITVAL);                          \
  23   check##NAME (g02##NAME,  2+INITVAL);                          \
  24   check##NAME (g03##NAME,  3+INITVAL);                          \
  25   check##NAME (g04##NAME,  4+INITVAL);                          \
  26   check##NAME (g05##NAME,  5+INITVAL);                          \
  27   check##NAME (g06##NAME,  6+INITVAL);                          \
  28   check##NAME (g07##NAME,  7+INITVAL);                          \
  29   check##NAME (g08##NAME,  8+INITVAL);                          \
  30   check##NAME (g09##NAME,  9+INITVAL);                          \
  31   check##NAME (g10##NAME, 10+INITVAL);                          \
  32   check##NAME (g11##NAME, 11+INITVAL);                          \
  33   check##NAME (g12##NAME, 12+INITVAL);                          \
  34   check##NAME (g13##NAME, 13+INITVAL);                          \
  35   check##NAME (g14##NAME, 14+INITVAL);                          \
  36   check##NAME (g15##NAME, 15+INITVAL);                          \
  37   check##NAME (g16##NAME, 16+INITVAL);                          \
  38 }                                                               \
  39                                                                 \
  40 TYPE                                                            \
  41 test0##NAME (void)                                              \
  42 {                                                               \
  43   return g01##NAME;                                             \
  44 }                                                               \
  45                                                                 \
  46 TYPE                                                            \
  47 test1##NAME (TYPE x01)                                          \
  48 {                                                               \
  49   return x01;                                                   \
  50 }                                                               \
  51                                                                 \
  52 TYPE                                                            \
  53 testva##NAME (int n, ...)                                       \
  54 {                                                               \
  55   int i;                                                        \
  56   TYPE rslt;                                                    \
  57   va_list ap;                                                   \
  58   va_start (ap, n);                                             \
  59   for (i = 0; i < n; i++)                                       \
  60     rslt = va_arg (ap, TYPE);                                   \
  61   va_end (ap);                                                  \
  62   return rslt;                                                  \
  63 }
  64
  65 #ifndef SKIP_COMPLEX
  66 #ifndef SKIP_COMPLEX_INT
  67 T(cc, _Complex char, CINT (0, 1))
  68 T(cs, _Complex short, CINT (1, 2))
  69 #endif
  70 T(cf, _Complex float, CDBL (1.0, 2.0))
  71 #endif