26 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2 3! 1.4.1 Structure of the OpenMP Memory Model4 5! Test implicit declaration in the OpenMP directive enclosing scope6! through clause; also test to avoid creating multiple symbols for7! the same variable8 9 !DEF: /MainProgram1/b (Implicit) ObjectEntity REAL(4)10 b = 211 !DEF: /MainProgram1/c (Implicit) ObjectEntity REAL(4)12 c = 013 !$omp parallel private(a,b) shared(c,d)14 !DEF: /MainProgram1/OtherConstruct1/a (OmpPrivate, OmpExplicit) HostAssoc REAL(4)15 a = 3.16 !DEF: /MainProgram1/OtherConstruct1/b (OmpPrivate, OmpExplicit) HostAssoc REAL(4)17 b = 418 !DEF: /MainProgram1/OtherConstruct1/c (OmpShared, OmpExplicit) HostAssoc REAL(4)19 c = 520 !DEF: /MainProgram1/OtherConstruct1/d (OmpShared, OmpExplicit) HostAssoc REAL(4)21 d = 622 !$omp end parallel23 !DEF: /MainProgram1/a (Implicit) ObjectEntity REAL(4)24 print *, a25end program26