xref: /llvm-project/offload/test/offloading/fortran/target-map-pointer-target-scopes.f90 (revision 372344995568cae076477a8b0e98fcdec7c49379)

! Offloading test checking interaction of pointer and target with target across
! multiple scopes
! REQUIRES: flang, amdgpu

! RUN: %libomptarget-compile-fortran-run-and-check-generic
module test
    contains
  subroutine func_arg(arg_alloc)
    integer,  pointer, intent (inout) :: arg_alloc(:)

  !$omp target map(tofrom: arg_alloc)
    do index = 1, 10
      arg_alloc(index) = arg_alloc(index) + index
    end do
  !$omp end target

    print *, arg_alloc
  end subroutine func_arg
end module

subroutine func
   integer,  pointer :: local_alloc(:)
   integer, target :: b(10)
   local_alloc => b

  !$omp target map(tofrom: local_alloc)
    do index = 1, 10
      local_alloc(index) = index
    end do
  !$omp end target

    print *, local_alloc
  end subroutine func


  program main
  use test
  integer,  pointer :: map_ptr(:)
  integer, target :: b(10)

  map_ptr => b

  !$omp target map(tofrom: map_ptr)
    do index = 1, 10
      map_ptr(index) = index
    end do
  !$omp end target

   call func

   print *, map_ptr

   call func_arg(map_ptr)
end program

!CHECK: 1 2 3 4 5 6 7 8 9 10
!CHECK: 1 2 3 4 5 6 7 8 9 10
!CHECK: 2 4 6 8 10 12 14 16 18 20