gcc/testsuite/gcc.dg/compat/scalar-return-2_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 TYPE test0##NAME (void);                                 \
  12 extern TYPE test1##NAME (TYPE);                                 \
  13                                                                 \
  14 void                                                            \
  15 check##NAME (TYPE x, TYPE v)                                    \
  16 {                                                               \
  17   if (x != v)                                                   \
  18     DEBUG_CHECK                                                 \
  19 }                                                               \
  20                                                                 \
  21 void                                                            \
  22 testit##NAME (void)                                             \
  23 {                                                               \
  24   TYPE rslt;                                                    \
  25   DEBUG_FPUTS (#NAME);                                          \
  26   DEBUG_FPUTS (" init: ");                                      \
  27   init##NAME (&g01##NAME,  1);                                  \
  28   init##NAME (&g02##NAME,  2);                                  \
  29   init##NAME (&g03##NAME,  3);                                  \
  30   init##NAME (&g04##NAME,  4);                                  \
  31   init##NAME (&g05##NAME,  5);                                  \
  32   init##NAME (&g06##NAME,  6);                                  \
  33   init##NAME (&g07##NAME,  7);                                  \
  34   init##NAME (&g08##NAME,  8);                                  \
  35   init##NAME (&g09##NAME,  9);                                  \
  36   init##NAME (&g10##NAME, 10);                                  \
  37   init##NAME (&g11##NAME, 11);                                  \
  38   init##NAME (&g12##NAME, 12);                                  \
  39   init##NAME (&g13##NAME, 13);                                  \
  40   init##NAME (&g14##NAME, 14);                                  \
  41   init##NAME (&g15##NAME, 15);                                  \
  42   init##NAME (&g16##NAME, 16);                                  \
  43   checkg##NAME ();                                              \
  44   DEBUG_NL;                                                     \
  45   DEBUG_FPUTS (#NAME);                                          \
  46   DEBUG_FPUTS (" test0: ");                                     \
  47   rslt = test0##NAME ();                                        \
  48   check##NAME (rslt, g01##NAME);                                \
  49   DEBUG_NL;                                                     \
  50   DEBUG_FPUTS (#NAME);                                          \
  51   DEBUG_FPUTS (" test1: ");                                     \
  52   rslt = test1##NAME (g01##NAME);                               \
  53   check##NAME (rslt, g01##NAME);                                \
  54   DEBUG_NL;                                                     \
  55 }
  56
  57 T(c, char, 21)
  58 T(uc, unsigned char, 22)
  59 T(sc, signed char, (-33))
  60 T(us, unsigned short, 41)
  61 T(ss, short, (-44))
  62 T(f, float, 90.0)
  63
  64 #undef T
  65
  66 void
  67 scalar_return_2_x ()
  68 {
  69 DEBUG_INIT
  70
  71 #define T(NAME) testit##NAME ();
  72
  73 T(c)
  74 T(uc)
  75 T(sc)
  76 T(us)
  77 T(ss)
  78 T(f)
  79
  80 DEBUG_FINI
  81
  82 if (fails != 0)
  83   abort ();
  84
  85 #undef T
  86 }