gcc/testsuite/gfortran.dg/gomp/pr43836.f90 - gcc - Git at Google

 ! PR fortran/43836
 ! { dg-do compile }
 ! { dg-options "-fopenmp -fexceptions -O2" }
 subroutine foo
 !$omp single
 !$omp parallel
   call bar
 !$omp end parallel
 !$omp end single
 end subroutine foo
	! PR fortran/43836
	! { dg-do compile }
	! { dg-options "-fopenmp -fexceptions -O2" }
	subroutine foo
	!$omp single
	!$omp parallel
	call bar
	!$omp end parallel
	!$omp end single
	end subroutine foo