flang/test/Semantics/OpenMP/declare-mapper-symbols.f90

   1 ! RUN: %flang_fc1 -fdebug-dump-symbols -fopenmp -fopenmp-version=50 %s | FileCheck %s
   2
   3 program main
   4 !CHECK-LABEL: MainProgram scope: main
   5   implicit none
   6
   7   type ty
   8      integer :: x
   9   end type ty
  10   !$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: default: Misc ConstructName
  15 !CHECK: mymapper: Misc ConstructName
  16 !CHECK: ty: DerivedType components: x
  17 !CHECK: DerivedType scope: ty
  18 !CHECK: OtherConstruct scope:
  19 !CHECK: mapped (OmpMapToFrom) {{.*}} ObjectEntity type: TYPE(ty)
  20 !CHECK: OtherConstruct scope:
  21 !CHECK: maptwo (OmpMapToFrom) {{.*}} ObjectEntity type: TYPE(ty)
  22
  23 end program main
  24