libgomp/testsuite/libgomp.fortran/teams-1.f90

   1 program main
   2   use omp_lib
   3   implicit none (type, external)
   4   integer :: i
   5
   6   !$omp teams num_teams (5)
   7     if (omp_get_num_teams () /= 5) stop 1
   8     !$omp distribute dist_schedule(static,1)
   9     do i = 0, 4
  10       if (omp_get_team_num () /= i) stop 2
  11     end do
  12   !$omp end teams
  13
  14   !$omp teams num_teams (7 : 9)
  15     if (omp_get_num_teams () < 7 .or. omp_get_num_teams () > 9) &
  16       stop 3
  17     !$omp distribute dist_schedule(static,1)
  18     do i = 0, omp_get_num_teams () - 1
  19       if (omp_get_team_num () /= i) stop 4
  20     end do
  21   !$omp end teams
  22 end program main