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