f1178815d2
This PR adds an initial implementation for the map modifiers close, present and ompx_hold, primarily just required adding the appropriate map type flags to the map type bits. In the case of ompx_hold it required adding the map type to the OpenMP dialect. Close has a bit of a problem when utilised with the ALWAYS map type on descriptors, so it is likely we'll have to make sure close and always are not applied to the descriptor simultaneously in the future when we apply always to the descriptors to facilitate movement of descriptor information to device for consistency, however, we may find an alternative to this with further investigation. For the moment, it is a TODO/Note to keep track of it.
37 lines
951 B
Fortran
37 lines
951 B
Fortran
! This checks that the basic functionality of map type present functions as
|
|
! expected, emitting an omptarget error when the data is not present.
|
|
! 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()
|
|
double precision, dimension(:), allocatable :: arr
|
|
integer, parameter :: N = 16
|
|
integer :: i
|
|
|
|
allocate(arr(N))
|
|
|
|
!$omp target data map(present,alloc:arr)
|
|
|
|
!$omp target
|
|
do i = 1,N
|
|
arr(i) = 42.0d0
|
|
end do
|
|
!$omp end target
|
|
|
|
!$omp end target data
|
|
|
|
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{{.*}}
|