test

Sun Studio 12: Fortran Library Reference

1.4.32 loc: Return the Address of an Object

This intrinsic function is called by:

k = loc( arg )

arg

Any type 

Input 

Variable or array 

Return value 

INTEGER*4-or-

INTEGER*8

Output 

Address of arg

 

Returns an INTEGER*8 pointer when compiled to run in a 64-bit environment with -m64. See Note below.

Example: loc:


       INTEGER*4 k, loc
       real arg / 9.0 /
       k = loc( arg )
       write(*,*) k
       end
Note –

Programs compiled to run in a 64-bit environment should declare INTEGER*8 the variable receiving output from the loc() function.