fortran - 函数没有隐式类型

Question

我正在尝试学习使用函数。我有以下代码:

program main
  implicit none

  write(*,*) test(4)
end program

integer function test(n)
  implicit none
  integer, intent(in) :: n
  integer :: i, ans

  ans=1
  do i=1,n
  ans=ans*i
  enddo

  test=ans
end function test

当我编译(使用 gfortran 4.1.2)时，出现以下错误:

In file test.f90:4

  write(*,*) test(4)
           1
Error: Function 'test' at (1) has no IMPLICIT type

Answer 1

移动线

end program

到源文件的末尾，并在其位置写下一行

contains

当您编写程序时，它不知道函数 test ，这就是编译器告诉你的。我已经建议了一种可以为程序提供所需知识的方法，但还有其他方法。既然你是一个学习者，我会让你弄清楚发生了什么。