29 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.7.1 Schedule Clause4! Test that does not catch non constant integer expressions like xx - xx.5 !DEF: /OMPDOSCHEDULE MainProgram6program OMPDOSCHEDULE7 !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,n15 !REF: /OMPDOSCHEDULE/b16 b = 1017 !$omp do schedule(static,b-b)18 !DEF: /OMPDOSCHEDULE/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)19 !REF: /OMPDOSCHEDULE/n20 do i = 2,n+121 !REF: /OMPDOSCHEDULE/y22 !REF: /OMPDOSCHEDULE/OtherConstruct1/i23 !REF: /OMPDOSCHEDULE/z24 !REF: /OMPDOSCHEDULE/a25 y(i) = z(i-1) + a(i)26 end do27 !$omp end do28end program OMPDOSCHEDULE29