Skip to content

Commit 30611f8

Browse files
committed
Add mapper field to mapInfoOp.
1 parent 002d715 commit 30611f8

File tree

1 file changed

+15
-0
lines changed

1 file changed

+15
-0
lines changed

Diff for: flang/test/Lower/OpenMP/map-mapper.f90

+15
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,15 @@
1+
! RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=50 %s -o - | FileCheck %s
2+
program p
3+
integer, parameter :: n = 256
4+
real(8) :: a(256)
5+
type t1
6+
integer :: x
7+
end type t1
8+
!$omp declare mapper(xx : t1 :: nn) map(nn, nn%x)
9+
!$omp target map(mapper(xx), from:a)
10+
!CHECK: not yet implemented: Support for mapper modifiers is not implemented yet
11+
do i = 1, n
12+
a(i) = 4.2
13+
end do
14+
!$omp end target
15+
end program p

0 commit comments

Comments
 (0)