43 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=51 %s -o - | FileCheck %s2! RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=52 %s -o - | FileCheck %s3! RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=60 %s -o - | FileCheck %s4 5subroutine map_present_target_data6 integer :: x7!CHECK: %[[MAP:.*]] = omp.map.info {{.*}} map_clauses(present, to) {{.*}} {name = "x"}8!CHECK: omp.target_data map_entries(%[[MAP]] : {{.*}}) {9!$omp target data map(present, to: x)10!$omp end target data11end subroutine12 13subroutine map_present_update14 integer :: x15!CHECK: %[[MAP:.*]] = omp.map.info {{.*}} map_clauses(present, to) {{.*}} {name = "x"}16!CHECK: omp.target_update map_entries(%[[MAP]] : {{.*}})17!$omp target update to(present: x)18end subroutine19 20subroutine map_always21 integer :: x22!CHECK: %[[MAP:.*]] = omp.map.info {{.*}} map_clauses(always, tofrom) {{.*}} {name = "x"}23!CHECK: omp.target_data map_entries(%[[MAP]] : {{.*}}) {24!$omp target data map(always, tofrom: x)25!$omp end target data26end subroutine27 28subroutine map_close29 integer :: x30!CHECK: %[[MAP:.*]] = omp.map.info {{.*}} map_clauses(close, tofrom) {{.*}} {name = "x"}31!CHECK: omp.target_data map_entries(%[[MAP]] : {{.*}}) {32!$omp target data map(close, tofrom: x)33!$omp end target data34end subroutine35 36subroutine map_ompx_hold37 integer :: x38!CHECK: %[[MAP:.*]] = omp.map.info {{.*}} map_clauses(ompx_hold, tofrom) {{.*}} {name = "x"}39!CHECK: omp.target_data map_entries(%[[MAP]] : {{.*}}) {40!$omp target data map(ompx_hold, tofrom: x)41!$omp end target data42end subroutine43