如何调用在单独文件中定义的 Fortran 函数？

Question

我正在尝试编译一些非常古老的代码（1986 年及之前）。此代码引用了一个外部函数。今天的编译器要求更多的代码来完成这项工作。而我一直失败。 我现在创建了一个小的 hello world 程序来演示这个问题。

你好.for

  PROGRAM hello
    USE func        
    PRINT *, "Hello World!"
    PRINT *, f ()    
  END PROGRAM hello

func.for

  MODULE func
    PUBLIC f
  CONTAINS
    FUNCTION f () 
        f='Hello Func'
    END FUNCTION
  END MODULE

这不仅有一个，而且有两个问题：

• 如何定义返回类型？文档告诉 <type> FUNCTION <function> 或 FUNCTION <function> () <type>::<something> ，但都不起作用。
• 如何让链接器找到函数？

gfortran -c func.for 有效（如果我使用默认返回类型 real）并创建一个 mod 文件但链接不起作用

$ gfortran  hello.for 
/tmp/ccHNzcXA.o: In function `MAIN__':
hello.for:(.text+0xa4): undefined reference to `__func_MOD_f'
collect2: error: ld returned 1 exit status

__func_MOD_f没有包含在mod文件中，但在o文件中有func.for__func_MOD_f。

有什么想法吗？

谢谢

Answer 1

您有两个问题，f 的声明和正确链接模块。

首先，编译模块会产生错误：

% gfortran -c func.f
func.f:5:8:

       f='Hello Func'
        1
Error: Can't convert CHARACTER(1) to REAL(4) at (1)

此错误是由于 f 的隐式输入和不兼容的分配造成的。解决这个问题很简单，将f 显式声明为character 而不是隐式类型。添加：

character(len=30) :: f

到函数，现在你的模块编译了。这是修改后的模块：

  MODULE func
  PUBLIC f
  CONTAINS
  FUNCTION f ()
  character(len=30) :: f
  f='Hello Func'
  END FUNCTION
  END MODULE

---

您的第二个问题是链接。你的命令：

gfortran  hello.for  

失败，因为您没有指定模块对象。如果您已经编译了模块，您将指定：

gfortran hello.for func.o

如果你同时编译它们，你会这样做：

gfortran -o hworld func.for hello.for

如果您要单独编译所有内容：

gfortran -c func.for
gfortran -c hello.for
gfortran -o hworld hello.o func.o

其中任何一个都将编译并运行：

% ./hworld 
 Hello World!
 Hello Func   

---

如果您要对代码进行现代化改造，还值得添加 implicit none 以避免任何隐式类型并为所有内容声明显式变量。例如：

module func
  implicit none
contains
function f 
  implicit none
  character(len=30) :: f
  f='Hello Func'
end function f
end module func

和

program hello
  use func
  implicit none        
  print *, "Hello World!"
  print *, f ()    
end program hello