22 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! DO CONCURRENT indices have predetermined private DSA.5!6! As DO CONCURRENT 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: /private_iv (Subroutine)Subprogram11subroutine private_iv12 !DEF: /private_iv/i ObjectEntity INTEGER(4)13 integer i14 !$omp parallel default(private)15 !$omp single16 !DEF: /private_iv/OtherConstruct1/OtherConstruct1/Forall1/i ObjectEntity INTEGER(4)17 do concurrent(i=1:2)18 end do19 !$omp end single20 !$omp end parallel21end subroutine22