58 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.7.1 Do Loop constructs.4 5!DEF: /TEST MainProgram6program TEST7 !DEF: /TEST/i ObjectEntity INTEGER(4)8 !DEF: /TEST/j ObjectEntity INTEGER(4)9 !DEF: /TEST/k ObjectEntity INTEGER(4)10 integer i, j, k11 !$omp do collapse(2)12 !DEF: /TEST/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)13 foo: do i=0,1014 !DEF: /TEST/OtherConstruct1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)15 foo1: do j=0,1016 !REF: /TEST/k17 foo2: do k=0,1018 !REF: /TEST/OtherConstruct1/i19 select case (i)20 case (5)21 cycle foo122 case (7)23 cycle foo224 end select25 !REF: /TEST/OtherConstruct1/i26 !REF: /TEST/OtherConstruct1/j27 !REF: /TEST/k28 print *, i, j, k29 end do foo230 end do foo131 end do foo32 33 !$omp do collapse(2)34 !DEF: /TEST/OtherConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)35 foo: do i=0,1036 !DEF: /TEST/OtherConstruct2/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)37 foo1: do j=0,1038 !REF: /TEST/k39 foo2: do k=0,1040 !REF: /TEST/OtherConstruct2/i41 if (i<3) then42 cycle foo143 !REF: /TEST/OtherConstruct2/i44 else if (i>8) then45 cycle foo146 else47 cycle foo248 end if49 !REF: /TEST/OtherConstruct2/i50 !REF: /TEST/OtherConstruct2/j51 !REF: /TEST/k52 print *, i, j, k53 end do foo254 end do foo155 end do foo56!$omp end do57end program TEST58