fixing typo in pointer check of object

akuhlens · akuhlens · commit f360deca5b54 · 2025-10-01T10:29:25.000-07:00
diff --git a/flang-rt/lib/runtime/derived-api.cpp b/flang-rt/lib/runtime/derived-api.cpp
@@ -127,7 +127,7 @@ bool RTDEF(ExtendsTypeOf)(const Descriptor &a, const Descriptor &mold) {
   if ((mold.IsPointer() && !mold.IsAssociated()) ||
       (mold.IsAllocatable() && !mold.IsAllocated())) {
     return true;
-  } else if ((a.IsPointer() && !mold.IsAssociated()) ||
+  } else if ((a.IsPointer() && !a.IsAssociated()) ||
       (a.IsAllocatable() && !a.IsAllocated())) {
     return false;
   }

Original file line number	Diff line number	Diff line change
`@@ -127,7 +127,7 @@ bool RTDEF(ExtendsTypeOf)(const Descriptor &a, const Descriptor &mold) {`
`127`	`127`	`if ((mold.IsPointer() && !mold.IsAssociated()) \|\|`
`128`	`128`	`(mold.IsAllocatable() && !mold.IsAllocated())) {`
`129`	`129`	`return true;`
`130`		`- } else if ((a.IsPointer() && !mold.IsAssociated()) \|\|`
	`130`	`+ } else if ((a.IsPointer() && !a.IsAssociated()) \|\|`
`131`	`131`	`(a.IsAllocatable() && !a.IsAllocated())) {`
`132`	`132`	`return false;`
`133`	`133`	`}`