flang/test/Semantics/OpenMP/do11.f90

   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
   6 program 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
  22 end program omp_do
  23
  24 !DEF: /omp_do2 (Subroutine)Subprogram
  25 subroutine 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
  36 end subroutine omp_do2