32 lines · plain
1!RUN: bbc -fopenmp -emit-hlfir -o - %s | FileCheck %s2 3!https://github.com/llvm/llvm-project/issues/912054 5!CHECK: omp.parallel if(%{{[0-9]+}}) {6!CHECK: %[[THP1:[0-9]+]] = omp.threadprivate %{{[0-9]+}}#07!CHECK: %[[DCL1:[0-9]+]]:2 = hlfir.declare %[[THP1]] {uniq_name = "_QFcopyin_scalar_arrayEx1"}8!CHECK: %[[LD1:[0-9]+]] = fir.load %{{[0-9]+}}#09!CHECK: hlfir.assign %[[LD1]] to %[[DCL1]]#010!CHECK: %[[THP2:[0-9]+]] = omp.threadprivate %{{[0-9]+}}#011!CHECK: %[[SHP2:[0-9]+]] = fir.shape %c{{[0-9]+}}12!CHECK: %[[DCL2:[0-9]+]]:2 = hlfir.declare %[[THP2]](%[[SHP2]]) {uniq_name = "_QFcopyin_scalar_arrayEx2"}13!CHECK: hlfir.assign %{{[0-9]+}}#0 to %[[DCL2]]#014!CHECK: omp.barrier15!CHECK: fir.call @_QPsub1(%[[DCL1]]#0, %[[DCL2]]#0)16!CHECK: omp.terminator17!CHECK: }18 19subroutine copyin_scalar_array()20 integer(kind=4), save :: x121 integer(kind=8), save :: x2(10)22 !$omp threadprivate(x1, x2)23 24 ! Have x1 appear before x2 in the AST node for the `parallel` construct,25 ! but at the same time have them in a different order in `copyin`.26 !$omp parallel if (x1 .eq. x2(1)) copyin(x2, x1)27 call sub1(x1, x2)28 !$omp end parallel29 30end31 32