25 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2 3! 1.4.1 Structure of the OpenMP Memory Model4! In the inner OpenMP region, SHARED `a` refers to the `a` in the outer OpenMP5! region; PRIVATE `b` refers to the new `b` in the same OpenMP region6 7 !DEF: /MainProgram1/b (Implicit) ObjectEntity REAL(4)8 b = 29 !$omp parallel private(a) shared(b)10 !DEF: /MainProgram1/OtherConstruct1/a (OmpPrivate, OmpExplicit) HostAssoc REAL(4)11 a = 3.12 !DEF: /MainProgram1/OtherConstruct1/b (OmpShared, OmpExplicit) HostAssoc REAL(4)13 b = 414 !$omp parallel private(b) shared(a)15 !DEF: /MainProgram1/OtherConstruct1/OtherConstruct1/a (OmpShared, OmpExplicit) HostAssoc REAL(4)16 a = 5.17 !DEF: /MainProgram1/OtherConstruct1/OtherConstruct1/b (OmpPrivate, OmpExplicit) HostAssoc REAL(4)18 b = 619 !$omp end parallel20 !$omp end parallel21 !DEF: /MainProgram1/a (Implicit) ObjectEntity REAL(4)22 !REF: /MainProgram1/b23 print *, a, b24end program25