libgomp/testsuite/libgomp.fortran/target-enter-data-4.f90

   1 implicit none
   2 type t
   3   integer :: dummy
   4   integer, pointer :: p1(:), p2(:)
   5   integer :: dummy2
   6 end type t
   7 type(t) :: var
   8 integer :: i
   9 allocate(var%p1(5),var%p2(2:4))
  10 var%p1 = [22,53,28,6,4]
  11 var%p2 = [46,679,54]
  12
  13 !$omp target enter data map(to:var%p1, var%p2)
  14 !$omp target
  15   if (.not.associated(var%p1).or.lbound(var%p1,1)/=1.or.ubound(var%p1,1)/=5) stop 1
  16   if (.not.associated(var%p2).or.lbound(var%p2,1)/=2.or.ubound(var%p2,1)/=4) stop 2
  17   if (any (var%p1 /= [22,53,28,6,4])) stop 3
  18   if (any (var%p2 /= [46,679,54])) stop 4
  19 !$omp end target
  20 !$omp target exit data map(from:var%p1, var%p2)
  21 end
  22