Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
omp_parse2.f
blob: b0946c3b37bcd28468a63ab986510e2245b80f27 [
file
] [
log
] [
blame
]
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"
}
}