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