ALLOCATED(X)
用途
指示是否分配可分配对象。
类
查询函数
参数类型和属性
X 可以是下列其中一项：
- ARRAY
- 一个可分配的数组，您要知道其分配状态。
- SCALAR
- 一个可分配的标量，您要知道其分配状态。
结果类型和属性
缺省逻辑标量。
结果值
result 对应于 ARRAY 或 SCALAR 的分配状态: .TRUE。 如果已分配，那么为 .FALSE。 如果未分配，或者未定义其分配状态。 如果使用 -qxlf90=autodealloc 编译器选项进行编译，那么没有未定义的分配状态。
示例
INTEGER, ALLOCATABLE, DIMENSION(:) :: A
PRINT *, ALLOCATED(A) ! A is not allocated yet.
ALLOCATE (A(1000))
PRINT *, ALLOCATED(A) ! A is now allocated.
END