33 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2 3! OpenMP 5.2 5.1.1 Variables Referenced in a Construct4! FORALL indices have predetermined private DSA.5!6! As FORALL indices are defined in the construct itself, and OpenMP7! directives may not appear in it, they are already private.8! Check that index symbols are not modified.9 10 !DEF: /MainProgram1/a ObjectEntity INTEGER(4)11 !DEF: /MainProgram1/b ObjectEntity INTEGER(4)12 integer a(5), b(5)13 14 !REF: /MainProgram1/a15 a = 016 !REF: /MainProgram1/b17 b = 018 19 !$omp parallel20 !DEF: /MainProgram1/OtherConstruct1/Forall1/i (Implicit) ObjectEntity INTEGER(4)21 !DEF: /MainProgram1/OtherConstruct1/a (OmpShared) HostAssoc INTEGER(4)22 !DEF: /MainProgram1/OtherConstruct1/b (OmpShared) HostAssoc INTEGER(4)23 forall(i = 1:5) a(i) = b(i) * 224 !$omp end parallel25 26 !$omp parallel default(private)27 !DEF: /MainProgram1/OtherConstruct2/Forall1/i (Implicit) ObjectEntity INTEGER(4)28 !DEF: /MainProgram1/OtherConstruct2/a (OmpPrivate) HostAssoc INTEGER(4)29 !DEF: /MainProgram1/OtherConstruct2/b (OmpPrivate) HostAssoc INTEGER(4)30 forall(i = 1:5) a(i) = b(i) * 231 !$omp end parallel32end program33