[flang] [llvm] [flang] Improve runtime SAME_TYPE_AS() (PR #135670)

[Peter Klausler via llvm-commits]

================
@@ -155,7 +133,7 @@ bool RTDEF(ExtendsTypeOf)(const Descriptor &a, const Descriptor &mold) {
     // dynamic type of MOLD.
     for (const typeInfo::DerivedType *derivedTypeA{GetDerivedType(a)};
          derivedTypeA; derivedTypeA = derivedTypeA->GetParentType()) {
-      if (CompareDerivedType(derivedTypeA, derivedTypeMold)) {
+      if (derivedTypeA == derivedTypeMold) {
----------------
klausler wrote:

I'm testing equality of the addresses of the derived type information.  If they're different, then they're different types by definition for extensible derived types, and can also be viewed as distinct non-extensible types (it's implementation dependent).

https://github.com/llvm/llvm-project/pull/135670