Subversion Repositories openrisc

! { 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" } }