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