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