1 ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
3 ! 2.15.3 Data-Sharing Attribute Clauses
4 ! Both PARALLEL and DO (worksharing) directives need to create new scope,
5 ! so PRIVATE `a` will have new symbol in each region
7 !DEF: /MainProgram1/a ObjectEntity REAL(8)
11 !$omp parallel private(a)
12 !DEF: /MainProgram1/OtherConstruct1/a (OmpPrivate) HostAssoc REAL(8)
15 !DEF: /MainProgram1/OtherConstruct1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
17 !DEF: /MainProgram1/OtherConstruct1/OtherConstruct1/a (OmpPrivate) HostAssoc REAL(8)