flang/test/Parser/OpenMP/declare-mapper-unparse.f90

   1 ! RUN: %flang_fc1 -fdebug-unparse-no-sema -fopenmp %s | FileCheck --ignore-case %s
   2 ! RUN: %flang_fc1 -fdebug-dump-parse-tree-no-sema -fopenmp %s | FileCheck --check-prefix="PARSE-TREE" %s
   3 program main
   4 !CHECK-LABEL: program main
   5   implicit none
   6
   7   type ty
   8      integer :: x
   9   end type ty
  10
  11
  12 !CHECK: !$OMP DECLARE MAPPER (mymapper:ty::mapped) MAP(mapped,mapped%x)
  13   !$omp declare mapper(mymapper : ty :: mapped) map(mapped, mapped%x)
  14
  15 !PARSE-TREE:      OpenMPDeclareMapperConstruct
  16 !PARSE-TREE:        OmpDeclareMapperSpecifier
  17 !PARSE-TREE:         Name = 'mymapper'
  18 !PARSE-TREE:         TypeSpec -> DerivedTypeSpec
  19 !PARSE-TREE:           Name = 'ty'
  20 !PARSE-TREE:         Name = 'mapped'
  21 !PARSE-TREE:        OmpMapClause
  22 !PARSE-TREE:          OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'mapped'
  23 !PARSE-TREE:          OmpObject -> Designator -> DataRef -> StructureComponent
  24 !PARSE-TREE:           DataRef -> Name = 'mapped'
  25 !PARSE-TREE:           Name = 'x'
  26
  27 !CHECK: !$OMP DECLARE MAPPER (ty::mapped) MAP(mapped,mapped%x)
  28   !$omp declare mapper(ty :: mapped) map(mapped, mapped%x)
  29
  30 !PARSE-TREE:      OpenMPDeclareMapperConstruct
  31 !PARSE-TREE:        OmpDeclareMapperSpecifier
  32 !PARSE-TREE:         TypeSpec -> DerivedTypeSpec
  33 !PARSE-TREE:           Name = 'ty'
  34 !PARSE-TREE:         Name = 'mapped'
  35 !PARSE-TREE:        OmpMapClause
  36 !PARSE-TREE:          OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'mapped'
  37 !PARSE-TREE:          OmpObject -> Designator -> DataRef -> StructureComponent
  38 !PARSE-TREE:           DataRef -> Name = 'mapped'
  39 !PARSE-TREE:           Name = 'x'
  40
  41 end program main
  42 !CHECK-LABEL: end program main