flang/test/Semantics/OpenMP/omp-do-schedule03.f90

   1 ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.7.1 Schedule Clause
   4 ! Test that does not catch non constant integer expressions like xx - xx.
   5   !DEF: /ompdoschedule MainProgram
   6 program ompdoschedule
   7   !DEF: /ompdoschedule/a ObjectEntity REAL(4)
   8   !DEF: /ompdoschedule/y ObjectEntity REAL(4)
   9   !DEF: /ompdoschedule/z ObjectEntity REAL(4)
  10   real  a(100),y(100),z(100)
  11   !DEF: /ompdoschedule/b ObjectEntity INTEGER(4)
  12   !DEF: /ompdoschedule/i ObjectEntity INTEGER(4)
  13   !DEF: /ompdoschedule/n ObjectEntity INTEGER(4)
  14   integer  b,i,n
  15   !REF: /ompdoschedule/b
  16   b = 10
  17   !$omp do  schedule(static,b-b)
  18   !DEF: /ompdoschedule/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  19   !REF: /ompdoschedule/n
  20   do i = 2,n+1
  21     !REF: /ompdoschedule/y
  22     !REF: /ompdoschedule/OtherConstruct1/i
  23     !REF: /ompdoschedule/z
  24     !REF: /ompdoschedule/a
  25     y(i) = z(i-1) + a(i)
  26   end do
  27   !$omp end do
  28 end program ompdoschedule