do_2d.f90

Go to the documentation of this file.

! This test checks lowering of OpenMP tile directive
 
! RUN: %flang %flags %openmp_flags -fopenmp-version=51 %s -o %t.exe
! RUN: %t.exe | FileCheck %s --match-full-lines
 
 
program tile_do_2d
  implicit none
  integer i, j
  print *, 'do'
 
  !$OMP TILE SIZES(2,3)
  do i = 7, 16, 3
    do j = 0, 4
      print '("i=", I0," j=", I0)', i, j
    end do
  end do
  !$OMP END TILE
 
  print *, 'done'
end program
 
 
! CHECK:      do
 
! complete tile
! CHECK-NEXT: i=7 j=0
! CHECK-NEXT: i=7 j=1
! CHECK-NEXT: i=7 j=2
! CHECK-NEXT: i=10 j=0
! CHECK-NEXT: i=10 j=1
! CHECK-NEXT: i=10 j=2
 
! partial tile
! CHECK-NEXT: i=7 j=3
! CHECK-NEXT: i=7 j=4
! CHECK-NEXT: i=10 j=3
! CHECK-NEXT: i=10 j=4
 
! complete tile
! CHECK-NEXT: i=13 j=0
! CHECK-NEXT: i=13 j=1
! CHECK-NEXT: i=13 j=2
! CHECK-NEXT: i=16 j=0
! CHECK-NEXT: i=16 j=1
! CHECK-NEXT: i=16 j=2
 
! partial tile
! CHECK-NEXT: i=13 j=3
! CHECK-NEXT: i=13 j=4
! CHECK-NEXT: i=16 j=3
! CHECK-NEXT: i=16 j=4
 
! CHECK-NEXT: done