blob: e62a784b5a824e28f844acb30f6d99b719c04e92 [file] [log] [blame]
! PR middle-end/27416
! { dg-do run }
integer :: j
j = 6
!$omp parallel num_threads (4)
call foo (j)
!$omp end parallel
if (j.ne.6+16) stop 1
end
subroutine foo (j)
integer :: i, j
!$omp do firstprivate (j) lastprivate (j)
do i = 1, 16
if (i.eq.16) j = j + i
end do
end subroutine foo