gcc/testsuite/gfortran.dg/gomp/omp_parse2.f


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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