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

   1 /* { dg-options "-std=gnu99" } */
   2
   3 extern void abort (void);
   4
   5 #define M(x, y, z) O(x, y, z)
   6 #define O(x, y, z) x ## _ ## y ## _ ## z
   7
   8 #define F taskloop
   9 #define G taskloop
  10 #define S
  11 #define N(x) M(x, G, normal)
  12 #include "for-2.h"
  13 #undef S
  14 #undef N
  15 #undef F
  16 #undef G
  17
  18 #define F taskloop simd
  19 #define G taskloop_simd
  20 #define S
  21 #define N(x) M(x, G, normal)
  22 #include "for-2.h"
  23 #undef S
  24 #undef N
  25 #undef F
  26 #undef G
  27
  28 int
  29 main ()
  30 {
  31   int err = 0;
  32   #pragma omp parallel reduction(|:err)
  33     #pragma omp single
  34       {
  35         if (test_taskloop_normal ()
  36             || test_taskloop_simd_normal ())
  37           err = 1;
  38       }
  39   if (err)
  40     abort ();
  41   return 0;
  42 }