9.48 C_ASSOCIATED — Статус указателя C

Описание:

C_ASSOCIATED(c_ptr_1[, c_ptr_2]) определяет статус указателя C c_ptr_1 или если c_ptr_1 связан с целевым c_ptr_2.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = C_ASSOCIATED(c_ptr_1[, c_ptr_2])

Аргументы:

c_ptr_1	Скаляр типа C_PTR или C_FUNPTR.
c_ptr_2	(Необязательно) Скаляр того же типа, что и c_ptr_1.

Возвращаемое значение:

Возвращаемое значение имеет тип LOGICAL; оно равно .false., если c_ptr_1 — указатель C NULL или если c_ptr1 и c_ptr_2 указывают на разные адреса.

Пример:

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_LOC, C_FUNLOC