8.56 C_LOC — Получение C-адреса объекта

Описание:

C_LOC(X) определяет C-адрес аргумента.

Стандарт:

Fortran 2003 и более поздние версии

Класс:

Функция запроса

Синтаксис:

RESULT = C_LOC(X)

Аргументы:

`X`	Должен иметь атрибут POINTER или TARGET. Не должен быть индексированным объектом. Должен быть переменной со взаимно совместимым типом и параметрами вида типа, или скалярной, неполиморфной переменной без параметров типа длины.

Значение возврата:

Значение возврата имеет тип C_PTR и содержит C-адрес аргумента.

Пример:

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

См. также:

C_ASSOCIATED — Статус C-указателя, C_FUNLOC — Получение C-адреса процедуры, C_F_POINTER — Преобразование C в указатель Fortran, C_F_PROCPOINTER — Преобразование C в указатель на процедуру Fortran

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/C_005fLOC.html