blob: 6795efa4e85029b33b655390e43e38b3434a1336 [file] [log] [blame]
! { dg-do run }
! PR fortran/25219
implicit none
save
integer :: i, k
k = 3
!$omp parallel
!$omp do lastprivate (k)
do i = 1, 100
k = i
end do
!$omp end do
!$omp end parallel
if (k .ne. 100) stop 1
end