Subversion Repositories openrisc_2011-10-31

! 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