| ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp | |
| ! OpenMP 5.2 5.1.1 | |
| ! Iteration variables of non-associated loops may be listed in DSA clauses. | |
| !DEF: /shared_iv (Subroutine)Subprogram | |
| subroutine shared_iv | |
| !DEF: /shared_iv/i ObjectEntity INTEGER(4) | |
| integer i | |
| !$omp parallel shared(i) | |
| !$omp single | |
| !DEF: /shared_iv/OtherConstruct1/i (OmpShared) HostAssoc INTEGER(4) | |
| do i = 0, 1 | |
| end do | |
| !$omp end single | |
| !$omp end parallel | |
| end subroutine |