integer*8 loc, addr ! integer*4 on RISC systems external loc addr = loc ( arg )
The loc function returns a value that is the address of arg.