Subversion Repositories openrisc

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