33 lines · plain
1! This test checks lowering of the OpenMP tile directive2! It is done 3 times corresponding to every possible fraction of the last3! iteration before passing beyond UB.4 5! RUN: %flang %flags %openmp_flags -fopenmp-version=51 -cpp -DUB=16 %s -o %t-ub16.exe6! RUN: %flang %flags %openmp_flags -fopenmp-version=51 -cpp -DUB=17 %s -o %t-ub17.exe7! RUN: %flang %flags %openmp_flags -fopenmp-version=51 -cpp -DUB=18 %s -o %t-ub18.exe8! RUN: %t-ub16.exe | FileCheck %s --match-full-lines9! RUN: %t-ub17.exe | FileCheck %s --match-full-lines10! RUN: %t-ub18.exe | FileCheck %s --match-full-lines11 12program tile_do_1d13 implicit none14 integer i15 print *, 'do'16 17 !$OMP TILE SIZES(2)18 do i=7, UB, 319 print '("i=", I0)', i20 end do21 !$OMP END TILE22 23 print *, 'done'24end program25 26 27! CHECK: do28! CHECK-NEXT: i=729! CHECK-NEXT: i=1030! CHECK-NEXT: i=1331! CHECK-NEXT: i=1632! CHECK-NEXT: done33