什么是未定义的引用/未解决的外部符号错误？如何在FORTRAN中修复它？

Answer 1

像这些消息这样的链接时错误可能是由于许多与链接器的更广泛使用相同的原因，而不仅仅是编译了一个Fortran程序。其中一些问题包含在关于C++链接的链接问题和这里的另一个答案中：未能指定库，或者以错误的顺序提供它们。

然而，在编写Fortran程序时有一些常见的错误会导致链接错误。

如果一个子例程引用打算引用一个内部子例程，那么如果编译器没有提供该子例程intrinsic：它被认为是一个外部子例程，这可能会导致链路时间错误。

  implicit none
  call unsupported_intrinsic
end

undefined reference to `unsupported_intrinsic_'

  implicit none
  intrinsic :: my_intrinsic
  call my_intrinsic
end program

如果my_intrinsic不是受支持的intrinsic,那么编译器将发出一条有用的消息：

Error: ‘my_intrinsic’ declared INTRINSIC at (1) does not exist

内部函数没有这个问题，因为我们使用的是隐式none:

  implicit none
  print *, my_intrinsic()
end

Error: Function ‘my_intrinsic’ at (1) has no IMPLICIT type

对于某些编译器，我们可以使用Fortran 2018隐式语句对子程序执行相同的操作

  implicit none (external)
  call my_intrinsic
end

Error: Procedure ‘my_intrinsic’ called at (1) is not explicitly declared

module mod
  implicit none
contains
  integer function sub()
    sub = 1
  end function
end module

  use mod, only :
  implicit none

  integer :: sub

  print *, sub()

end

undefined reference to `sub_'

如果我们与C进行互操作，那么我们可以很容易地错误地指定符号的链接名。当不使用标准互操作性工具时，这是如此容易，所以我不会费心指出这一点。如果您看到与C函数相关的链接错误，请仔细检查。

如果使用标准设施，仍然有绊倒的方法。区分大小写是一种方法：链接符号名称区分大小写，但是如果大小写不全低，则必须告诉Fortran编译器：

   interface
     function F() bind(c)
       use, intrinsic :: iso_c_binding, only : c_int
       integer(c_int) :: f
     end function f
  end interface

  print *, F()
end

告诉Fortran编译器向链接器询问一个符号F，尽管我们在这里称之为F。如果符号真的叫做f，我们需要显式地说：

   interface
     function F() bind(c, name='F')
       use, intrinsic :: iso_c_binding, only : c_int
       integer(c_int) :: f
     end function f
  end interface

  print *, F()
end

如果看到大小写不同的链接错误，请检查绑定标签。

对于具有绑定标签的数据对象也是如此，并且还要确保任何具有链接关联的数据对象在任何C定义和链接对象中都有匹配的名称。

编译器通常会假设，除非另有告知，它正在编译主程序，以便（使用链接器）生成一个可执行文件。如果我们不编译一个主程序，这不是我们想要的。也就是说，如果我们正在编译一个模块或外部子程序，以便以后使用：

module mod
  implicit none
contains
  integer function f()
    f = 1
  end function f
end module

subroutine s()
end subroutine s

undefined reference to `main'