92 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 cycle11 !DEF: /OMP_CYCLE/j (Implicit) ObjectEntity INTEGER(4)12 do j=0,1013 !DEF: /OMP_CYCLE/k (Implicit) ObjectEntity INTEGER(4)14 do k=0,1015 !REF: /OMP_CYCLE/OtherConstruct1/i16 !REF: /OMP_CYCLE/j17 !REF: /OMP_CYCLE/k18 print *, i, j, k19 end do20 end do21 end do22 !$omp end do23 24 !$omp do collapse(1)25 !DEF: /OMP_CYCLE/OtherConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)26 do i=0,1027 !REF: /OMP_CYCLE/j28 do j=0,1029 cycle30 !REF: /OMP_CYCLE/k31 do k=0,1032 !REF: /OMP_CYCLE/OtherConstruct2/i33 !REF: /OMP_CYCLE/j34 !REF: /OMP_CYCLE/k35 print *, i, j, k36 end do37 end do38 end do39 !$omp end do40 41 !$omp do collapse(2)42 !DEF: /OMP_CYCLE/OtherConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)43 do i=0,1044 !DEF: /OMP_CYCLE/OtherConstruct3/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)45 do j=0,1046 !REF: /OMP_CYCLE/k47 do k=0,1048 cycle49 !REF: /OMP_CYCLE/OtherConstruct3/i50 !REF: /OMP_CYCLE/OtherConstruct3/j51 !REF: /OMP_CYCLE/k52 print *, i, j, k53 end do54 end do55 end do56 !$omp end do57 58 !$omp do collapse(3)59 !DEF: /OMP_CYCLE/OtherConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)60 do i=0,1061 !DEF: /OMP_CYCLE/OtherConstruct4/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)62 do j=0,1063 !DEF: /OMP_CYCLE/OtherConstruct4/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)64 do k=0,1065 cycle66 !REF: /OMP_CYCLE/OtherConstruct4/i67 !REF: /OMP_CYCLE/OtherConstruct4/j68 !REF: /OMP_CYCLE/OtherConstruct4/k69 print *, i, j, k70 end do71 end do72 end do73 !$omp end do74 75 !$omp do ordered(3)76 !DEF: /OMP_CYCLE/OtherConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)77 foo:do i=0,1078 !DEF: /OMP_CYCLE/OtherConstruct5/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)79 foo1:do j=0,1080 !DEF: /OMP_CYCLE/OtherConstruct5/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)81 foo2:do k=0,1082 cycle foo283 !REF: /OMP_CYCLE/OtherConstruct5/i84 !REF: /OMP_CYCLE/OtherConstruct5/j85 !REF: /OMP_CYCLE/OtherConstruct5/k86 print *, i, j, k87 end do foo288 end do foo189 end do foo90 !$omp end do91end program OMP_CYCLE92