URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr35786-2.f90] - Rev 516
Compare with Previous | Blame | View Log
! 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