Question

fortran 由ENTRY引起的SUBROUTINE参数未定义

比如：
SUBROUTINE Test01( aa )

...
ENTRY Test02

...
if( aa .NE. 0 )
....

END

我现在手里有段代码有上面的问题，在子程序中定义了一个参数，但是外部通过ENTRY进入子程序，导致下面使用的参数成了未定义的了，出现这样的情况有什么历史原因吗？有什么简单的解决方法吗？

Answer 1

请注意，参数的定义，变量的定义，不是执行语句。而是给编译器知晓的声明语句。
所以，不管从 entry 还是子程序头部进入子程序，定义和声明是一样的。

而且变量和参数未定义，是发生在代码编译的时候。
从哪里进入子程序，是发生在代码执行的时候。

程序的过程是：编译，链接，然后才能执行的。你怎么能把一个先发生的错误，怪在后发生的事情上呢？逻辑上也说不通啊

如果你发现某个参数未定义，请给出具体代码和错误提示。

追问

仔细调试一番发现问题不是这个原因引起的，这样情况下会导致函数参数都是未初始化的值，我发现的问题的原因是在其他定义有一个全局变量同函数参数同名，而那个参数是个指针，且未初始化，调试到这步时VS的ToolTip提示“Undefined pointer/array”，再运行就崩溃了。

追答

那就检查那个没有初始化的指针吧。我不推荐用全局变量。如有必要，用 module 代替。