pr25219.f90\libgomp.fortran\testsuite\libgomp - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/libgomp/testsuite/libgomp.fortran/pr25219.f90

blob: 6795efa4e85029b33b655390e43e38b3434a1336 (plain)

! { dg-do run }
! 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) stop 1
end