oop - 扩展扩展类型

Question

我想扩展一个已经扩展了一个类型的 Fortran 类型。我知道当我有一个扩展类型时，我可以写

type o1
...
type, extends(o1) :: o2
...

type(Object1) :: o1
allocate(o2::o1)

当我有第三种扩展类型时，这将如何工作o2？这可能吗？

Answer 1

是的。为了清楚起见，重述代码并重命名：

type :: t1               ! The top level parent type.
  integer :: c1          ! A component in the parent type.
end type t1

type, extends(t1) :: t2  ! An extension of t1.
  integer :: c2
end type t2

type, extends(t2) :: t3  ! A further extension of t2.
  integer :: c3
end type t3

! Declare an object of declared type t1.
class(t1), allocatable :: object

! Allocate that object, giving it a dynamic type of t3.
allocate(t3 :: object)

object%c1 = 1       ! c1 is a component of the declared type.
! Use select type or a type bound procedure to access c2 and c3.