20 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2 3! Check that loop iteration variables are private and predetermined, even when4! nested inside parallel/sections constructs.5 6!DEF: /test1 (Subroutine) Subprogram7subroutine test18 !DEF: /test1/i ObjectEntity INTEGER(4)9 integer i10 11 !$omp parallel default(none)12 !$omp sections13 !$omp section14 !DEF: /test1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)15 do i = 1, 1016 end do17 !$omp end sections18 !$omp end parallel19end subroutine20