flang/test/Lower/OpenMP/target-parallel-private.f90

! RUN: %flang_fc1 -emit-hlfir -fopenmp -mmlir --enable-delayed-privatization \
! RUN:   -o - %s 2>&1 | FileCheck %s
! RUN: bbc -emit-hlfir -fopenmp --enable-delayed-privatization -o - %s 2>&1 |\
! RUN:   FileCheck %s

!===============================================================================
! `private` clause on `target parallel`
!===============================================================================

subroutine target_parallel_private()
integer, dimension(3) :: i
!$omp target parallel private(i)
!$omp end target parallel
end subroutine

! CHECK: omp.private {type = private} @[[PRIVATIZER:.*]] : {{.*}}

! CHECK: omp.target kernel_type(generic) {{.*}} {
! CHECK:   omp.parallel private(@[[PRIVATIZER]] %{{.*}} -> %{{.*}} : {{.*}}) {
! CHECK:   }
! CHECK: }