22 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fopenmp -mmlir --enable-delayed-privatization \2! RUN: -o - %s 2>&1 | FileCheck %s3! RUN: bbc -emit-hlfir -fopenmp --enable-delayed-privatization -o - %s 2>&1 |\4! RUN: FileCheck %s5 6!===============================================================================7! `private` clause on `target parallel`8!===============================================================================9 10subroutine target_parallel_private()11integer, dimension(3) :: i12!$omp target parallel private(i)13!$omp end target parallel14end subroutine15 16! CHECK: omp.private {type = private} @[[PRIVATIZER:.*]] : {{.*}}17 18! CHECK: omp.target {{.*}} {19! CHECK: omp.parallel private(@[[PRIVATIZER]] %{{.*}} -> %{{.*}} : {{.*}}) {20! CHECK: }21! CHECK: }22