libgomp/testsuite/libgomp.c/teams-5.c

   1 #include <omp.h>
   2 #include <stdlib.h>
   3
   4 int
   5 main ()
   6 {
   7   #pragma omp teams num_teams (2)
   8   {
   9     if (omp_get_num_teams () != 2)
  10       abort ();
  11     #pragma omp parallel if (0)
  12     #pragma omp target
  13     if (omp_get_num_teams () != 1 || omp_get_team_num () != 0)
  14       abort ();
  15   }
  16   return 0;
  17 }