24 lines · plain
1! RUN: %flang_fc1 -fdebug-dump-symbols -fopenmp -fopenmp-version=50 %s | FileCheck %s2 3program main4!CHECK-LABEL: MainProgram scope: MAIN5 implicit none6 7 type ty8 integer :: x9 end type ty10 !$omp declare mapper(mymapper : ty :: mapped) map(mapped, mapped%x)11 !$omp declare mapper(ty :: maptwo) map(maptwo, maptwo%x)12 13!! Note, symbols come out in their respective scope, but not in declaration order.14!CHECK: mymapper: MapperDetails15!CHECK: ty: DerivedType components: x16!CHECK: ty_omp_default_mapper: MapperDetails17!CHECK: DerivedType scope: ty18!CHECK: OtherConstruct scope:19!CHECK: mapped (OmpMapToFrom) {{.*}} ObjectEntity type: TYPE(ty)20!CHECK: OtherConstruct scope:21!CHECK: maptwo (OmpMapToFrom) {{.*}} ObjectEntity type: TYPE(ty)22 23end program main24