1! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp
2! OpenMP Version 4.5
3! 2.7.1 Schedule Clause
4! Test that does not catch non constant integer expressions like xx - yy.
5
6  !DEF: /tds (Subroutine) Subprogram
7subroutine tds
8  implicit none
9  !DEF: /tds/a ObjectEntity REAL(4)
10  !DEF: /tds/y ObjectEntity REAL(4)
11  !DEF: /tds/z ObjectEntity REAL(4)
12  real a(100),y(100),z(100)
13  !DEF: /tds/i ObjectEntity INTEGER(4)
14  !DEF: /tds/j ObjectEntity INTEGER(4)
15  !DEF: /tds/k ObjectEntity INTEGER(4)
16  integer i,j,k
17
18  !REF: /tds/j
19  j = 11
20  !REF: /tds/k
21  k = 12
22  !$omp do  schedule(static,j-k)
23  !DEF: /tds/Block1/i (OmpPrivate,OmpPreDetermined) HostAssoc INTEGER(4)
24  do i = 1,10
25    !REF: /tds/y
26    !REF: /tds/Block1/i
27    !REF: /tds/z
28    !REF: /tds/a
29    y(i) = z(i-1)+a(i)
30  end do
31  !$omp end do
32end subroutine tds
33