1 ! Offloading test checking interaction of pointer
2 ! and target with target where 3-D bounds have
4 ! REQUIRES: flang, amdgpu
6 ! RUN: %libomptarget-compile-fortran-run-and-check-generic
8 integer, pointer :: inArray(:,:,:)
9 integer, pointer :: outArray(:,:,:)
10 integer, target
:: in(3,3,3)
11 integer, target
:: out(3,3,3)
25 !$omp target map(tofrom:inArray(1:3, 1:3, 2:2), outArray(1:3, 1:3, 1:3))
28 outArray(k
, j
, 2) = inArray(k
, j
, 2)
37 ! CHECK: 0 0 0 0 0 0 0 0 0 42 42 42 42 42 42 42 42 42 0 0 0 0 0 0 0 0 0