libgomp/testsuite/libgomp.c-c++-common/for-14.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 DO_PRAGMA(x) _Pragma (#x)
  10 #define OMPTEAMS DO_PRAGMA (omp teams)
  11 #define M(x, y, z) O(x, y, z)
  12 #define O(x, y, z) x ## _ ## y ## _ ## z
  13
  14 #define F distribute
  15 #define G d
  16 #define S
  17 #define N(x) M(x, G, normal)
  18 #include "for-2.h"
  19 #undef S
  20 #undef N
  21 #undef F
  22 #undef G
  23
  24 #define F distribute
  25 #define G d_ds128
  26 #define S dist_schedule(static, 128)
  27 #define N(x) M(x, G, normal)
  28 #include "for-2.h"
  29 #undef S
  30 #undef N
  31 #undef F
  32 #undef G
  33
  34 #define F distribute simd
  35 #define G ds
  36 #define S
  37 #define N(x) M(x, G, normal)
  38 #include "for-2.h"
  39 #undef S
  40 #undef N
  41 #undef F
  42 #undef G
  43
  44 #define F distribute simd
  45 #define G ds_ds128
  46 #define S dist_schedule(static, 128)
  47 #define N(x) M(x, G, normal)
  48 #include "for-2.h"
  49 #undef S
  50 #undef N
  51 #undef F
  52 #undef G
  53
  54 #define F distribute parallel for
  55 #define G dpf
  56 #include "for-1.h"
  57 #undef F
  58 #undef G
  59
  60 #define F distribute parallel for dist_schedule(static, 128)
  61 #define G dpf_ds128
  62 #include "for-1.h"
  63 #undef F
  64 #undef G
  65
  66 #define F distribute parallel for simd
  67 #define G dpfs
  68 #include "for-1.h"
  69 #undef F
  70 #undef G
  71
  72 #define F distribute parallel for simd dist_schedule(static, 128)
  73 #define G dpfs_ds128
  74 #include "for-1.h"
  75 #undef F
  76 #undef G
  77
  78 int
  79 main ()
  80 {
  81   int err = 0;
  82   err |= test_d_normal ();
  83   err |= test_d_ds128_normal ();
  84   err |= test_ds_normal ();
  85   err |= test_ds_ds128_normal ();
  86   err |= test_dpf_static ();
  87   err |= test_dpf_static32 ();
  88   err |= test_dpf_auto ();
  89   err |= test_dpf_guided32 ();
  90   err |= test_dpf_runtime ();
  91   err |= test_dpf_ds128_static ();
  92   err |= test_dpf_ds128_static32 ();
  93   err |= test_dpf_ds128_auto ();
  94   err |= test_dpf_ds128_guided32 ();
  95   err |= test_dpf_ds128_runtime ();
  96   err |= test_dpfs_static ();
  97   err |= test_dpfs_static32 ();
  98   err |= test_dpfs_auto ();
  99   err |= test_dpfs_guided32 ();
 100   err |= test_dpfs_runtime ();
 101   err |= test_dpfs_ds128_static ();
 102   err |= test_dpfs_ds128_static32 ();
 103   err |= test_dpfs_ds128_auto ();
 104   err |= test_dpfs_ds128_guided32 ();
 105   err |= test_dpfs_ds128_runtime ();
 106   if (err)
 107     abort ();
 108   return 0;
 109 }