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

   1 ! { dg-do run }
   2
   3 type t
   4   integer, pointer :: p(:)
   5   integer, pointer :: p2(:)
   6 end type t
   7
   8 type(t) :: var
   9 integer, target :: tgt(5), tgt2(1000)
  10 var%p => tgt
  11 var%p2 => tgt2
  12
  13 p = 0
  14 p2 = 0
  15
  16 !$omp target map(tgt, tgt2(4:6), var)
  17   var%p(1) = 5
  18   var%p2(5) = 7
  19 !$omp end target
  20
  21 if (var%p(1).ne.5) stop 1
  22 if (var%p2(5).ne.7) stop 2
  23
  24 end
  25
  26 ! { dg-shouldfail "" { offload_device_nonshared_as } }