97 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: /OMP_CYCLE MainProgram6program OMP_CYCLE7 !$omp do collapse(1)8 !DEF: /OMP_CYCLE/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)9 do i=0,1010 !REF: /OMP_CYCLE/OtherConstruct1/i11 if (i<1) cycle12 !DEF: /OMP_CYCLE/j (Implicit) ObjectEntity INTEGER(4)13 do j=0,1014 !DEF: /OMP_CYCLE/k (Implicit) ObjectEntity INTEGER(4)15 do k=0,1016 !REF: /OMP_CYCLE/OtherConstruct1/i17 !REF: /OMP_CYCLE/j18 !REF: /OMP_CYCLE/k19 print *, i, j, k20 end do21 end do22 end do23 !$omp end do24 25 !$omp do collapse(1)26 !DEF: /OMP_CYCLE/OtherConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)27 do i=0,1028 !REF: /OMP_CYCLE/j29 do j=0,1030 !REF: /OMP_CYCLE/OtherConstruct2/i31 if (i<1) cycle32 !REF: /OMP_CYCLE/k33 do k=0,1034 !REF: /OMP_CYCLE/OtherConstruct2/i35 !REF: /OMP_CYCLE/j36 !REF: /OMP_CYCLE/k37 print *, i, j, k38 end do39 end do40 end do41 !$omp end do42 43 !$omp do collapse(2)44 !DEF: /OMP_CYCLE/OtherConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)45 do i=0,1046 !DEF: /OMP_CYCLE/OtherConstruct3/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)47 do j=0,1048 !REF: /OMP_CYCLE/k49 do k=0,1050 !REF: /OMP_CYCLE/OtherConstruct3/i51 if (i<1) cycle52 !REF: /OMP_CYCLE/OtherConstruct3/i53 !REF: /OMP_CYCLE/OtherConstruct3/j54 !REF: /OMP_CYCLE/k55 print *, i, j, k56 end do57 end do58 end do59 !$omp end do60 61 !$omp do collapse(3)62 !DEF: /OMP_CYCLE/OtherConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)63 do i=0,1064 !DEF: /OMP_CYCLE/OtherConstruct4/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)65 do j=0,1066 !DEF: /OMP_CYCLE/OtherConstruct4/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)67 do k=0,1068 !REF: /OMP_CYCLE/OtherConstruct4/i69 if (i<1) cycle70 !REF: /OMP_CYCLE/OtherConstruct4/i71 !REF: /OMP_CYCLE/OtherConstruct4/j72 !REF: /OMP_CYCLE/OtherConstruct4/k73 print *, i, j, k74 end do75 end do76 end do77 !$omp end do78 79 !$omp do collapse(3)80 !DEF: /OMP_CYCLE/OtherConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)81 foo:do i=0,1082 !DEF: /OMP_CYCLE/OtherConstruct5/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)83 foo1:do j=0,1084 !DEF: /OMP_CYCLE/OtherConstruct5/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)85 foo2:do k=0,1086 !REF: /OMP_CYCLE/OtherConstruct5/i87 if (i<1) cycle foo288 !REF: /OMP_CYCLE/OtherConstruct5/i89 !REF: /OMP_CYCLE/OtherConstruct5/j90 !REF: /OMP_CYCLE/OtherConstruct5/k91 print *, i, j, k92 end do foo293 end do foo194 end do foo95 !$omp end do96end program OMP_CYCLE97