File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 1
1
! RUN: bbc -fopenmp -emit-hlfir -o - %s | FileCheck %s
2
2
3
+ ! https://github.com/llvm/llvm-project/issues/91205
4
+
3
5
! CHECK: omp.parallel if(%{{[0-9]+}} : i1) {
4
6
! CHECK: %[[THP1:[0-9]+]] = omp.threadprivate %{{[0-9]+}}#1
5
7
! CHECK: %[[DCL1:[0-9]+]]:2 = hlfir.declare %[[THP1]] {uniq_name = "_QFcopyin_scalar_arrayEx1"}
14
16
! CHECK: omp.terminator
15
17
! CHECK: }
16
18
17
- ! https://github.com/llvm/llvm-project/issues/91205
18
-
19
19
subroutine copyin_scalar_array ()
20
20
integer (kind= 4 ), save :: x1
21
21
integer (kind= 8 ), save :: x2(10 )
22
22
! $omp threadprivate(x1, x2)
23
23
24
- ! Have x1 appear before x2 in the AST node for the `parallel construct,
24
+ ! Have x1 appear before x2 in the AST node for the `parallel` construct,
25
25
! but at the same time have them in a different order in `copyin`.
26
26
! $omp parallel if (x1 .eq. x2(1)) copyin(x2, x1)
27
27
call sub1(x1, x2)
You can’t perform that action at this time.
0 commit comments