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