blob: 74aa54b4b7b6149ba369546259502e3198f1661b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
! This test checks lowering of the OpenMP tile directive
! It is done 3 times corresponding to every possible fraction of the last
! iteration before passing beyond UB.
! RUN: %flang %flags %openmp_flags -fopenmp-version=51 -cpp -DUB=16 %s -o %t-ub16.exe
! RUN: %flang %flags %openmp_flags -fopenmp-version=51 -cpp -DUB=17 %s -o %t-ub17.exe
! RUN: %flang %flags %openmp_flags -fopenmp-version=51 -cpp -DUB=18 %s -o %t-ub18.exe
! RUN: %t-ub16.exe | FileCheck %s --match-full-lines
! RUN: %t-ub17.exe | FileCheck %s --match-full-lines
! RUN: %t-ub18.exe | FileCheck %s --match-full-lines
program tile_do_1d
implicit none
integer i
print *, 'do'
!$OMP TILE SIZES(2)
do i=7, UB, 3
print '("i=", I0)', i
end do
!$OMP END TILE
print *, 'done'
end program
! CHECK: do
! CHECK-NEXT: i=7
! CHECK-NEXT: i=10
! CHECK-NEXT: i=13
! CHECK-NEXT: i=16
! CHECK-NEXT: done
|
