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
