[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / gomp / omp_parse1.f90

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