17 lines
706 B
Fortran
17 lines
706 B
Fortran
! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s
|
|
! OpenMP Version 5.1
|
|
! 2.14.2 use_device_addr clause
|
|
! List item that appears in a use_device_addr clause has corresponding storage
|
|
! in the device data environment, references to the list item in the associated
|
|
! structured block are converted into references to the corresponding list item.
|
|
|
|
subroutine omp_target_data
|
|
integer :: a(1024)
|
|
!CHECK: b, TARGET size=4096 offset=4096: ObjectEntity type: INTEGER(4) shape: 1_8:1024_8
|
|
integer, target :: b(1024)
|
|
a = 1
|
|
!$omp target data map(tofrom: a) use_device_addr(b)
|
|
!CHECK: b (OmpUseDeviceAddr): HostAssoc
|
|
b = a
|
|
!$omp end target data
|
|
end subroutine omp_target_data
|