19 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2 3! OpenMP 5.2 5.1.14! Iteration variables of non-associated loops may be listed in DSA clauses.5 6!DEF: /shared_iv (Subroutine)Subprogram7subroutine shared_iv8 !DEF: /shared_iv/i ObjectEntity INTEGER(4)9 integer i10 11 !$omp parallel shared(i)12 !$omp single13 !DEF: /shared_iv/OtherConstruct1/OtherConstruct1/i HostAssoc INTEGER(4)14 do i = 0, 115 end do16 !$omp end single17 !$omp end parallel18end subroutine19