We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 002d715 commit 30611f8Copy full SHA for 30611f8
flang/test/Lower/OpenMP/map-mapper.f90
@@ -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