@@ -124,7 +124,7 @@ bool RTDEF(ExtendsTypeOf)(const Descriptor &a, const Descriptor &mold) {
124124 // F'23 16.9.86 p 5
125125 // If MOLD is unlimited polymorphic and is either a disassociated pointer or
126126 // unallocated allocatable variable, the result is true;
127- if ((mold.IsPointer () && !mold.IsAssociated ()) ||
127+ if ((mold.IsPointer () && !mold.IsAssociated ()) ||
128128 (mold.IsAllocatable () && !mold.IsAllocated ())) {
129129 return true ;
130130 } else if ((a.IsPointer () && !mold.IsAssociated ()) ||
@@ -139,22 +139,22 @@ bool RTDEF(ExtendsTypeOf)(const Descriptor &a, const Descriptor &mold) {
139139 // true if and only if the dynamic type of A is an extension type of the
140140 // dynamic type of MOLD.
141141 for (const typeInfo::DerivedType *derivedTypeA{GetDerivedType (a)};
142- derivedTypeA; derivedTypeA = derivedTypeA->GetParentType ()) {
143- if (derivedTypeA == derivedTypeMold) {
144- return true ;
145- }
142+ derivedTypeA; derivedTypeA = derivedTypeA->GetParentType ()) {
143+ if (derivedTypeA == derivedTypeMold) {
144+ return true ;
145+ }
146146 }
147147 return false ;
148148 }
149149 // MOLD is unlimited polymorphic and unallocated/disassociated.
150- // This might be impossible to reach since the case is now handled explicitly
151- // above.
150+ // This might be impossible to reach since the case is now handled
151+ // explicitly above.
152152 return true ;
153153 } else {
154154 // F'23: otherwise, the result is processor dependent.
155155 // extension, if types are not extensible, true if they match.
156- return aType != CFI_type_other && moldType != CFI_type_other &&
157- aType == moldType;
156+ return aType != CFI_type_other && moldType != CFI_type_other &&
157+ aType == moldType;
158158 }
159159}
160160
0 commit comments