Query dynamic type for extension.
Fortran 2003 and later
Inquiry function
RESULT = EXTENDS_TYPE_OF(A, MOLD)
A | Shall be an object of extensible declared type or unlimited polymorphic. |
MOLD | Shall be 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.
© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-7.2.0/gfortran/EXTENDS_005fTYPE_005fOF.html