libgomp/testsuite/libgomp.fortran/map-subarray-6.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

! { dg-do run }

type t
  integer, pointer :: p(:)
  integer, pointer :: p2(:)
end type t

type(t) :: var
integer, target :: tgt(5), tgt2(1000)
var%p => tgt
var%p2 => tgt2

p = 0
p2 = 0

!$omp target map(tgt, tgt2(4:6), var)
  var%p(1) = 5
  var%p2(5) = 7
!$omp end target

if (var%p(1).ne.5) stop 1
if (var%p2(5).ne.7) stop 2

end

! { dg-shouldfail "" { offload_device_nonshared_as } }