Searched refs:IsUnlimitedPolymorphic (Results 1 – 17 of 17) sorted by relevance
202 !type.IsUnlimitedPolymorphic()) { in GetDerivedTypeSpec()322 if (x.IsUnlimitedPolymorphic()) { in AreCompatibleTypes()324 } else if (y.IsUnlimitedPolymorphic()) { in AreCompatibleTypes()358 if (IsUnlimitedPolymorphic() || that.IsUnlimitedPolymorphic()) { in ExtendsTypeOf()
492 } else if (IsUnlimitedPolymorphic()) { in AsFortran()514 if (IsUnlimitedPolymorphic()) { in AsFortran()
268 if (!type->IsUnlimitedPolymorphic()) { in OffsetToDataRef()
1319 (x.type.type().IsUnlimitedPolymorphic() != in Distinguishable()1320 y.type.type().IsUnlimitedPolymorphic() || in Distinguishable()
1407 argOk = !type->IsUnlimitedPolymorphic() && in Match()
88 if (!selectorType_.IsUnlimitedPolymorphic()) { // C1162 in PassesChecksOnGuard()135 if (!selectorType_.IsUnlimitedPolymorphic()) { // C1162 in PassesDerivedTypeChecks()
221 } else if (rhsType->type().IsUnlimitedPolymorphic()) { in Check()298 } else if (type.IsUnlimitedPolymorphic()) { in LhsOkForUnlimitedPoly()
299 } else if (!type2.IsUnlimitedPolymorphic()) { in IsTypeCompatible()382 } else if (type2.IsUnlimitedPolymorphic()) { in HaveCompatibleKindParameters()
721 if (dyType.IsUnlimitedPolymorphic() || in DescribeComponent()753 !dyType.IsUnlimitedPolymorphic()) { in DescribeComponent()1041 t1.IsUnlimitedPolymorphic() || t2.IsUnlimitedPolymorphic() || in DescribeSpecialProc()
209 } else if (dyType->IsUnlimitedPolymorphic()) { in GetType()
479 bool actualIsUnlimited{actualType.type().IsUnlimitedPolymorphic()}; in CheckExplicitDataArg()480 bool dummyIsUnlimited{dummy.type.type().IsUnlimitedPolymorphic()}; in CheckExplicitDataArg()
126 if (lhsType->IsUnlimitedPolymorphic()) { in IsDefinedAssignment()129 if (rhsType->IsUnlimitedPolymorphic()) { in IsDefinedAssignment()
1314 if (!type_->IsUnlimitedPolymorphic()) { in Test()1416 } else if (dyType->IsUnlimitedPolymorphic()) { in Push()1861 if (IsAllocatable(*symbol) && symType->IsUnlimitedPolymorphic() && in Analyze()3842 : type->IsUnlimitedPolymorphic() ? "CLASS(*)"s in TypeAsFortran()
1014 !type->IsUnlimitedPolymorphic()) { in CheckForBadIoComponent()
6371 } else if (type.IsUnlimitedPolymorphic()) { in ToDeclTypeSpec()
355 return category_ == ClassDerived || IsUnlimitedPolymorphic(); in IsPolymorphic()357 bool IsUnlimitedPolymorphic() const { in IsUnlimitedPolymorphic() function
173 constexpr bool IsUnlimitedPolymorphic() const { // TYPE(*) or CLASS(*) in IsUnlimitedPolymorphic() function399 bool IsUnlimitedPolymorphic() const { return !derivedTypeSpec_; } in CONSTEXPR_CONSTRUCTORS_AND_ASSIGNMENTS()