flang/test/Semantics/omp-do11.f90

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