fortran - 具有指向 CHARACTER(*) 变量的无限多态指针的 SELECT TYPE

Question

以下示例使用 Fortran 2003 功能来定义无限多态指针，并根据 select type 构造之后的变量类型执行操作。子例程handleP根据参数的类型打印参数的值。

program example
    implicit none
    type name
        character(22) :: n
    end type

    character(len=7) :: mystring
    mystring = 'Initial'

    call handleP(mystring)
    call handleP('Initial')
    call handleP(name('Initial'))

    contains

        subroutine handleP(p)
            class(*), intent(in) :: p

            select type(p)
            type is (character(len=*))
                write(*,*) len(p), ': ', p
            class is (name)
                write(*,*) len(p%n), ': ', p%n
            class default
                write(*,*) 'Unknown type'
            end select
        end subroutine

end program example

使用 gfortran 版本 4.8 进行编译会给出以下输出:

       7 : Initial
       0 :
      22 : Initial

因此，使用 callhandleP(mystring) 一切都按预期工作，但使用 callhandleP('Initial') 打印失败。使用 type(name) 参数调用也可以。

call handleP('Initial') 的行为是 gfortran 错误还是我做错了什么？如果这是一个错误，我可以采取什么措施来防止它？

Answer 1

我只是想让大家知道这个问题已在当前 MinGW 安装附带的 gFortran 4.9.3-1 中得到解决。