gomp-20050608-branch/gcc/testsuite/gcc.dg/compat/struct-by-value-12_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(cs, _Complex short)
   9 CHECKS(cs, _Complex short)
  10
  11 TEST(Scs1, _Complex short)
  12 TEST(Scs2, _Complex short)
  13 TEST(Scs3, _Complex short)
  14 TEST(Scs4, _Complex short)
  15 TEST(Scs5, _Complex short)
  16 TEST(Scs6, _Complex short)
  17 TEST(Scs7, _Complex short)
  18 TEST(Scs8, _Complex short)
  19 TEST(Scs9, _Complex short)
  20 TEST(Scs10, _Complex short)
  21 TEST(Scs11, _Complex short)
  22 TEST(Scs12, _Complex short)
  23 TEST(Scs13, _Complex short)
  24 TEST(Scs14, _Complex short)
  25 TEST(Scs15, _Complex short)
  26 TEST(Scs16, _Complex short)
  27 #endif
  28
  29 #undef T
  30
  31 void
  32 struct_by_value_12_x ()
  33 {
  34 #ifndef SKIP_COMPLEX_INT
  35 DEBUG_INIT
  36
  37 #define T(TYPE, MTYPE) testit##TYPE ();
  38
  39 T(Scs1, _Complex short)
  40 T(Scs2, _Complex short)
  41 T(Scs3, _Complex short)
  42 T(Scs4, _Complex short)
  43 T(Scs5, _Complex short)
  44 T(Scs6, _Complex short)
  45 T(Scs7, _Complex short)
  46 T(Scs8, _Complex short)
  47 T(Scs9, _Complex short)
  48 T(Scs10, _Complex short)
  49 T(Scs11, _Complex short)
  50 T(Scs12, _Complex short)
  51 T(Scs13, _Complex short)
  52 T(Scs14, _Complex short)
  53 T(Scs15, _Complex short)
  54 T(Scs16, _Complex short)
  55
  56 DEBUG_FINI
  57
  58 if (fails != 0)
  59   abort ();
  60
  61 #undef T
  62 #endif
  63 }