libgomp/testsuite/libgomp.c-c++-common/for-15.c

   1 /* { dg-additional-options "-std=gnu99" { target c } } */
   2
   3 extern
   4 #ifdef __cplusplus
   5 "C"
   6 #endif
   7 void abort ();
   8
   9 #define M(x, y, z) O(x, y, z)
  10 #define O(x, y, z) x ## _ ## y ## _ ## z
  11
  12 #define F for
  13 #define G f
  14 #define S
  15 #define N(x) M(x, G, normal)
  16 #include "for-2.h"
  17 #undef S
  18 #undef N
  19 #undef F
  20 #undef G
  21
  22 #define F teams distribute
  23 #define G td
  24 #define S
  25 #define N(x) M(x, G, normal)
  26 #include "for-2.h"
  27 #undef S
  28 #undef N
  29 #undef F
  30 #undef G
  31
  32 #define F teams distribute
  33 #define G td_ds128
  34 #define S dist_schedule(static, 128)
  35 #define N(x) M(x, G, normal)
  36 #include "for-2.h"
  37 #undef S
  38 #undef N
  39 #undef F
  40 #undef G
  41
  42 #define F teams distribute simd
  43 #define G tds
  44 #define S
  45 #define N(x) M(x, G, normal)
  46 #include "for-2.h"
  47 #undef S
  48 #undef N
  49 #undef F
  50 #undef G
  51
  52 #define F teams distribute simd
  53 #define G tds_ds128
  54 #define S dist_schedule(static, 128)
  55 #define N(x) M(x, G, normal)
  56 #include "for-2.h"
  57 #undef S
  58 #undef N
  59 #undef F
  60 #undef G
  61
  62 #define F teams distribute parallel for
  63 #define G tdpf
  64 #include "for-1.h"
  65 #undef F
  66 #undef G
  67
  68 #define F teams distribute parallel for dist_schedule(static, 128)
  69 #define G tdpf_ds128
  70 #include "for-1.h"
  71 #undef F
  72 #undef G
  73
  74 #define F teams distribute parallel for simd
  75 #define G tdpfs
  76 #include "for-1.h"
  77 #undef F
  78 #undef G
  79
  80 #define F teams distribute parallel for simd dist_schedule(static, 128)
  81 #define G tdpfs_ds128
  82 #include "for-1.h"
  83 #undef F
  84 #undef G
  85
  86 int
  87 main ()
  88 {
  89   if (test_td_normal ()
  90       || test_td_ds128_normal ()
  91       || test_tds_normal ()
  92       || test_tds_ds128_normal ()
  93       || test_tdpf_static ()
  94       || test_tdpf_static32 ()
  95       || test_tdpf_auto ()
  96       || test_tdpf_guided32 ()
  97       || test_tdpf_runtime ()
  98       || test_tdpf_ds128_static ()
  99       || test_tdpf_ds128_static32 ()
 100       || test_tdpf_ds128_auto ()
 101       || test_tdpf_ds128_guided32 ()
 102       || test_tdpf_ds128_runtime ()
 103       || test_tdpfs_static ()
 104       || test_tdpfs_static32 ()
 105       || test_tdpfs_auto ()
 106       || test_tdpfs_guided32 ()
 107       || test_tdpfs_runtime ()
 108       || test_tdpfs_ds128_static ()
 109       || test_tdpfs_ds128_static32 ()
 110       || test_tdpfs_ds128_auto ()
 111       || test_tdpfs_ds128_guided32 ()
 112       || test_tdpfs_ds128_runtime ())
 113     abort ();
 114   return 0;
 115 }