8.22 ASSOCIATED — Статус указателя или пары указатель/цель

Описание:

ASSOCIATED(POINTER [, TARGET]) определяет статус указателя POINTER или, если POINTER связан с целью TARGET.

Стандарт:

Fortran 90 и позднее

Класс:

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

Синтаксис:

RESULT = ASSOCIATED(POINTER [, TARGET])

Аргументы:

`POINTER`	`POINTER` должен иметь атрибут `POINTER` и может быть любого типа.
`TARGET`	(Необязательно) `TARGET` должен быть указателем или целью. Он должен иметь тот же тип, параметр типа и ранг массива, что и `POINTER`.

Статус связи ни POINTER, ни TARGET не должен быть неопределённым.

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

ASSOCIATED(POINTER) возвращает скалярное значение типа LOGICAL(4). Существует несколько случаев:

(A) Если необязательный TARGET отсутствует, то: ASSOCIATED(POINTER) истинно, если POINTER связан с целью; в противном случае возвращает ложь.
(B) Если TARGET присутствует и является скалярной целью, результат равен истине, если: TARGET не является нуль-размерной последовательностью хранения, и цель, связанная с POINTER, занимает те же единицы памяти. Если POINTER не связан, результат равен ложно.
(C) Если TARGET присутствует и является массивом-целью, результат равен истине, если: TARGET и POINTER имеют одинаковую форму, не являются нуль-размерными массивами, являются массивами, элементы которых не являются нуль-размерными последовательностями хранения, и TARGET и POINTER занимают те же единицы памяти в порядке элементов массива. Как и в случае (B), результат ложен, если POINTER не связан.
(D) Если TARGET присутствует и является скалярным указателем, результат равен истине,: если TARGET связан с POINTER, цель, связанная с TARGET, не являются нуль-размерными последовательностями хранения и занимают те же единицы памяти. Результат равен ложно, если TARGET или POINTER не связан.
(E) Если TARGET присутствует и является массивом-указателем, результат равен истине, если: цель, связанная с POINTER, и цель, связанная с TARGET, имеют одинаковую форму, не являются нуль-размерными массивами, являются массивами, элементы которых не являются нуль-размерными последовательностями хранения, и TARGET и POINTER занимают те же единицы памяти в порядке элементов массива. Результат ложен, если TARGET или POINTER не связан.

Пример:

program test_associated
   implicit none
   real, target  :: tgt(2) = (/1., 2./)
   real, pointer :: ptr(:)
   ptr => tgt
   if (associated(ptr)     .eqv. .false.) call abort
   if (associated(ptr,tgt) .eqv. .false.) call abort
end program test_associated

См. также:

NULL — Функция, возвращающая не связанный указатель

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