17 lines · plain
1! RUN: %flang_fc1 -fdebug-dump-symbols -fopenmp -fopenmp-version=50 %s | FileCheck %s2program main3!CHECK-LABEL: MainProgram scope: MAIN4 type ty5 real(4) :: x6 end type ty7 !$omp declare mapper(xx : ty :: v) map(v)8 integer, parameter :: n = 2569 type(ty) :: a(256)10 !$omp target map(mapper(xx), from:a)11 do i=1,n12 a(i)%x = 4.213 end do14 !$omp end target15!CHECK: xx: MapperDetails16end program main17