1! PR fortran/25219
2
3  implicit none
4  save
5  integer :: i, k
6  k = 3
7!$omp parallel
8!$omp do lastprivate (k)
9  do i = 1, 100
10    k = i
11  end do
12!$omp end do
13!$omp end parallel
14  if (k .ne. 100) call abort
15end
16