common/blah/i,j,k
	double precision d
	equivalence (d,i),(x,i)
	write(*,*) loc(i), loc(d), loc(x), loc(z)
	end