allocated(x)：状态检查

可分配整数的逻辑状态。

声明

语法

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

参数

x 是一个整数输入参数。

返回值

返回值是具有默认逻辑种类类型参数的逻辑标量。

描述

allocated(x) 检查整数输入参数的分配状态。 如果分配了输入参数x，则返回逻辑值TRUE，否则返回FALSE。

类型

支持的参数类型是整型。

module lfortran_intrinsic_builtin
implicit none

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

end module

示例

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

结果：

TRUE

也可以看看