libgomp/testsuite/libgomp.fortran/pr25219.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! 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) call abort
end