1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp 2! OpenMP Version 4.5 3! 2.7.1 Do Loop Constructs 4 5!DEF: /omp_do MainProgram 6program omp_do 7 !DEF: /omp_do/i ObjectEntity INTEGER(4) 8 !DEF: /omp_do/j ObjectEntity INTEGER(4) 9 !DEF: /omp_do/k ObjectEntity INTEGER(4) 10 integer i, j, k 11 !$omp do 12 !DEF: /omp_do/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) 13 do i=1,10 14 !REF: /omp_do/j 15 do j=1,10 16 !REF: /omp_do/OtherConstruct1/i 17 !REF: /omp_do/j 18 print *, "it", i, j 19 end do 20 end do 21 !$omp end do 22end program omp_do 23 24!DEF: /omp_do2 (Subroutine)Subprogram 25subroutine omp_do2 26 !DEF: /omp_do2/i ObjectEntity INTEGER(4) 27 !DEF: /omp_do2/k ObjectEntity INTEGER(4) 28 integer :: i = 0, k 29 !$omp do 30 !DEF: /omp_do2/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4) 31 do i=1,10 32 !REF: /omp_do2/OtherConstruct1/i 33 print *, "it", i 34 end do 35 !$omp end do 36end subroutine omp_do2 37