Fortran中是否存在类似Java toString()的隐式类型转换机制？

在Java中，所有继承自Object类的类都拥有一个实用的方法：

public String toString()

该方法本身并无特别之处，但Java解释器的调用方式使其十分实用——当对象变量在需要String的场景中被直接使用（未引用其成员）时，Java解释器会查找该变量所属类的toString()方法，若未找到则沿继承层级向上查找（直至Object类），因此每个对象都有可用的toString()方法。这并非不可或缺的功能，但能为开发者带来便利。

据我所知，Fortran（及其他诸多语言）中似乎没有类似机制。我是否有误？Fortran中是否存在此类机制，或是有类似的隐藏特性？

我知道在Fortran的类（或类型）中实现toString()函数并不复杂，具体取决于类型的复杂度和期望返回的内容。但更便捷的是能直接编写：

write(*,*) somevariable

而非

write(*,*) somevariable%toString()

赋值操作同理，希望可以直接写：

character (len = *) :: str
str = somevariable

而非

str = somevariable%toString()

这显然与类型转换相关，即隐式类型转换。我无意就此展开长篇讨论，仅表述上述内容。

对应的Fortran实现方案 #

Fortran本身没有像Java那样自动隐式调用toString类方法的内置机制，但可以通过重载操作符的方式实现等价的便捷效果：

1. 重载格式化输出操作，实现直接打印对象

为自定义类型重载write(formatted)操作，这样使用write(*,*) somevariable时会自动执行你定义的输出逻辑，和Java隐式调用toString()的效果一致。

示例代码：

module custom_types
    implicit none

    type :: Person
        character(len=20) :: name
        integer :: age
    contains
        procedure :: write_person
        generic :: write(formatted) => write_person
    end type Person

contains

    subroutine write_person(this, unit, iotype, v_list, iostat, iomsg)
        class(Person), intent(in) :: this
        integer, intent(in) :: unit
        character(len=*), intent(in) :: iotype
        integer, intent(in) :: v_list(:)
        integer, intent(out) :: iostat
        character(len=*), intent(inout) :: iomsg

        ! 自定义输出格式，类似toString的返回内容
        write(unit, '(A, A, A, I0, A)', iostat=iostat, iomsg=iomsg) &
            "Person(name='", trim(this%name), "', age=", this%age, ")"
    end subroutine write_person

end module custom_types

program test_print
    use custom_types
    implicit none

    type(Person) :: p
    p%name = "Alice"
    p%age = 30

    ! 直接打印对象，自动调用重载的write逻辑
    write(*,*) p
end program test_print

2. 重载赋值操作，实现对象到字符串的直接转换

如果需要支持str = somevariable这种隐式赋值，可以为自定义类型和字符类型重载assignment(=)操作符：

示例代码：

module custom_types
    implicit none

    type :: Person
        character(len=20) :: name
        integer :: age
    contains
        procedure :: to_string
        generic :: assignment(=) => assign_person_to_char
    end type Person

contains

    function to_string(this) result(str)
        class(Person), intent(in) :: this
        character(len=:), allocatable :: str

        write(str, "(A, A, A, I0, A)") "Person(name='", trim(this%name), "', age=", this%age, ")"
    end function to_string

    subroutine assign_person_to_char(str, this)
        character(len=*), intent(out) :: str
        class(Person), intent(in) :: this

        str = this%to_string()
    end subroutine assign_person_to_char

end module custom_types

program test_assign
    use custom_types
    implicit none

    type(Person) :: p
    character(len=100) :: str
    p%name = "Bob"
    p%age = 25

    ! 直接将对象赋值给字符变量
    str = p
    write(*,*) str
end program test_assign

3. 总结

Fortran没有全局的隐式类型转换/方法调用机制，但通过手动重载操作符（格式化输出、赋值等），完全可以实现和Java toString()一致的便捷性。这种方式需要为每个自定义类型编写对应的重载逻辑，但灵活性更高，能根据需求定制输出格式。

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