fortran – 过程指针数组的自动初始化

2019年7月27日 150次阅读

有没有办法自动初始化一个常量的过程指针数组？

我有一堆例程,必须根据整数变量的值来调用.我想使用下面给出的过程指针,而不是使用select case语句.但是,如果我可以跳过过程指针数组的显式初始化,并将其定义为包装过程指针的常量数组,那就太好了.下面的代码演示了我找到的解决方案,注释的行表示目标,我想实现：

module testmod
  implicit none

  abstract interface
    subroutine subInterface()
    end subroutine subInterface
  end interface

  type :: SubPtr
    procedure(subInterface), nopass, pointer :: ptr
  end type SubPtr

  ! Would be nice to use something like this:
  !type(SubPtr), parameter :: subs(2) = [ SubPtr(sub1), SubPtr(sub2) ]

contains

  subroutine sub1()
    print *, "SUB1"
  end subroutine sub1

  subroutine sub2()
    print *, "SUB2"
  end subroutine sub2

end module testmod


program test
  use testmod
  implicit none

  type(SubPtr) :: subs(2)
  integer :: ii

  ! Would be nice to get rid of those two initialization lines
  subs(1) = SubPtr(sub1)  
  subs(2) = SubPtr(sub2)

  ! Testing procedure pointer array
  do ii = 1, 2
    call subs(ii)%ptr()
  end do

end program test

最佳答案 我认为这(你的注释“会很好……”类型声明声明)只需要(工作)Fortran 2008支持.为了在常量表达式中有效,对应于指针组件的结构构造函数中的组件可以是初始化目标(7.1.12p1 3b).对于过程指针组件,初始化目标是initial-proc-target,它允许(除其他之外)非元素模块过程,这是sub1和sub2都是.

点赞