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