blob: beb1a828df29e9ab5b2b7ee9ad281973ceb0fd73 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
! 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
|
