Question

在vs2008版本中运行fortran出现如下的错误 新手不会，大神帮忙解决。

代码也如下，我昨天还可以运行这个代码，今天就出现问题了。
PROGRAM Newton
IMPLICIT NONE
INTEGER ::Its =0 !迭代数
INTEGER ::MaxIts =20 !最大迭代数
LOGICAL ::Converged =.false. !是否收敛
! REAL ::Eps =1e-6 !迭代精度
REAL ::X =2 !根的精度

DO WHILE(.NOT.Converged .AND.Its<MaxIts)
X=X-F(X)/DF(X)
PRINT*,X,F(X)
Its=Its+1
Converged=ABS(F(X))<=Eps

END DO

IF(Converged)THEN
PRINT*,'Newton converged'
ELSE
PRINT*,'Newton diverged'
END IF

CONTAINS
FUNCTION F(X)
REAL F,X
F=X**3+X-3
END FUNCTION F

FUNCTION DF(X)
REAL DF,X
DF=3*X**2+1
END FUNCTION DF
END PROGRAM Newton

Answer 1

重新生成项目，如果不行的话，复制代码，新建个项目。