1! { dg-do compile }
2
3subroutine s
4   integer :: i, j
5   !$acc parallel loop tile(2,3)
6   do i = 1, 10
7      do j = 1, 10
8         do
9         end do
10      end do
11   end do
12  !$acc end parallel loop
13end subroutine s
14