如何无需重复定义类型，将当前模块的类型变量传入其他模块？

你遇到的核心问题是自定义类型myType的定义被放在了依赖my_other_module的模块中，而my_other_module的函数又需要这个类型，导致双向依赖引发循环引用。下面是两种可行的解决方式：

方案1：将共享类型抽离到独立基础模块（推荐） #

把所有模块都需要的自定义类型单独放到一个无依赖的基础模块中，其他功能模块只需要引用这个基础模块即可彻底避免循环。

步骤1：创建独立的类型定义模块 #

新建types_module.f90，专门存放共享类型：

module types_module
  implicit none

  type :: myType
    integer :: &
      a, b, c
  end type myType

end module types_module

步骤2：修改功能模块my_other_module #

让它引用基础类型模块，直接使用myType：

module my_other_module
  use types_module
  implicit none

contains

  subroutine my_other_module_function(obj)
    type(myType), intent(in) :: obj
    ! 这里编写函数逻辑，例如：
    print *, "Received values: ", obj%a, obj%b, obj%c
  end subroutine my_other_module_function

end module my_other_module

步骤3：修改主模块/主程序 #

同时引用基础类型模块和功能模块，不再存在循环依赖：

module main_module
  use types_module
  use my_other_module
  implicit none

  type(myType) :: myVariable

contains

  subroutine init_and_call()
    myVariable%a = 1
    myVariable%b = 2
    myVariable%c = 3

    call my_other_module_function(myVariable)
  end subroutine init_and_call

end module main_module

这种结构下，main_module和my_other_module都只依赖types_module，彼此间没有双向依赖，完全符合Fortran的模块依赖规则。

方案2：使用前向声明临时规避（不推荐） #

如果暂时不想重构模块结构，可以在my_other_module中对myType做前向声明，告诉编译器该类型的存在，但不需要知道具体结构。不过这种方式容易引发维护问题，仅适合临时场景：

module my_other_module
  implicit none
  ! 前向声明myType，告知编译器该类型存在
  type, forward :: myType

contains

  subroutine my_other_module_function(obj)
    type(myType), intent(in) :: obj
    ! 函数逻辑
  end subroutine my_other_module_function

end module my_other_module

注意：这种方式要求主模块在引用my_other_module之前必须已经完整定义myType，如果后续my_other_module需要访问myType的成员变量，这种方法会失效，所以优先推荐方案1。

内容的提问来源于stack exchange，提问作者Yes