1subroutine foo
2  integer(2) :: i, j
3  !$acc parallel loop tile(2,3)
4  do i = 1, 10
5     do j = 1, 10
6     end do
7  end do
8  !$acc end parallel loop
9end
10