loctst.f

<B>Digital的Unix操作系统VAX 4.2源码</B>

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