37 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.7.1 Collapse Clause Positive cases4 5!DEF: /omp_docollapse MainProgram6program omp_docollapse7 !DEF: /omp_docollapse/i ObjectEntity INTEGER(4)8 !DEF: /omp_docollapse/j ObjectEntity INTEGER(4)9 !DEF: /omp_docollapse/k ObjectEntity INTEGER(4)10 integer i, j, k11 !$omp do collapse(2)12 !DEF: /omp_docollapse/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)13 do i=1,1014 !DEF: /omp_docollapse/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)15 do j=1,1016 !REF: /omp_docollapse/k17 do k=1,1018 print *, "hello"19 end do20 end do21 end do22 !$omp end do23 24 !REF: /omp_docollapse/i25 do i=1,1026 !$omp do collapse(2)27 !DEF: /omp_docollapse/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)28 do j=1,1029 !DEF: /omp_docollapse/Block1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)30 do k=1,1031 print *, "hello"32 end do33 end do34 !$omp end do35 end do36end program omp_docollapse37