c952f0ee54
Fixes an issue where the compiler is trying to default privatize construct names. Fixes #112572
18 lines
508 B
Fortran
18 lines
508 B
Fortran
! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s
|
|
! Test that we do not make a private copy of the critical name
|
|
|
|
!CHECK: MainProgram scope: mn
|
|
!CHECK-NEXT: j size=4 offset=0: ObjectEntity type: INTEGER(4)
|
|
!CHECK-NEXT: OtherConstruct scope:
|
|
!CHECK-NEXT: j (OmpPrivate): HostAssoc
|
|
!CHECK-NEXT: k2 (OmpCriticalLock): Unknown
|
|
program mn
|
|
integer :: j
|
|
j=2
|
|
!$omp parallel default(private)
|
|
!$omp critical(k2)
|
|
j=200
|
|
!$omp end critical(k2)
|
|
!$omp end parallel
|
|
end
|