blob: 510d337952c4a24931e6797e08d772fde555a365 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
c { dg-do compile }
c { dg-options "-fopenmp -fdump-tree-omplower" }
!$omp parallel
call bar
c$omp end parallel
C$omp p
*$omp+arallel
call bar
!$omp e
!$omp+ndparallel
end
! { dg-final { scan-tree-dump-times "pragma omp parallel" 2 "omplower" } }
! { dg-final { cleanup-tree-dump "omplower" } }
|
