Question

我正在尝试熟悉fortran中的模块，为此我创建了一个带模块的简单代码。源代码已附加。

主程序

program main_prog
  use mod_f_g_h
  !
  implicit none
  ! f,g,h,s are defined in mod_f_g_h
  real :: x,y
  !
  ! read x,y
  print *, "enter x and y "
  read*, x, y
  !
  ! check
  if( y == 0 ) then
    print*, "y must be non-zero"
    stop
  end if
  !
  ! print on screen
  print*, '  x   = ', x
  print*, '  y   = ', y
  print*, 'x + y = ', f(x,y)
  print*, 'x * y = ', g(x,y)
  print*, 'x * x = ', s(x)
  print*, 'y * y = ', s(y)
  print*, 'x / y = ', h(x,y)

end program main_prog

MODULE

module mod_f_g_h
  !
  ! use other modules
  implicit none
  !
contains
  !
  real function s(x)
    implicit none
    real :: x,g
    s = g(x,x)
  end function s
  !
  real function f(x,y)
    implicit none
    real :: x,y
    f = x+y
  end function f
  !
  real function g(x,y)
    implicit none
    real :: x,y
    g = x*y
  end function g
  !
  real function h(x,y)
    implicit none
    real :: x,y
    h = x/y
  end function h
end module mod_f_g_h

但是当我尝试使用

编译和链接代码时

gfortran -c mod_f_g_h.f90
gfortran -c main.f90
gfortran *.o -o run.x

得到以下错误（在最后一步中）

mod_f_g_h.o: In function `__mod_f_g_h_MOD_s':
mod_f_g_h.f90:(.text+0xb6): undefined reference to `g_'
collect2: ld returned 1 exit status

我认为，我已经定义了所有变量，而且我没有链接任何外部库，所以我不知道为什么会出现这个错误？任何评论/想法？

Answer 1

应该阅读

real function s(x)
implicit none
real :: x
s = g(x,x)
end function s

在模块内部。

VladimirF的进一步解释：

通过real g，您将g内的函数s声明为外部实际函数，与模块中的函数不同。

对同一模块中定义的过程的未定义引用

1 个答案: