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