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

   1 /* { dg-options "-std=gnu99" { target c } } */
   2
   3 extern
   4 #ifdef __cplusplus
   5 "C"
   6 #endif
   7 void abort (void);
   8
   9 #define M(x, y, z) O(x, y, z)
  10 #define O(x, y, z) x ## _ ## y ## _ ## z
  11
  12 #define F taskloop
  13 #define G taskloop
  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 taskloop simd
  23 #define G taskloop_simd
  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 int
  33 main ()
  34 {
  35   int err = 0;
  36   #pragma omp parallel reduction(|:err)
  37     #pragma omp single
  38       {
  39         if (test_taskloop_normal ()
  40             || test_taskloop_simd_normal ())
  41           err = 1;
  42       }
  43   if (err)
  44     abort ();
  45   return 0;
  46 }