program main
dimension b(2,4)
	call p(a,b)
end

subroutine p(a,q)
integer q,a
dimension   q(2,4)
q=q+1
end
