libgomp/testsuite/libgomp.c/target-4.c

   1 #include <omp.h>
   2 #include <stdlib.h>
   3
   4 int
   5 main ()
   6 {
   7   omp_set_dynamic (0);
   8   #pragma omp parallel num_threads (4)
   9   #pragma omp target if (0)
  10   #pragma omp single
  11   if (omp_get_num_threads () != 1)
  12     abort ();
  13   return 0;
  14 }