omp_parse2.f   [plain text]

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