按动态名称访问Fortran派生类型的组件

Question

Fortran中是否有一种方法可以在使用字符串时访问派生类型的组件？我在使用Matlab和结构之前已经完成了这个，但我不知道在fortran中是否有任何方法可以做到这一点。

例如，使用：

  module class_mod
  implicit none

  private

  public :: obj,get_prop

  type obj
    private
    integer :: i
  end type

  contains

  function get_prop(A,p) result(R)
    implicit none
    type(obj),intent(in) :: A
    character(len=*),intent(in) :: p
    integer :: R
    R = A%(p)
  end function

  end module

  program main
  use class_mod
  implicit none

  type(obj) :: A
  integer :: i
  A%i = 5
  i = get_prop(A,'i')
  write(*,*) 'i = ',i

  end module

我希望打印值为5。