是什么导致“为'％VARIABLENAME'设置的等效项”导致对COMMON'％BLOCKNAME'的无效扩展名

Question

我正在尝试编译和链接一个Fortran项目，其中包括我编写的代码以及其他团队编写的代码。主程序包括许多头文件，例如，其中设置了公共块。在使用主程序编译文件时，通过gfortran指出The equivalence set for ‘%VARIABLENAME’ cause an invalid extension to COMMON '%BLOCKNAME'

，我收到了很多错误消息

相同的主程序和头文件已在其他程序中工作。我以前从未看过此消息，也找不到任何含义。有人可以告诉我更多吗？

Answer 1

我自己发现了它，而且非常简单：上面错误消息中的％VARIABLENAME实际上是一个数组，并且大小对于公共块而言显然太大了（大约几百万个）。这是由于数组维数是由我从另一个团队获得的代码中的一个参数设置的，他们将其设置为任意值。将数组大小减小到实际上有意义的值会立即有所帮助。 带回家的消息：避免常见的障碍，请始终交叉检查其他人给您的代码。