gcc/testsuite/gfortran.dg/gomp/tile-non-rectangular-1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

subroutine test1
  !$omp tile sizes(1)
  do i = 1,100
    do j = 1,i
      do k = 1,100
        call dummy(i)
      end do
    end do
  end do
  !$omp end tile
end subroutine test1

subroutine test5
  !$omp tile sizes(1,2)
  do i = 1,100
    do j = 1,100
      do k = 1,j
        call dummy(i)
      end do
    end do
  end do
  !$omp end tile
end subroutine test5