! { dg-do run }
  real, dimension (5) :: b
  b = 5
  call foo (b)
contains
  subroutine foo (a)
    real, dimension (5) :: a
    logical :: l
    l = .false.
!$omp parallel private (a) reduction (.or.:l)
    a = 15
    l = bar (a)
!$omp end parallel
    if (l) STOP 1
  end subroutine
  function bar (a)
    real, dimension (5) :: a
    logical :: bar
    bar = any (a .ne. 15)
  end function
end