18 lines · plain
1! RUN: %flang_fc1 -fopenmp -fopenmp-version=51 -fdebug-dump-symbols %s | FileCheck %s2! OpenMP Version 5.13! 2.14.2 use_device_addr clause4! List item that appears in a use_device_addr clause has corresponding storage5! in the device data environment, references to the list item in the associated6! structured block are converted into references to the corresponding list item.7 8subroutine omp_target_data9 integer :: a(1024)10 !CHECK: b, TARGET size=4096 offset=4096: ObjectEntity type: INTEGER(4) shape: 1_8:1024_811 integer, target :: b(1024)12 a = 113 !$omp target data map(tofrom: a) use_device_addr(b)14 !CHECK: b (OmpUseDeviceAddr): HostAssoc15 b = a16 !$omp end target data17end subroutine omp_target_data18