summaryrefslogtreecommitdiff
path: root/libgomp/testsuite/libgomp.fortran/pr25219.f90
blob: 7fe1a53aa1c1f05311d9ade93bb50feaffcdcc7d (plain)
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