00ab44ee66
If there is a clause that is allowed on a given directive in a later version of the OpenMP spec, report an error and provide the minimal spec version that allows the clause. The case where a clause is not allowed on a directive at all is already handled elsewhere.
18 lines
726 B
Fortran
18 lines
726 B
Fortran
! RUN: %flang_fc1 -fopenmp -fopenmp-version=51 -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
|