24 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2 3! 2.15.3 Data-Sharing Attribute Clauses4! Both PARALLEL and DO (worksharing) directives need to create new scope,5! so PRIVATE `a` will have new symbol in each region6 7 !DEF: /MainProgram1/a ObjectEntity REAL(8)8 real*8 a9 !REF: /MainProgram1/a10 a = 3.1411 !$omp parallel private(a)12 !DEF: /MainProgram1/OtherConstruct1/a (OmpPrivate, OmpExplicit) HostAssoc REAL(8)13 a = 2.14 !$omp do private(a)15 !DEF: /MainProgram1/OtherConstruct1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)16 do i=1,1017 !DEF: /MainProgram1/OtherConstruct1/OtherConstruct1/a (OmpPrivate, OmpExplicit) HostAssoc REAL(8)18 a = 1.19 end do20 !$omp end parallel21 !REF: /MainProgram1/a22 print *, a23end program24