mirror of
https://forge.sourceware.org/marek/gcc.git
synced 2026-02-22 03:47:02 -05:00
407eaad25f
Fortran part to commit r12-5146-g48d7327f2aaf65 gcc/fortran/ChangeLog: * gfortran.h (struct gfc_omp_clauses): Rename num_teams to num_teams_upper, add num_teams_upper. * dump-parse-tree.c (show_omp_clauses): Update to handle lower-bound num_teams clause. * frontend-passes.c (gfc_code_walker): Likewise * openmp.c (gfc_free_omp_clauses, gfc_match_omp_clauses, resolve_omp_clauses): Likewise. * trans-openmp.c (gfc_trans_omp_clauses, gfc_split_omp_clauses, gfc_trans_omp_target): Likewise. libgomp/ChangeLog: * testsuite/libgomp.fortran/teams-1.f90: New test.
23 lines
564 B
Fortran
23 lines
564 B
Fortran
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
|