flang/test/Semantics/OpenMP/critical_within_default.f90

   1 ! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s
   2 ! Test that we do not make a private copy of the critical name
   3
   4 !CHECK:  MainProgram scope: mn
   5 !CHECK-NEXT:    j size=4 offset=0: ObjectEntity type: INTEGER(4)
   6 !CHECK-NEXT:    OtherConstruct scope:
   7 !CHECK-NEXT:      j (OmpPrivate): HostAssoc
   8 !CHECK-NEXT:      k2 (OmpCriticalLock): Unknown
   9 program mn
  10   integer :: j
  11   j=2
  12   !$omp parallel default(private)
  13     !$omp critical(k2)
  14     j=200
  15     !$omp end critical(k2)
  16   !$omp end parallel
  17 end