libgomp/testsuite/libgomp.c/target-3.c

   1 #include <omp.h>
   2 #include <stdlib.h>
   3
   4 int
   5 main ()
   6 {
   7   if (omp_get_level ())
   8     abort ();
   9   #pragma omp target if (0)
  10   if (omp_get_level ())
  11     abort ();
  12   #pragma omp target if (0)
  13   #pragma omp teams
  14   #pragma omp distribute dist_schedule(static,1)
  15   for (int i = 0; i < 1; ++i)
  16     if (omp_get_level ())
  17       abort ();
  18   return 0;
  19 }