gcc/testsuite/gcc.dg/compat/struct-by-value-14_x.c

   1 #include "compat-common.h"
   2
   3 #include "fp-struct-defs.h"
   4 #include "fp-struct-check.h"
   5 #include "fp-struct-test-by-value-x.h"
   6
   7 #ifndef SKIP_COMPLEX_INT
   8 DEFS(cl, _Complex long)
   9 CHECKS(cl, _Complex long)
  10
  11 TEST(Scl1, _Complex long)
  12 TEST(Scl2, _Complex long)
  13 TEST(Scl3, _Complex long)
  14 TEST(Scl4, _Complex long)
  15 TEST(Scl5, _Complex long)
  16 TEST(Scl6, _Complex long)
  17 TEST(Scl7, _Complex long)
  18 TEST(Scl8, _Complex long)
  19 TEST(Scl9, _Complex long)
  20 TEST(Scl10, _Complex long)
  21 TEST(Scl11, _Complex long)
  22 TEST(Scl12, _Complex long)
  23 TEST(Scl13, _Complex long)
  24 TEST(Scl14, _Complex long)
  25 TEST(Scl15, _Complex long)
  26 TEST(Scl16, _Complex long)
  27 #endif
  28
  29 #undef T
  30
  31 void
  32 struct_by_value_14_x ()
  33 {
  34 #ifndef SKIP_COMPLEX_INT
  35 DEBUG_INIT
  36
  37 #define T(TYPE, MTYPE) testit##TYPE ();
  38
  39 T(Scl1, _Complex long)
  40 T(Scl2, _Complex long)
  41 T(Scl3, _Complex long)
  42 T(Scl4, _Complex long)
  43 T(Scl5, _Complex long)
  44 T(Scl6, _Complex long)
  45 T(Scl7, _Complex long)
  46 T(Scl8, _Complex long)
  47 T(Scl9, _Complex long)
  48 T(Scl10, _Complex long)
  49 T(Scl11, _Complex long)
  50 T(Scl12, _Complex long)
  51 T(Scl13, _Complex long)
  52 T(Scl14, _Complex long)
  53 T(Scl15, _Complex long)
  54 T(Scl16, _Complex long)
  55
  56 DEBUG_FINI
  57
  58 if (fails != 0)
  59   abort ();
  60
  61 #undef T
  62 #endif
  63 }