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  }