Query dynamic type for extension.
Fortran 2003 and later
extends_type_of(a, mold)
a - An object of extensible declared type or unlimited polymorphic.mold - An object of extensible declared type or unlimited polymorphic.The return value is a scalar of type default logical. It is .true. if and only if the dynamic type of a is an extension type of the dynamic type of mold.