Fortran模拟OOP类代码编译报错，如何修正实现类特性？

错误原因分析 #

Fortran 90及以后版本支持**派生类型（Derived Type）和类型绑定过程（Type-Bound Procedures）**实现类似OOP的类特性，但不能像Python/Java那样直接在类型定义内写过程的完整实现。你的代码大概率违反了这个语法规则，导致编译报错。

修正后的代码示例 #

module MyClassMod
  implicit none

  ! 定义派生类型（对应OOP中的"类"）
  type :: MyClass
    private  ! 私有成员，模拟类的封装
    integer :: value
  contains
    ! 绑定过程（类的方法），声明接口
    procedure :: set_val => set_val_impl
    procedure :: get_val => get_val_impl
  end type MyClass

contains

  ! 实现设置值的方法
  subroutine set_val_impl(this, v)
    class(MyClass), intent(inout) :: this  ! 必须用class而非type，支持多态
    integer, intent(in) :: v
    this%value = v
  end subroutine set_val_impl

  ! 实现获取值的方法
  function get_val_impl(this) result(res)
    class(MyClass), intent(in) :: this
    integer :: res
    res = this%value
  end function get_val_impl

end module MyClassMod

program main
  use MyClassMod
  implicit none

  type(MyClass) :: obj  ! 实例化对象

  call obj%set_val(10)
  print *, "Value is: ", obj%get_val()

end program main

关键修正点 #

• 用模块包裹类型和过程：Fortran的类型绑定过程必须放在模块（或包含块）中，不能直接在主程序内定义带绑定的派生类型。
• 分离过程声明与实现：在派生类型的contains块里只声明过程接口（用=>指向实际实现），具体逻辑放在模块的contains块中。
• 用class定义this参数：class支持多态，是Fortran实现类方法的标准写法；若不需要多态也可用type，但推荐用class。
• 封装特性：通过private关键字隐藏类的内部成员（比如value），仅允许通过绑定方法访问，模拟OOP的封装性。

编译运行 #

用gfortran编译执行：

gfortran -o myclass myclass.f90
./myclass

输出结果：

Value is:  10

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