インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス
Inquiry Intrinsic Function (Generic): Inquires whether the dynamic type of an object is an extension type of the dynamic type of another object.
result = EXTENDS_TYPE_OF (a , mold)
a |
(Input) Is an object of extensible type. If it is a pointer, it must not have an undefined association status. |
mold |
(Input) Is an object of extensible type. If it is a pointer, it must not have an undefined association status. |
The result type is default logical scalar.
The following determines the result value:
If mold is unlimited polymorphic and is a disassociated pointer or an unallocated allocatable, the result is .TRUE..
If a is unlimited polymorphic and is a disassociated pointer or an unallocated allocatable, the result is .FALSE..
If the dynamic type of a or mold is extensible, the result is true only if the dynamic type of a is an extension type of the dynamic type of mold.
Otherwise, the result is processor dependent.