68 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.7.1 Ordered Clause positive cases.4 5!DEF: /omp_doordered MainProgram6program omp_doordered7 !DEF: /omp_doordered/i ObjectEntity INTEGER(4)8 !DEF: /omp_doordered/j ObjectEntity INTEGER(4)9 integer i, j10 !$omp do ordered(2)11 !DEF: /omp_doordered/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)12 do i=1,1013 !DEF: /omp_doordered/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)14 do j=1,1015 print *, "hello"16 end do17 end do18 !$omp end do19 20 !REF: /omp_doordered/i21 do i=1,1022 !REF: /omp_doordered/j23 do j=1,1024 !$omp do ordered(1)25 !DEF: /omp_doordered/Block2/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)26 do k=1,1027 print *, "hello"28 end do29 !$omp end do30 end do31 end do32 33 !$omp do ordered34 !DEF: /omp_doordered/Block3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)35 do i=1,1036 !$omp ordered37 !REF: /omp_doordered/j38 do j=1,1039 print *, "hello"40 end do41 !$omp end ordered42 end do43 !$omp end do44 45 !$omp do collapse(1) ordered(2)46 !DEF: /omp_doordered/Block4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)47 do i=1,1048 !DEF: /omp_doordered/Block4/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)49 do j=1,1050 print *, "hello"51 end do52 end do53 !$omp end do54 55 !$omp parallel num_threads(4)56 !$omp do ordered collapse(1)57 !DEF: /omp_doordered/Block5/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)58 do i=1,1059 !$omp ordered60 !DEF: /omp_doordered/Block5/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)61 do j=1,1062 print *, "hello"63 end do64 !$omp end ordered65 end do66 !$omp end parallel67end program omp_doordered68