实例0831书中说不需要声明就可以用，但是出现报错

fcode

去掉 stop 后面的 end

被主程序包含的 fact 函数需要放在program 里面，才能被 program 识别，实现不定义而使用。

此外，stop 其实也没有存在的必要。return 没必要存在
再次此外，当 fact 包含在 program 里面时，因为 program 中已经有 implicit none 了，所以 fact 函数里的 implicit none 也没必要存在。

[Fortran] 纯文本查看 复制代码

program ex0831
  implicit none
  integer ::n
  write(*,*)'N='
  read (*,*)n
  write(*,"(I2,'!=',I8)")n,fact(n)

contains

  recursive integer function fact(n) result(ans)
    integer ,intent(in)::n
    if (n<0)then
      ans=-1
    else if (n<=1)then
      ans =1
    else
      ans=n*fact(n-1)    
    end if
  end function fact
  
end program ex0831