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