返回字符的Fortran函数

Question

我有一个返回字符串的函数。在Fortran中有 要求输出的长度必须定义，并且不能为 （len=*)。我不确定当我将函数调用 时可能遇到什么问题，并且字符串比大小在 函数声明。

Function real_to_str_new & 
    (      & 
    r, fmt    & 
)      & 
    Result (s) 

Real, Intent(in) :: r 
Character (len=*), Intent(in) :: fmt 

Character (len=65) :: s 

Answer 1

这有一个函数的结果不是很重要，问题如下分配规则。

在（固有）分配，你必须variable = expr字符类型，规则7.2.1.3, 10是：

对于变量为字符类型的内部赋值语句，expr可能具有不同的字符长度参数，在这种情况下expr转换为变量长度如下。 （1）如果变量的长度小于expr的长度，则expr的值将从右边截断，直到它与变量的长度相同为止。 （2）如果变量的长度大于expr的长度，则expr的值在空白处右侧扩展，直到长度与变量的长度相同为止。

在这种情况下expr（如函数的结果）的长度参数65 variable将长度参数的声明（除非allocatable进场）。