Query dynamic types for equality.
Fortran 2003 and later
result = same_type_as(a, b)
a
- Shall be an object of extensible declared type or unlimited polymorphic.b
- 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 the same as the dynamic type of b
.