49 lines
893 B
Fortran
49 lines
893 B
Fortran
! PR fortran/35786
|
|
! { dg-do compile }
|
|
! { dg-options "-fopenmp" }
|
|
|
|
function fn7 ()
|
|
integer :: fn7
|
|
!$omp parallel private (fn7)
|
|
fn7 = 6
|
|
!$omp end parallel
|
|
fn7 = 7
|
|
end function fn7
|
|
function fn8 ()
|
|
integer :: fn8
|
|
call fn9
|
|
contains
|
|
subroutine fn9
|
|
!$omp parallel private (fn8)
|
|
fn8 = 6
|
|
!$omp end parallel
|
|
fn8 = 7
|
|
end subroutine fn9
|
|
end function fn8
|
|
function fn10 ()
|
|
integer :: fn10, fn11
|
|
entry fn11 ()
|
|
!$omp parallel private (fn10)
|
|
fn10 = 6
|
|
!$omp end parallel
|
|
!$omp parallel private (fn11)
|
|
fn11 = 6
|
|
!$omp end parallel
|
|
fn10 = 7
|
|
end function fn10
|
|
function fn12 ()
|
|
integer :: fn12, fn13
|
|
entry fn13 ()
|
|
call fn14
|
|
contains
|
|
subroutine fn14
|
|
!$omp parallel private (fn12)
|
|
fn12 = 6
|
|
!$omp end parallel
|
|
!$omp parallel private (fn13)
|
|
fn13 = 6
|
|
!$omp end parallel
|
|
fn12 = 7
|
|
end subroutine fn14
|
|
end function fn12
|