1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)loctst.f 5.2 (Berkeley) 04/12/91 8C 9 10 common/blah/i,j,k 11 double precision d 12 equivalence (d,i),(x,i) 13 write(*,*) loc(i), loc(d), loc(x), loc(z) 14 end 15