gcc/testsuite/gcc.dg/compat/struct-by-value-17_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
   8 DEFS(cd, _Complex double)
   9 CHECKS(cd, _Complex double)
  10
  11 TEST(Scd1, _Complex double)
  12 TEST(Scd2, _Complex double)
  13 TEST(Scd3, _Complex double)
  14 TEST(Scd4, _Complex double)
  15 TEST(Scd5, _Complex double)
  16 TEST(Scd6, _Complex double)
  17 TEST(Scd7, _Complex double)
  18 TEST(Scd8, _Complex double)
  19 TEST(Scd9, _Complex double)
  20 TEST(Scd10, _Complex double)
  21 TEST(Scd11, _Complex double)
  22 TEST(Scd12, _Complex double)
  23 #endif
  24
  25 #undef T
  26
  27 void
  28 struct_by_value_17_x ()
  29 {
  30 DEBUG_INIT
  31
  32 #define T(TYPE, MTYPE) testit##TYPE ();
  33
  34 #ifndef SKIP_COMPLEX
  35 T(Scd1, _Complex double)
  36 T(Scd2, _Complex double)
  37 T(Scd3, _Complex double)
  38 T(Scd4, _Complex double)
  39 T(Scd5, _Complex double)
  40 T(Scd6, _Complex double)
  41 T(Scd7, _Complex double)
  42 T(Scd8, _Complex double)
  43 T(Scd9, _Complex double)
  44 T(Scd10, _Complex double)
  45 T(Scd11, _Complex double)
  46 T(Scd12, _Complex double)
  47 #endif
  48
  49 DEBUG_FINI
  50
  51 if (fails != 0)
  52   abort ();
  53
  54 #undef T
  55 }