Fortran 自然对数误差

Question

Fortran 新手(今天刚开始)，遇到自然对数问题:

PROGRAM log
IMPLICIT NONE
REAL :: x

PRINT *, "Enter a number:"
READ *, x

x = log (x)

PRINT *, "The natural log of x is:", x

END PROGRAM log

编译器不断抛出错误:

x = log (x)
       1
Error: Symbol at (1) is not appropriate for an expression

其他内在函数工作正常。我究竟做错了什么？

Answer 1

问题是您已经隐藏(覆盖)了符号 log 的定义。 - 通常指的是标准库数学函数 - 带有您的程序名称，也是 log .如果您将程序名称更改为 logtest :

PROGRAM logtest
...
END PROGRAM logtest

您会发现该程序按预期工作。