Fortran Wiki
c_loc (changes)

Showing changes from revision #3 to #4: (追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)

Description

c_loc(x) determines the C address of the argument.

Standard

Fortran 2003 and later

Class

Inquiry function

Syntax

result = c_loc(x)

Arguments

• x -(削除) Associated (削除ここまで)(追記) Shall (追記ここまで)(削除) scalar (削除ここまで)(追記) have (追記ここまで)(削除) pointer (削除ここまで)(追記) either (追記ここまで)(削除) or (削除ここまで)(追記) the (追記ここまで)(削除) interoperable (削除ここまで)(削除) scalar (削除ここまで)(削除) or (削除ここまで)(削除) allocated (削除ここまで)(削除) allocatable (削除ここまで)(削除) variable (削除ここまで)(削除) with (削除ここまで)(追記) pointer (追記ここまで)(追記) or (追記ここまで)target attribute.(追記) It (追記ここまで)(追記) shall (追記ここまで)(追記) not (追記ここまで)(追記) be (追記ここまで)(追記) a (追記ここまで)(追記) coindexed (追記ここまで)(追記) object. (追記ここまで)(追記) It (追記ここまで)(追記) shall (追記ここまで)(追記) either (追記ここまで)(追記) be (追記ここまで)(追記) a (追記ここまで)(追記) variable (追記ここまで)(追記) with (追記ここまで)(追記) interoperable (追記ここまで)(追記) type (追記ここまで)(追記) and (追記ここまで)(追記) kind (追記ここまで)(追記) type (追記ここまで)(追記) parameters, (追記ここまで)(追記) or (追記ここまで)(追記) be (追記ここまで)(追記) a (追記ここまで)(追記) scalar, (追記ここまで)(追記) nonpolymorphic (追記ここまで)(追記) variable (追記ここまで)(追記) with (追記ここまで)(追記) no (追記ここまで)(追記) length (追記ここまで)(追記) type (追記ここまで)(追記) parameters. (追記ここまで)

Return value

The return value is of type c_ptr and contains the C address of the argument.

Example

subroutine association_test(a,b)
 use iso_c_binding, only: c_associated, c_loc, c_ptr
 implicit none
 real, pointer :: a
 type(c_ptr) :: b
 if(c_associated(b, c_loc(a))) &
 stop 'b and a do not point to same target'
end subroutine association_test

See also

c_associated, c_funloc, c_f_pointer, c_f_procpointer, iso_c_binding