1! PR fortran/43836
2! { dg-do compile }
3! { dg-options "-fopenmp -fexceptions -O2" }
4subroutine foo
5!$omp single
6!$omp parallel
7  call bar
8!$omp end parallel
9!$omp end single
10end subroutine foo
11