Lines Matching refs:semantics
52 static bool hasDefaultInitialization(const Fortran::semantics::Symbol &sym) { in hasDefaultInitialization()
53 if (sym.has<Fortran::semantics::ObjectEntityDetails>() && sym.size()) in hasDefaultInitialization()
54 if (!Fortran::semantics::IsAllocatableOrPointer(sym)) in hasDefaultInitialization()
55 if (const Fortran::semantics::DeclTypeSpec *declTypeSpec = sym.GetType()) in hasDefaultInitialization()
56 if (const Fortran::semantics::DerivedTypeSpec *derivedTypeSpec = in hasDefaultInitialization()
83 static bool isConstant(const Fortran::semantics::Symbol &sym) { in isConstant()
84 return sym.attrs().test(Fortran::semantics::Attr::PARAMETER) || in isConstant()
85 sym.test(Fortran::semantics::Symbol::Flag::ReadOnly); in isConstant()
89 static bool isRuntimeTypeInfoData(const Fortran::semantics::Symbol &sym) { in isRuntimeTypeInfoData()
96 return sym.test(Fortran::semantics::Symbol::Flag::CompilerCreated) && in isRuntimeTypeInfoData()
97 sym.test(Fortran::semantics::Symbol::Flag::ReadOnly); in isRuntimeTypeInfoData()
106 const Fortran::semantics::Symbol &sym) { in genLocation()
109 if (!sym.test(Fortran::semantics::Symbol::Flag::CompilerCreated)) in genLocation()
127 const Fortran::semantics::Symbol &sym = var.getSymbol(); in declareGlobal()
131 const Fortran::semantics::Symbol &ultimate = sym.GetUltimate(); in declareGlobal()
132 if (!ultimate.has<Fortran::semantics::ObjectEntityDetails>() && in declareGlobal()
133 !Fortran::semantics::IsProcedurePointer(ultimate)) in declareGlobal()
142 hasDerivedTypeWithLengthParameters(const Fortran::semantics::Symbol &sym) { in hasDerivedTypeWithLengthParameters()
143 if (const Fortran::semantics::DeclTypeSpec *declTy = sym.GetType()) in hasDerivedTypeWithLengthParameters()
144 if (const Fortran::semantics::DerivedTypeSpec *derived = in hasDerivedTypeWithLengthParameters()
146 return Fortran::semantics::CountLenParameters(*derived) > 0; in hasDerivedTypeWithLengthParameters()
164 if (const Fortran::semantics::Symbol *sym = in genExtAddrInInitializer()
192 if (const Fortran::semantics::Symbol *sym = in genInitialDataTarget()
264 const Fortran::semantics::Symbol &sym, mlir::Type symTy, in genDefaultInitializerValue()
278 const Fortran::semantics::DeclTypeSpec *declTy = sym.GetType(); in genDefaultInitializerValue()
280 Fortran::semantics::OrderedComponentIterator components( in genDefaultInitializerValue()
285 if (component.test(Fortran::semantics::Symbol::Flag::ParentComp)) in genDefaultInitializerValue()
292 component.detailsIf<Fortran::semantics::ObjectEntityDetails>()}) { in genDefaultInitializerValue()
295 if (Fortran::semantics::IsPointer(component)) in genDefaultInitializerValue()
303 } else if (Fortran::semantics::IsAllocatableOrPointer(component)) { in genDefaultInitializerValue()
321 .detailsIf<Fortran::semantics::ProcEntityDetails>()}) { in genDefaultInitializerValue()
381 const Fortran::semantics::Symbol &sym = var.getSymbol(); in defineGlobal()
390 if (Fortran::semantics::IsProcedurePointer(sym)) in defineGlobal()
403 !Fortran::semantics::IsAllocatableOrPointer(sym)) { in defineGlobal()
407 sym.detailsIf<Fortran::semantics::ObjectEntityDetails>(); in defineGlobal()
422 if (Fortran::semantics::IsAllocatableOrPointer(sym)) { in defineGlobal()
424 sym.detailsIf<Fortran::semantics::ObjectEntityDetails>(); in defineGlobal()
442 sym.detailsIf<Fortran::semantics::ObjectEntityDetails>()) { in defineGlobal()
465 } else if (sym.has<Fortran::semantics::CommonBlockDetails>()) { in defineGlobal()
478 if (sym.attrs().test(Fortran::semantics::Attr::BIND_C)) in defineGlobal()
515 const Fortran::semantics::Symbol &sym = var.getSymbol(); in instantiateGlobal()
553 const Fortran::semantics::Symbol &ultimateSymbol =
566 const Fortran::semantics::Symbol &sym = var.getSymbol(); in mustBeDefaultInitializedAtRuntime()
570 if (Fortran::semantics::IsDummy(sym) && !Fortran::semantics::IsIntentOut(sym)) in mustBeDefaultInitializedAtRuntime()
584 const Fortran::semantics::Symbol &sym = var.getSymbol(); in defaultInitializeAtRuntime()
586 if (Fortran::semantics::IsOptional(sym)) { in defaultInitializeAtRuntime()
652 if (const Fortran::semantics::Symbol *initSym = st.getInitialValueSymbol()) in getAggregateType()
681 if (const Fortran::semantics::Symbol *initSym = in defineGlobalAggregateStore()
684 initSym->detailsIf<Fortran::semantics::ObjectEntityDetails>()) in defineGlobalAggregateStore()
790 const Fortran::semantics::Symbol &sym = var.getSymbol(); in instantiateAlias()
822 commonBlockHasInit(const Fortran::semantics::MutableSymbolVector &cmnBlkMems) { in commonBlockHasInit()
823 for (const Fortran::semantics::MutableSymbolRef &mem : cmnBlkMems) { in commonBlockHasInit()
825 mem->detailsIf<Fortran::semantics::ObjectEntityDetails>()) in commonBlockHasInit()
838 const Fortran::semantics::MutableSymbolVector &cmnBlkMems, in getTypeOfCommonWithInit()
843 for (const Fortran::semantics::MutableSymbolRef &mem : cmnBlkMems) { in getTypeOfCommonWithInit()
845 mem->detailsIf<Fortran::semantics::ObjectEntityDetails>()) { in getTypeOfCommonWithInit()
876 static Fortran::semantics::MutableSymbolVector
877 getCommonMembersWithInitAliases(const Fortran::semantics::Symbol &common) { in getCommonMembersWithInitAliases()
879 common.get<Fortran::semantics::CommonBlockDetails>(); in getCommonMembersWithInitAliases()
885 for (const Fortran::semantics::EquivalenceSet &set : in getCommonMembersWithInitAliases()
887 for (const Fortran::semantics::EquivalenceObject &obj : set) { in getCommonMembersWithInitAliases()
888 if (!obj.symbol.test(Fortran::semantics::Symbol::Flag::CompilerCreated)) { in getCommonMembersWithInitAliases()
891 .detailsIf<Fortran::semantics::ObjectEntityDetails>()) { in getCommonMembersWithInitAliases()
892 const Fortran::semantics::Symbol *com = in getCommonMembersWithInitAliases()
913 const Fortran::semantics::Symbol &common) { in getCommonBlockGlobal()
930 fir::GlobalOp, Fortran::semantics::MutableSymbolVector, mlir::Location>>
932 const Fortran::semantics::Symbol &common, in declareCommonBlock()
939 Fortran::semantics::MutableSymbolVector cmnBlkMems = in declareCommonBlock()
977 const Fortran::semantics::MutableSymbolVector &cmnBlkMems) { in finalizeCommonBlockDefinition()
986 for (const Fortran::semantics::MutableSymbolRef &mem : cmnBlkMems) { in finalizeCommonBlockDefinition()
988 mem->detailsIf<Fortran::semantics::ObjectEntityDetails>()) { in finalizeCommonBlockDefinition()
999 Fortran::semantics::IsPointer(*mem) in finalizeCommonBlockDefinition()
1021 const Fortran::semantics::CommonBlockList &commonBlocks) { in defineCommonBlocks()
1025 std::vector<std::tuple<fir::GlobalOp, Fortran::semantics::MutableSymbolVector, in defineCommonBlocks()
1039 const Fortran::semantics::Symbol &common, in instantiateCommon()
1043 const Fortran::semantics::Symbol &varSym = var.getSymbol(); in instantiateCommon()
1068 if (Fortran::semantics::FindEquivalenceSet(var.getSymbol()) != nullptr) in instantiateCommon()
1081 static bool lowerToBoxValue(const Fortran::semantics::Symbol &sym, in lowerToBoxValue()
1087 if (sym.Rank() > 0 && !sym.attrs().test(Fortran::semantics::Attr::CONTIGUOUS)) in lowerToBoxValue()
1092 Fortran::semantics::IsOptional(sym)) in lowerToBoxValue()
1096 if (const Fortran::semantics::DeclTypeSpec *type = sym.GetType()) in lowerToBoxValue()
1129 for (const Fortran::semantics::ShapeSpec *spec : box.dynamicBound()) { in lowerExplicitLowerBounds()
1238 const Fortran::semantics::Symbol &sym = var.getSymbol(); in mapSymbolAttributes()
1241 const bool isDeclaredDummy = Fortran::semantics::IsDummy(sym); in mapSymbolAttributes()
1246 const bool isResult = Fortran::semantics::IsFunctionResult(sym); in mapSymbolAttributes()
1250 if (Fortran::semantics::IsProcedure(sym)) { in mapSymbolAttributes()
1258 if (Fortran::semantics::IsPointer(sym)) in mapSymbolAttributes()
1268 if (Fortran::semantics::IsAllocatableOrPointer(sym)) { in mapSymbolAttributes()
1285 else if (Fortran::semantics::IsAssumedLengthCharacter(sym)) in mapSymbolAttributes()
1287 } else if (const Fortran::semantics::DeclTypeSpec *declTy = sym.GetType()) { in mapSymbolAttributes()
1288 if (const Fortran::semantics::DerivedTypeSpec *derived = in mapSymbolAttributes()
1290 if (Fortran::semantics::CountLenParameters(*derived) != 0) in mapSymbolAttributes()
1345 assert(!Fortran::semantics::IsAllocatableOrPointer(sym) && in mapSymbolAttributes()
1568 Fortran::semantics::IsNamedConstant(sym)); in mapSymbolAttributes()
1600 Fortran::semantics::IsAllocatableOrPointer(sym)); in mapSymbolAttributes()
1909 const Fortran::semantics::Symbol &sym = var.getSymbol(); in defineModuleVariable()
1910 if (const Fortran::semantics::Symbol *common = in defineModuleVariable()
1911 Fortran::semantics::FindCommonBlockContaining(var.getSymbol())) { in defineModuleVariable()
1929 } else if (const Fortran::semantics::Symbol *common = in instantiateVariable()
1930 Fortran::semantics::FindCommonBlockContaining( in instantiateVariable()
1946 const Fortran::semantics::Symbol &result = caller.getResultSymbol(); in mapCallInterfaceSymbols()
1952 const Fortran::semantics::Symbol &sym = var.getSymbol(); in mapCallInterfaceSymbols()
1954 sym.detailsIf<Fortran::semantics::HostAssocDetails>(); in mapCallInterfaceSymbols()
1975 if (Fortran::semantics::IsDummy(sym) && sym.owner() == result.owner()) { in mapCallInterfaceSymbols()
1992 const Fortran::semantics::Symbol &typeInfoSym) { in createRuntimeTypeInfoGlobal()