add comment back

akuhlens · akuhlens · commit 69e907a13b4a · 2025-10-01T14:10:15.000-07:00
diff --git a/flang-rt/lib/runtime/derived-api.cpp b/flang-rt/lib/runtime/derived-api.cpp
@@ -138,6 +138,8 @@ bool RTDEF(ExtendsTypeOf)(const Descriptor &a, const Descriptor &mold) {
       return aType == moldType;
     }
   } else if (const auto *derivedTypeMold{GetDerivedType(mold)}) {
+    // If A is unlimited polymorphic and is either a disassociated pointer or
+    // unallocated allocatable, the result is false.
     // Otherwise if the dynamic type of A or MOLD is extensible, the result is
     // true if and only if the dynamic type of A is an extension type of the
     // dynamic type of MOLD.

Original file line number	Diff line number	Diff line change
`@@ -138,6 +138,8 @@ bool RTDEF(ExtendsTypeOf)(const Descriptor &a, const Descriptor &mold) {`
`138`	`138`	`return aType == moldType;`
`139`	`139`	`}`
`140`	`140`	`} else if (const auto *derivedTypeMold{GetDerivedType(mold)}) {`
	`141`	`+ // If A is unlimited polymorphic and is either a disassociated pointer or`
	`142`	`+ // unallocated allocatable, the result is false.`
`141`	`143`	`// Otherwise if the dynamic type of A or MOLD is extensible, the result is`
`142`	`144`	`// true if and only if the dynamic type of A is an extension type of the`
`143`	`145`	`// dynamic type of MOLD.`