2010-12-20 Tobias Burnus <burnus@net-b.de>
[official-gcc.git] / gcc / testsuite / gfortran.dg / gomp / pr43836.f90
blobcf86523f52b782b63924310eb90b42755bd3e4fd
1 ! PR fortran/43836
2 ! { dg-do compile }
3 ! { dg-options "-fopenmp -fexceptions -O2" }
4 subroutine foo
5 !$omp single
6 !$omp parallel
7 call bar
8 !$omp end parallel
9 !$omp end single
10 end subroutine foo