9c464e60d2
FORALL/DO CONCURRENT indices have predetermined private DSA (OpenMP 5.2 5.1.1). As FORALL/DO CONCURRENT indices are defined in the construct itself, and OpenMP directives may not appear in it, they are already private and don't need to be modified. Fixes https://github.com/llvm/llvm-project/issues/100919 Fixes https://github.com/llvm/llvm-project/issues/120023 Fixes https://github.com/llvm/llvm-project/issues/123537
22 lines
708 B
Fortran
22 lines
708 B
Fortran
! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
|
|
|
|
! OpenMP 5.2 5.1.1 Variables Referenced in a Construct
|
|
! DO CONCURRENT indices have predetermined private DSA.
|
|
!
|
|
! As DO CONCURRENT indices are defined in the construct itself, and OpenMP
|
|
! directives may not appear in it, they are already private.
|
|
! Check that index symbols are not modified.
|
|
|
|
!DEF: /private_iv (Subroutine)Subprogram
|
|
subroutine private_iv
|
|
!DEF: /private_iv/i ObjectEntity INTEGER(4)
|
|
integer i
|
|
!$omp parallel default(private)
|
|
!$omp single
|
|
!DEF: /private_iv/OtherConstruct1/OtherConstruct1/Forall1/i ObjectEntity INTEGER(4)
|
|
do concurrent(i=1:2)
|
|
end do
|
|
!$omp end single
|
|
!$omp end parallel
|
|
end subroutine
|