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