(root)/
gcc-13.2.0/
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  }