allocated(x): verificación de estado¶

Estado lógico de un entero asignable.

Declaración¶

Sintaxis¶

retval = allocated(x)
logical function allocated(x)

Argumentos¶

x es un parámetro de entrada entero.

Valores devueltos¶

El valor devuelto es un escalar lógico con el parámetro de tipo de tipo lógico predeterminado.

Descripción¶

allocated(x) comprueba el estado de asignación de un parámetro de entrada entero. Devuelve un valor lógico como VERDADERO si se asigna el argumento de entrada x, FALSO en caso contrario.

Tipos¶

El tipo de argumento admitido es entero.

module lfortran_intrinsic_builtin
implicit none

interface
    logical function allocated(x)
	integer, intent(in) :: x(:)
	end function
end interface

end module

Ejemplos¶

program intrinsics_allocated
    implicit none
    integer :: i = 1
	real(1), allocatable :: x(:)
	if (.not. allocated(x))
		allocate(x(i))
    print *, allocated(i)
end program

Result:

TRUE