gcc/testsuite/gcc.dg/compat/scalar-by-value-dfp_x.c

   1 #include "compat-common.h"
   2
   3 #define T(NAME, TYPE, INITVAL)                                  \
   4 TYPE g01##NAME, g02##NAME, g03##NAME, g04##NAME;                \
   5 TYPE g05##NAME, g06##NAME, g07##NAME, g08##NAME;                \
   6 TYPE g09##NAME, g10##NAME, g11##NAME, g12##NAME;                \
   7 TYPE g13##NAME, g14##NAME, g15##NAME, g16##NAME;                \
   8                                                                 \
   9 extern void init##NAME (TYPE *p, TYPE v);                       \
  10 extern void checkg##NAME (void);                                \
  11 extern void                                                     \
  12 test##NAME (TYPE x01, TYPE x02, TYPE x03, TYPE x04,             \
  13             TYPE x05, TYPE x06, TYPE x07, TYPE x08,             \
  14             TYPE x09, TYPE x10, TYPE x11, TYPE x12,             \
  15             TYPE x13, TYPE x14, TYPE x15, TYPE x16);            \
  16 extern void testva##NAME (int n, ...);                          \
  17                                                                 \
  18 void                                                            \
  19 check##NAME (TYPE x, TYPE v)                                    \
  20 {                                                               \
  21   if (x != v + INITVAL)                                         \
  22     DEBUG_CHECK                                                 \
  23 }                                                               \
  24                                                                 \
  25 void                                                            \
  26 test2_##NAME (TYPE x01, TYPE x02, TYPE x03, TYPE x04,           \
  27               TYPE x05, TYPE x06, TYPE x07, TYPE x08)           \
  28 {                                                               \
  29   test##NAME (x01, g02##NAME, x02, g04##NAME,                   \
  30               x03, g06##NAME, x04, g08##NAME,                   \
  31               x05, g10##NAME, x06, g12##NAME,                   \
  32               x07, g14##NAME, x08, g16##NAME);                  \
  33 }                                                               \
  34                                                                 \
  35 void                                                            \
  36 testit##NAME (void)                                             \
  37 {                                                               \
  38   DEBUG_FPUTS (#NAME);                                          \
  39   DEBUG_FPUTS (" init: ");                                      \
  40   init##NAME (&g01##NAME,  1);                                  \
  41   init##NAME (&g02##NAME,  2);                                  \
  42   init##NAME (&g03##NAME,  3);                                  \
  43   init##NAME (&g04##NAME,  4);                                  \
  44   init##NAME (&g05##NAME,  5);                                  \
  45   init##NAME (&g06##NAME,  6);                                  \
  46   init##NAME (&g07##NAME,  7);                                  \
  47   init##NAME (&g08##NAME,  8);                                  \
  48   init##NAME (&g09##NAME,  9);                                  \
  49   init##NAME (&g10##NAME, 10);                                  \
  50   init##NAME (&g11##NAME, 11);                                  \
  51   init##NAME (&g12##NAME, 12);                                  \
  52   init##NAME (&g13##NAME, 13);                                  \
  53   init##NAME (&g14##NAME, 14);                                  \
  54   init##NAME (&g15##NAME, 15);                                  \
  55   init##NAME (&g16##NAME, 16);                                  \
  56   checkg##NAME ();                                              \
  57   DEBUG_NL;                                                     \
  58   DEBUG_FPUTS (#NAME);                                          \
  59   DEBUG_FPUTS (" test: ");                                      \
  60   test##NAME (g01##NAME, g02##NAME, g03##NAME, g04##NAME,       \
  61               g05##NAME, g06##NAME, g07##NAME, g08##NAME,       \
  62               g09##NAME, g10##NAME, g11##NAME, g12##NAME,       \
  63               g13##NAME, g14##NAME, g15##NAME, g16##NAME);      \
  64   DEBUG_NL;                                                     \
  65   DEBUG_FPUTS (#NAME);                                          \
  66   DEBUG_FPUTS (" testva:");                                     \
  67   DEBUG_NL;                                                     \
  68   testva##NAME (1,                                              \
  69                 g01##NAME);                                     \
  70   DEBUG_NL;                                                     \
  71   testva##NAME (2,                                              \
  72                 g01##NAME, g02##NAME);                          \
  73   DEBUG_NL;                                                     \
  74   testva##NAME (3,                                              \
  75                 g01##NAME, g02##NAME, g03##NAME);               \
  76   DEBUG_NL;                                                     \
  77   testva##NAME (4,                                              \
  78                 g01##NAME, g02##NAME, g03##NAME, g04##NAME);    \
  79   DEBUG_NL;                                                     \
  80   testva##NAME (5,                                              \
  81                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
  82                 g05##NAME);                                     \
  83   DEBUG_NL;                                                     \
  84   testva##NAME (6,                                              \
  85                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
  86                 g05##NAME, g06##NAME);                          \
  87   DEBUG_NL;                                                     \
  88   testva##NAME (7,                                              \
  89                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
  90                 g05##NAME, g06##NAME, g07##NAME);               \
  91   DEBUG_NL;                                                     \
  92   testva##NAME (8,                                              \
  93                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
  94                 g05##NAME, g06##NAME, g07##NAME, g08##NAME);    \
  95   DEBUG_NL;                                                     \
  96   testva##NAME (9,                                              \
  97                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
  98                 g05##NAME, g06##NAME, g07##NAME, g08##NAME,     \
  99                 g09##NAME);                                     \
 100   DEBUG_NL;                                                     \
 101   testva##NAME (10,                                             \
 102                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
 103                 g05##NAME, g06##NAME, g07##NAME, g08##NAME,     \
 104                 g09##NAME, g10##NAME);                          \
 105   DEBUG_NL;                                                     \
 106   testva##NAME (11,                                             \
 107                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
 108                 g05##NAME, g06##NAME, g07##NAME, g08##NAME,     \
 109                 g09##NAME, g10##NAME, g11##NAME);               \
 110   DEBUG_NL;                                                     \
 111   testva##NAME (12,                                             \
 112                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
 113                 g05##NAME, g06##NAME, g07##NAME, g08##NAME,     \
 114                 g09##NAME, g10##NAME, g11##NAME, g12##NAME);    \
 115   DEBUG_NL;                                                     \
 116   testva##NAME (13,                                             \
 117                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
 118                 g05##NAME, g06##NAME, g07##NAME, g08##NAME,     \
 119                 g09##NAME, g10##NAME, g11##NAME, g12##NAME,     \
 120                 g13##NAME);                                     \
 121   DEBUG_NL;                                                     \
 122   testva##NAME (14,                                             \
 123                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
 124                 g05##NAME, g06##NAME, g07##NAME, g08##NAME,     \
 125                 g09##NAME, g10##NAME, g11##NAME, g12##NAME,     \
 126                 g13##NAME, g14##NAME);                          \
 127   DEBUG_NL;                                                     \
 128   testva##NAME (15,                                             \
 129                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
 130                 g05##NAME, g06##NAME, g07##NAME, g08##NAME,     \
 131                 g09##NAME, g10##NAME, g11##NAME, g12##NAME,     \
 132                 g13##NAME, g14##NAME, g15##NAME);               \
 133   DEBUG_NL;                                                     \
 134   testva##NAME (16,                                             \
 135                 g01##NAME, g02##NAME, g03##NAME, g04##NAME,     \
 136                 g05##NAME, g06##NAME, g07##NAME, g08##NAME,     \
 137                 g09##NAME, g10##NAME, g11##NAME, g12##NAME,     \
 138                 g13##NAME, g14##NAME, g15##NAME, g16##NAME);    \
 139   DEBUG_NL;                                                     \
 140   DEBUG_FPUTS (#NAME);                                          \
 141   DEBUG_FPUTS (" test2: ");                                     \
 142   test2_##NAME (g01##NAME, g03##NAME, g05##NAME, g07##NAME,     \
 143                 g09##NAME, g11##NAME, g13##NAME, g15##NAME);    \
 144   DEBUG_NL;                                                     \
 145 }
 146
 147 T(d32, _Decimal32, 1.2df)
 148 T(d64, _Decimal64, 12.34dd)
 149 T(d128, _Decimal128, 123.456dl)
 150
 151 #undef T
 152
 153 void
 154 scalar_by_value_dfp_x ()
 155 {
 156 DEBUG_INIT
 157
 158 #define T(NAME) testit##NAME ();
 159
 160 T(d32)
 161 T(d64)
 162 T(d128)
 163
 164 DEBUG_FINI
 165
 166 if (fails != 0)
 167   abort ();
 168
 169 #undef T
 170 }