flang/test/Semantics/OpenMP/map-clause-symbols.f90

   1 ! RUN: %flang_fc1 -fdebug-dump-symbols -fopenmp -fopenmp-version=50 %s | FileCheck %s
   2 program main
   3 !CHECK-LABEL:  MainProgram scope: main
   4   integer, parameter :: n = 256
   5   real(8) :: a(256)
   6   !$omp target map(mapper(xx), from:a)
   7   do i=1,n
   8      a(i) = 4.2
   9   end do
  10   !$omp end target
  11 !CHECK:    OtherConstruct scope: size=0 alignment=1 sourceRange=74 bytes
  12 !CHECK:    OtherClause scope: size=0 alignment=1 sourceRange=0 bytes
  13 !CHECK:    xx: Misc ConstructName
  14 end program main