libgomp/testsuite/libgomp.c/teams-4.c

   1 #include <omp.h>
   2 #include <stdlib.h>
   3
   4 int
   5 main ()
   6 {
   7   if (omp_get_num_teams () != 1 || omp_get_team_num () != 0)
   8     abort ();
   9   #pragma omp parallel num_threads (2)
  10   if (omp_get_num_teams () != 1 || omp_get_team_num () != 0)
  11     abort ();
  12   #pragma omp teams num_teams (4)
  13   {
  14     int team = omp_get_team_num ();
  15     if (omp_get_num_teams () != 4 || (unsigned) team >= 4U)
  16       abort ();
  17     #pragma omp parallel num_threads (3)
  18     if (omp_get_num_teams () != 4 || omp_get_team_num () != team)
  19       abort ();
  20     #pragma omp parallel if (0)
  21     #pragma omp target
  22     #pragma omp teams num_teams (2)
  23     if (omp_get_num_teams () != 2
  24         || (unsigned) omp_get_team_num () >= 2U)
  25       abort ();
  26     if (omp_get_num_teams () != 4 || (unsigned) team >= 4U)
  27       abort ();
  28   }
  29   return 0;
  30 }