Error: Return type mismatch of function 'add' at (1) (REAL(4)/REAL(8))

fcode

Implicit None 非常重要，建议新手朋友切勿省略。

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

program main
  Implicit None !// 非常重要
  real(kind=8)::x=8.0d0 , add !//常数要加 d0，要定义 add
  real(kind=8)::y
  y=add(1,x)
  write(*,*)y
end program main

real(kind=8) function add(I,x)
  Implicit None !//非常重要
  integer :: i  !// 定义
  real(kind=8) :: x !//定义
  if(I==1) add=x+10.0d0 !//常数要加 d0
end function add

fcode

双精度常量要加 d0，单精度不用。因为编译器，默认都是单精度的。
单精度有效位数在 6 到 7 位之间。双精度大概15位。有效位数的概念，你可以百度一下。初中数学应该学过。

关于浮点数精度的问题，你还可以看视频教程第五期：http://v.fcode.cn/video-variable_type.html

fcode

bingo