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