gcc/testsuite/gcc.dg/compat/struct-by-value-17a_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(Scd13, _Complex double)
  12 TEST(Scd14, _Complex double)
  13 TEST(Scd15, _Complex double)
  14 TEST(Scd16, _Complex double)
  15 #endif
  16
  17 #undef T
  18
  19 void
  20 struct_by_value_17a_x ()
  21 {
  22 DEBUG_INIT
  23
  24 #define T(TYPE, MTYPE) testit##TYPE ();
  25
  26 #ifndef SKIP_COMPLEX
  27 T(Scd13, _Complex double)
  28 T(Scd14, _Complex double)
  29 T(Scd15, _Complex double)
  30 T(Scd16, _Complex double)
  31 #endif
  32
  33 DEBUG_FINI
  34
  35 if (fails != 0)
  36   abort ();
  37
  38 #undef T
  39 }