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 6program 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 28end program ompdoschedule 29