pr95654.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/pr95654.f90

blob: 2dddd3df4fec91bf4e12a10be69c7c785f27687c (plain)

! { dg-do run }
program main
  implicit none
  integer :: d1
  !$omp target map(from: d1)
  !$omp teams distribute parallel do simd default(none) lastprivate(d1) num_teams (2) num_threads (1)
  do d1 = 0, 31
  end do
  !$omp end target
  if (d1 /= 32) stop 3
end program main