Fortran 可分配函数

返回值有 allocatable 属性时，入口不会分配，而在内部有需要时分配，必须在返回之前具有值。