8823448807
Many tests in the `offload` project have requirements defined by which targets are not supported rather than which platforms are supported. This patch aims to streamline the requirement definitions by adding four new feature tags: `host`, `gpu`, `amdgpu`, and `nvidiagpu`.
59 lines
1.1 KiB
Fortran
59 lines
1.1 KiB
Fortran
! 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
|