f687ed9ff7
This aims to implement most of the initial arguments for defaultmap aside from firstprivate and none, and some of the more recent OpenMP 6 additions which will come in subsequent updates (with the OpenMP 6 variants needing parsing/semantic support first).
35 lines
968 B
Fortran
35 lines
968 B
Fortran
! This checks that the basic functionality of setting the implicit mapping
|
|
! behaviour of a target region to present incurs the present behaviour for
|
|
! the implicit map capture.
|
|
! REQUIRES: flang, amdgpu
|
|
! RUN: %libomptarget-compile-fortran-generic
|
|
! RUN: %libomptarget-run-fail-generic 2>&1 \
|
|
! RUN: | %fcheck-generic
|
|
|
|
! NOTE: This should intentionally fatal error in omptarget as it's not
|
|
! present, as is intended.
|
|
subroutine target_data_not_present()
|
|
implicit none
|
|
double precision, dimension(:), allocatable :: arr
|
|
integer, parameter :: N = 16
|
|
integer :: i
|
|
|
|
allocate(arr(N))
|
|
|
|
!$omp target defaultmap(present: allocatable)
|
|
do i = 1,N
|
|
arr(i) = 42.0d0
|
|
end do
|
|
!$omp end target
|
|
|
|
deallocate(arr)
|
|
return
|
|
end subroutine
|
|
|
|
program map_present
|
|
implicit none
|
|
call target_data_not_present()
|
|
end program
|
|
|
|
!CHECK: omptarget message: device mapping required by 'present' map type modifier does not exist for host address{{.*}}
|