1! PR fortran/35786
2! { dg-do compile }
3! { dg-options "-fopenmp" }
4
5function fn7 ()
6  integer :: fn7
7  !$omp parallel private (fn7)
8    fn7 = 6
9  !$omp end parallel
10  fn7 = 7
11end function fn7
12function fn8 ()
13  integer :: fn8
14  call fn9
15contains
16  subroutine fn9
17    !$omp parallel private (fn8)
18      fn8 = 6
19    !$omp end parallel
20    fn8 = 7
21  end subroutine fn9
22end function fn8
23function fn10 ()
24  integer :: fn10, fn11
25  entry fn11 ()
26  !$omp parallel private (fn10)
27    fn10 = 6
28  !$omp end parallel
29  !$omp parallel private (fn11)
30    fn11 = 6
31  !$omp end parallel
32  fn10 = 7
33end function fn10
34function fn12 ()
35  integer :: fn12, fn13
36  entry fn13 ()
37  call fn14
38contains
39  subroutine fn14
40    !$omp parallel private (fn12)
41      fn12 = 6
42    !$omp end parallel
43    !$omp parallel private (fn13)
44      fn13 = 6
45    !$omp end parallel
46    fn12 = 7
47  end subroutine fn14
48end function fn12
49