23 lines · plain
1! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s2! Test that we do not make a private copy of the critical name3 4!CHECK: Global scope:5!CHECK-NEXT: MN: MainProgram6!CHECK-NEXT: k2 (OmpCriticalLock): Unknown7 8!CHECK: MainProgram scope: MN9!CHECK-NEXT: j size=4 offset=0: ObjectEntity type: INTEGER(4)10!CHECK-NEXT: OtherConstruct scope:11!CHECK-NEXT: j (OmpPrivate): HostAssoc12!CHECK-NOT: k213 14program mn15 integer :: j16 j=217 !$omp parallel default(private)18 !$omp critical(k2)19 j=20020 !$omp end critical(k2)21 !$omp end parallel22end 23