如何访问 fortran 模块中的私有变量？

Question

我知道私有变量的想法是它们不应该被访问，并且我确实希望它在程序的其余部分中使用该模块时以这种方式工作，但我需要它来检查内部模块的工作原理。

假设我有以下简化示例：

module mod
  implicit none
  private
  integer :: value
  public :: set_value

contains

subroutine set_value(input)
  implicit none
  integer,intent(in) :: input
  value=input
end subroutine

end module

我现在想测试子例程，看看它是否真的在做我想要的：我想编写一个使用该模块的程序，使用输入 8 调用例程 set_value，然后检查内部变量是否value 现在是 8。

我可以这样做吗？还是有另一种方法来对私有变量的初始化程序进行单元测试？

Answer 1

在我看来，你有三种方法。

1. 编写一个 get 函数来获取值并进行测试。您在 cmets 中指出这是次优的，所以..

2. 如果您的编译器支持 Fortran 2003（例如任何最新版本的现代 Fortran 编译器），请使用 protected 属性而不是 private 属性声明变量。这将允许从任何代码中读取您的变量，但不会对其进行修改。这将强制它只能通过您的 setter 函数设置，但您可以直接在单元测试中检查它的值。

   integer, protected :: value
   

3. 最后，如果所有其他方法都失败了，您可以有条件地编译模块，以便有时变量不是私有的。例如，这样做：

   module mod
     implicit none
     private
     integer :: value
     public :: set_value
   
   #ifdef UNITTESTING
     public :: value
   #endif
   
   contains
   ...
   end module
   

   然后将文件名从 .f90 更改为 .F90 以便对其进行预处理（至少在 gfortran 和 ifort 上）。当你正常编译它时，value 将是私有的，但如果你使用标志 -DUNITTESTING 编译，那么 value 将是公共的。当您编译测试用例时，您使用该标志，他们现在可以直接检查变量。