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   if (omp_get_level ())
  15     abort ();
  16   return 0;
  17 }