31 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=50 %s -o - | FileCheck %s2program p3 integer, parameter :: n = 2564 type t15 integer :: x(256)6 end type t17 8 !$omp declare mapper(xx : t1 :: nn) map(to: nn, nn%x)9 !$omp declare mapper(t1 :: nn) map(from: nn)10 11 !CHECK-LABEL: omp.declare_mapper @_QQFt1_omp_default_mapper : !fir.type<_QFTt1{x:!fir.array<256xi32>}>12 !CHECK-LABEL: omp.declare_mapper @_QQFxx : !fir.type<_QFTt1{x:!fir.array<256xi32>}>13 14 type(t1) :: a, b15 !CHECK: %[[MAP_A:.*]] = omp.map.info var_ptr(%{{.*}} : {{.*}}, {{.*}}) map_clauses(tofrom) capture(ByRef) mapper(@_QQFxx) -> {{.*}} {name = "a"}16 !CHECK: omp.target map_entries(%[[MAP_A]] -> %{{.*}}, %{{.*}} -> %{{.*}} : {{.*}}, {{.*}}) {17 !$omp target map(mapper(xx) : a)18 do i = 1, n19 a%x(i) = i20 end do21 !$omp end target22 23 !CHECK: %[[MAP_B:.*]] = omp.map.info var_ptr(%{{.*}} : {{.*}}, {{.*}}) map_clauses(tofrom) capture(ByRef) mapper(@_QQFt1_omp_default_mapper) -> {{.*}} {name = "b"}24 !CHECK: omp.target map_entries(%[[MAP_B]] -> %{{.*}}, %{{.*}} -> %{{.*}} : {{.*}}, {{.*}}) {25 !$omp target map(mapper(default) : b)26 do i = 1, n27 b%x(i) = i28 end do29 !$omp end target30end program p31