1 common/blah/i,j,k 2 double precision d 3 equivalence (d,i),(x,i) 4 write(*,*) loc(i), loc(d), loc(x), loc(z) 5 end 6