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

Описание:

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

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = ALLOCATED(ARRAY)

RESULT = ALLOCATED(SCALAR)

Аргументы:

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

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

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

Пример:

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