8.15 ALLOCATED — Статус выделения именованной сущности

Description:

ALLOCATED(ARRAY) и ALLOCATED(SCALAR) проверяют статус выделения ARRAY и SCALAR соответственно.

Standard:

Fortran 90 и более поздние версии. Обратите внимание, что ключевое слово SCALAR= и именованные скалярные сущности доступны в Fortran 2003 и более поздних версиях.

Class:

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

Syntax:

RESULT = ALLOCATED(ARRAY)

RESULT = ALLOCATED(SCALAR)

Arguments:

`ARRAY`	Аргумент должен быть массивом `ALLOCATABLE`.
`SCALAR`	Аргумент должен быть скаляром `ALLOCATABLE`.

Return value:

Значение возврата — скаляр LOGICAL с типом параметра по умолчанию логического типа. Если аргумент выделен, то результат — .TRUE.; в противном случае возвращается .FALSE..

Example:

program test_allocated
  integer :: i = 4
  real(4), allocatable :: x(:)
  if (.not. allocated(x)) allocate(x(i))
end program test_allocated

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