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