1! { dg-do compile } 2! { dg-options "-fopenmp -fdump-tree-omplower" } 3 !$omp parallel 4call bar 5 !$omp end parallel 6 !$omp p& 7!$omp&arallel 8call bar 9!$omp e& 10!$omp&ndparallel 11!$omp & 12!$omp & & 13!$omp pa& 14!$omp rallel 15call bar 16!$omp end parallel 17end 18 19! { dg-final { scan-tree-dump-times "pragma omp parallel" 3 "omplower" } } 20