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