program foo
	integer a(0:3, 0:4)
	integer i
	integer j

	do i = 0, 3
		do j = 0, 4
			a(i, j) = i * 65536 + j
		end do
	end do
end !program foo
