libgomp/testsuite/libgomp.fortran/pr25219.f90

   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) STOP 1
  15 end