11 lines
276 B
Fortran
11 lines
276 B
Fortran
! { 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
|