oop - 拡張タイプを拡張

Question

すでに型を拡張しているFortran型を拡張したい。拡張型を使用すると、次のように記述できることを知っています。

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

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

拡張する3番目のタイプがある場合、これはどのように機能します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.