28 lines · plain
1! This test checks lowering of OpenMP unroll directive2 3! RUN: %flang %flags %openmp_flags -fopenmp-version=51 %s -o %t.exe4! RUN: %t.exe | FileCheck %s --match-full-lines5 6 7program unroll_heuristic_do8 implicit none9 integer :: i10 print *, 'do'11 12 !$OMP UNROLL13 do i=7, 18, 314 print '("i=", I0)', i15 end do16 !$OMP END UNROLL17 18 print *, 'done'19end program20 21 22! CHECK: do23! CHECK-NEXT: i=724! CHECK-NEXT: i=1025! CHECK-NEXT: i=1326! CHECK-NEXT: i=1627! CHECK-NEXT: done28