我正在查看一个 Fortran 函数，该函数将（指针）数组返回到固定长度的字符串。像这样的：
FUNCTION F(N)
INTEGER :: N
CHARACTER(LEN=16) :: F(N)
F(1:N) = 'DEFAULT'
...
END FUNCTION F
该函数计算 N 个字符串，据我了解，它会尝试以数组的形式返回这些字符串。
调用者有：
...
ALLOCATE(X(N))
X = F(N)
但是当 F 返回时我得到一个段错误。作者声称他在编译和运行它时没有发现任何问题。我试图了解何时为实际字符串分配内存以及返回后内存是否在范围内？有没有
CHARACTER(LEN=16) :: F(N)
line 分配 N*16 个字符，然后在 F 中分配 N 个指向它们的指针？我来自C所以也许我完全错过了这个，请温柔。 我怀疑F实际指向的内存在返回后没有绑定（我认为它可能在堆栈上等）
感谢任何见解。
【问题讨论】：
您的函数不返回指针数组，而是返回长度为 16 的字符数组。您可能将返回值分配给 1 级数组字符 (len=16) 的指针或可分配变量，但是这是一个单独的问题。
返回数组的函数需要显式接口。从您的问题中不清楚是否满足此要求，这可以通过三种方式完成：
contains 语句之后例如：
module A
contains
function f(n)
implicit none
integer :: n
character(len=16) :: f(n)
f(1:n) = 'DEFAULT'
end function f
end module A
program test
use A
implicit none
character(len=16), pointer :: array(:)
allocate(array(10))
array = f(10)
print *, array
end program test
这会将您的功能放在模块“A”中，只需添加您应该使用的implicit none 语句。与 C 不同，Fortran 允许您在不声明变量的情况下使用变量，并为它们隐式分配类型，当错字创建新变量和调试噩梦时，这会引起丑陋。 implicit none 告诉编译器只使用你声明的变量。
上例中的主程序将函数的返回值存储在一个指向字符数组的指针中。返回值不仅仅是 N*16 字节，因为与 C 不同，Fortran 字符串包含一些元数据，包括长度（并且不是以空值结尾的）。数组本身将在内部有一个数组描述符，用于存储有关数组边界、维度和一些其他信息的信息，因此总体分配将至少为 N*(16+字符标量开销)+数组描述符长度。引擎盖下的内容比 C 中的要多。
最后一点要注意，函数f的同名变量f是函数的类型及其返回值。这将在函数返回时在作用域内，并且内存将被复制到分配的array 内存中。作为 C 程序员，您可能遇到的最后一个潜在问题是 Fortran 通过引用传递参数。这在这里不是问题，但如果您假设像 C 那样按值传递，稍后可能会出现这种情况。
【讨论】：