Question

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

hello.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有效（如果我使用默认的返回类型为真）并创建一个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以避免任何隐式类型并为所有内容声明显式变量。 e.g：

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

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

1 个答案: