55 lines · plain
1! This test checks lowering of OpenMP tile directive2 3! RUN: %flang %flags %openmp_flags -fopenmp-version=51 %s -o %t.exe4! RUN: %t.exe | FileCheck %s --match-full-lines5 6 7program tile_do_2d8 implicit none9 integer i, j10 print *, 'do'11 12 !$OMP TILE SIZES(2,3)13 do i = 7, 16, 314 do j = 0, 415 print '("i=", I0," j=", I0)', i, j16 end do17 end do18 !$OMP END TILE19 20 print *, 'done'21end program22 23 24! CHECK: do25 26! complete tile27! CHECK-NEXT: i=7 j=028! CHECK-NEXT: i=7 j=129! CHECK-NEXT: i=7 j=230! CHECK-NEXT: i=10 j=031! CHECK-NEXT: i=10 j=132! CHECK-NEXT: i=10 j=233 34! partial tile35! CHECK-NEXT: i=7 j=336! CHECK-NEXT: i=7 j=437! CHECK-NEXT: i=10 j=338! CHECK-NEXT: i=10 j=439 40! complete tile41! CHECK-NEXT: i=13 j=042! CHECK-NEXT: i=13 j=143! CHECK-NEXT: i=13 j=244! CHECK-NEXT: i=16 j=045! CHECK-NEXT: i=16 j=146! CHECK-NEXT: i=16 j=247 48! partial tile49! CHECK-NEXT: i=13 j=350! CHECK-NEXT: i=13 j=451! CHECK-NEXT: i=16 j=352! CHECK-NEXT: i=16 j=453 54! CHECK-NEXT: done55