gcc/testsuite/gcc.dg/compat/struct-return-21_x.c

   1 #include "compat-common.h"
   2
   3 #ifdef SKIP_VA
   4 const int test_va = 0;
   5 #else
   6 const int test_va = 1;
   7 #endif
   8
   9 #define T(TYPE)                                                 \
  10 TYPE g01##TYPE, g02##TYPE, g03##TYPE, g04##TYPE;                \
  11 TYPE g05##TYPE, g06##TYPE, g07##TYPE, g08##TYPE;                \
  12 TYPE g09##TYPE, g10##TYPE, g11##TYPE, g12##TYPE;                \
  13 TYPE g13##TYPE, g14##TYPE, g15##TYPE, g16##TYPE;                \
  14                                                                 \
  15 extern void init##TYPE (TYPE *p, int i);                        \
  16 extern void checkg##TYPE (void);                                \
  17 extern TYPE test0##TYPE (void);                                 \
  18 extern TYPE test1##TYPE (TYPE);                                 \
  19 extern TYPE testva##TYPE (int n, ...);                          \
  20                                                                 \
  21 void                                                            \
  22 testit##TYPE (void)                                             \
  23 {                                                               \
  24   TYPE rslt;                                                    \
  25   DEBUG_FPUTS (#TYPE);                                          \
  26   DEBUG_FPUTS (" init: ");                                      \
  27   init##TYPE  (&g01##TYPE,  1);                                 \
  28   init##TYPE  (&g02##TYPE,  2);                                 \
  29   init##TYPE  (&g03##TYPE,  3);                                 \
  30   init##TYPE  (&g04##TYPE,  4);                                 \
  31   init##TYPE  (&g05##TYPE,  5);                                 \
  32   init##TYPE  (&g06##TYPE,  6);                                 \
  33   init##TYPE  (&g07##TYPE,  7);                                 \
  34   init##TYPE  (&g08##TYPE,  8);                                 \
  35   init##TYPE  (&g09##TYPE,  9);                                 \
  36   init##TYPE  (&g10##TYPE, 10);                                 \
  37   init##TYPE  (&g11##TYPE, 11);                                 \
  38   init##TYPE  (&g12##TYPE, 12);                                 \
  39   init##TYPE  (&g13##TYPE, 13);                                 \
  40   init##TYPE  (&g14##TYPE, 14);                                 \
  41   init##TYPE  (&g15##TYPE, 15);                                 \
  42   init##TYPE  (&g16##TYPE, 16);                                 \
  43   checkg##TYPE ();                                              \
  44   DEBUG_NL;                                                     \
  45   DEBUG_FPUTS (#TYPE);                                          \
  46   DEBUG_FPUTS (" test0: ");                                     \
  47   rslt = test0##TYPE ();                                        \
  48   check##TYPE (rslt, 1);                                        \
  49   DEBUG_NL;                                                     \
  50   DEBUG_FPUTS (#TYPE);                                          \
  51   DEBUG_FPUTS (" test1: ");                                     \
  52   rslt = test1##TYPE (g01##TYPE);                               \
  53   check##TYPE (rslt, 1);                                        \
  54   if (test_va)                                                  \
  55     {                                                           \
  56       DEBUG_NL;                                                 \
  57       DEBUG_FPUTS (#TYPE);                                      \
  58       DEBUG_FPUTS (" testva: ");                                \
  59       rslt = testva##TYPE (1, g01##TYPE);                       \
  60       check##TYPE (rslt, 1);                                    \
  61       rslt = testva##TYPE (5, g01##TYPE, g02##TYPE,             \
  62                            g03##TYPE, g04##TYPE,                \
  63                            g05##TYPE);                          \
  64       check##TYPE (rslt, 5);                                    \
  65       rslt = testva##TYPE (9, g01##TYPE, g02##TYPE,             \
  66                            g03##TYPE, g04##TYPE,                \
  67                            g05##TYPE, g06##TYPE,                \
  68                            g07##TYPE, g08##TYPE,                \
  69                            g09##TYPE);                          \
  70       check##TYPE (rslt, 9);                                    \
  71       rslt = testva##TYPE (16, g01##TYPE, g02##TYPE,            \
  72                            g03##TYPE, g04##TYPE,                \
  73                            g05##TYPE, g06##TYPE,                \
  74                            g07##TYPE, g08##TYPE,                \
  75                            g09##TYPE, g10##TYPE,                \
  76                            g11##TYPE, g12##TYPE,                \
  77                            g13##TYPE, g14##TYPE,                \
  78                            g15##TYPE, g16##TYPE);               \
  79       check##TYPE (rslt, 16);                                   \
  80     }                                                           \
  81   DEBUG_NL;                                                     \
  82 }
  83
  84 #include "mixed-struct-defs.h"
  85 #include "mixed-struct-check.h"
  86
  87 T(Sfi)
  88 T(Sfii)
  89 T(Sfifi)
  90 T(Sfiifii)
  91
  92 #undef T
  93
  94 void
  95 struct_return_21_x ()
  96 {
  97 DEBUG_INIT
  98
  99 #define T(TYPE) testit##TYPE ();
 100
 101 T(Sfi)
 102 T(Sfii)
 103 T(Sfifi)
 104 T(Sfiifii)
 105
 106 DEBUG_FINI
 107
 108 if (fails != 0)
 109   abort ();
 110
 111 #undef T
 112 }