Fortran 编译器错误

Question

我正在尝试使用适用于 Linux 的 intel Fortran 编译器（版本 12.0.3）编译我的程序，但收到此错误：

buggy.f90(206): error #6219: A specification expression object must be a dummy
argument, a COMMON block object, or an object accessible through host or use 
association   [SPECTRUM]
    type(spect)                       :: spectrum
 ----------------------------------------^

This is inside a module。 type(spect) 来自另一个模块，我在麻烦模块的开头使用。这是一些代码；更多详细信息请参见下文。

module non_buggy

   implicit none

   type axis
      character(len=6) :: nucleus
      integer          :: num_data_points
      real             :: spectral_width
   end type axis

   type spect
      integer                 :: num_dim
      type(axis), allocatable :: axes(:)
      real, allocatable       :: intensity(:)
      character(len=10)       :: type = ''
   end type spect

   type(spect), target :: spectrum  ! might this be a cause of error?

   contains
   ! ...
end module non_buggy


module buggy

   use non_buggy

   implicit none

   contains

   subroutine no_problem_here()

      type(spect) :: spectrum  ! compiles beautifully
      ! ...
   end subroutine no_problem_here

   subroutine problem()
      type(spect) :: spectrum  ! does not compile, but no error if I change the variable name
      ! ...
   end subroutine problem
end module buggy

我已经阅读了该错误的含义，但我的印象并不适用于我在代码中所做的事情 - 这些行上没有指定数组边界。如果我将第二次出现的 spectrum 重命名为其他名称，错误就会消失，我想知道问题是否可能与模块 spectrum 中的模块变量 spectrum 有关。 code>non_buggy （但是即使我注释掉声明模块变量的行，错误仍然存​​在）。如果 Fortran 专家能够澄清这个问题，我将不胜感激。

预先非常感谢！

Answer 1

无法在 Linux 和 osx 上使用 ifort 11 进行重现。我没有 ifort 12，所以无法验证，但这里的要点是您正在从模块导出 spectrum，这很可能是一个坏主意。始终在模块中使用关键字private，并仅明确公开您想要公开的内容。

如果您想让频谱成为模块变量（我不明白，为什么？您期望一个且只有一个频谱吗？您确定吗？）您还可以考虑是否需要 save< /code> 关键字来保存值。

最后，您掩盖了模块变量。愚蠢的 Fortran 没有命名空间的概念。如果您将一个模块中的所有内容删除到另一个模块中，则会污染您的名称空间，并且很可能最终会遇到这些情况。在某些情况下支持子程序导入，以限制损害（尽管它变得不那么具有沟通性）。将模块变量保持在最低限度，当你这样做时，要么为它们添加一个唯一的前缀，要么干脆不使用它们，并在类似 OOP 的代码布局中规范自己。

模块应该是无状态的。您不仅可以获得灵活性，还可以减少令人头疼的多线程问题。

Answer 2

我在代码示例中没有看到任何错误，即使声明与全局变量（模块 non_buggy 上的变量）具有相同名称（频谱）的局部变量（在例程 no_problem_here 和 Problem 中）很容易出错。

你使用什么编译器？我使用 ifort 11.1 和 gfortran 4.7.0 毫无问题地编译了您的示例（只是注释模块 non_buggy 的关键字 CONTAINS，因为 ifort 抱怨“contains”和“end module”之间没有指令）。