1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp 2 3! Check that loop iteration variables are private and predetermined, even when 4! nested inside parallel/sections constructs. 5 6!DEF: /test1 (Subroutine) Subprogram 7subroutine test1 8 !DEF: /test1/i ObjectEntity INTEGER(4) 9 integer i 10 11 !$omp parallel default(none) 12 !$omp sections 13 !$omp section 14 !DEF: /test1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) 15 do i = 1, 10 16 end do 17 !$omp end sections 18 !$omp end parallel 19end subroutine 20