33 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 - yy.5 6 !DEF: /tds (Subroutine) Subprogram7subroutine tds8 implicit none9 !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,k17 18 !REF: /tds/j19 j = 1120 !REF: /tds/k21 k = 1222 !$omp do schedule(static,j-k)23 !DEF: /tds/OtherConstruct1/i (OmpPrivate,OmpPreDetermined) HostAssoc INTEGER(4)24 do i = 1,1025 !REF: /tds/y26 !REF: /tds/OtherConstruct1/i27 !REF: /tds/z28 !REF: /tds/a29 y(i) = z(i-1)+a(i)30 end do31 !$omp end do32end subroutine tds33