21 lines
379 B
Fortran
21 lines
379 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fopenmp -fdump-tree-omplower" }
|
|
!$omp parallel
|
|
call bar
|
|
!$omp end parallel
|
|
!$omp p&
|
|
!$omp&arallel
|
|
call bar
|
|
!$omp e&
|
|
!$omp&ndparallel
|
|
!$omp &
|
|
!$omp & &
|
|
!$omp pa&
|
|
!$omp rallel
|
|
call bar
|
|
!$omp end parallel
|
|
end
|
|
|
|
! { dg-final { scan-tree-dump-times "pragma omp parallel" 3 "omplower" } }
|
|
! { dg-final { cleanup-tree-dump "omplower" } }
|