Lines Matching refs:Fortran
41 static mlir::Value genScalarValue(Fortran::lower::AbstractConverter &converter, in genScalarValue()
43 const Fortran::lower::SomeExpr &expr, in genScalarValue()
44 Fortran::lower::SymMap &symMap, in genScalarValue()
45 Fortran::lower::StatementContext &context) { in genScalarValue()
48 return fir::getBase(Fortran::lower::createSomeExtendedExpression( in genScalarValue()
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()
68 genInitializerExprValue(Fortran::lower::AbstractConverter &converter, in genInitializerExprValue()
70 const Fortran::lower::SomeExpr &expr, in genInitializerExprValue()
71 Fortran::lower::StatementContext &stmtCtx) { in genInitializerExprValue()
77 Fortran::lower::SymMap emptyMap; in genInitializerExprValue()
78 return Fortran::lower::createSomeInitializerExpression(loc, converter, expr, in genInitializerExprValue()
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()
100 static fir::GlobalOp defineGlobal(Fortran::lower::AbstractConverter &converter,
101 const Fortran::lower::pft::Variable &var,
105 static mlir::Location genLocation(Fortran::lower::AbstractConverter &converter, in genLocation()
106 const Fortran::semantics::Symbol &sym) { in genLocation()
109 if (!sym.test(Fortran::semantics::Symbol::Flag::CompilerCreated)) in genLocation()
115 static fir::GlobalOp declareGlobal(Fortran::lower::AbstractConverter &converter, in declareGlobal()
116 const Fortran::lower::pft::Variable &var, in declareGlobal()
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()
158 fir::ExtendedValue Fortran::lower::genExtAddrInInitializer( in genExtAddrInInitializer()
159 Fortran::lower::AbstractConverter &converter, mlir::Location loc, in genExtAddrInInitializer()
160 const Fortran::lower::SomeExpr &addr) { in genExtAddrInInitializer()
161 Fortran::lower::SymMap globalOpSymMap; in genExtAddrInInitializer()
162 Fortran::lower::AggregateStoreMap storeMap; in genExtAddrInInitializer()
163 Fortran::lower::StatementContext stmtCtx; in genExtAddrInInitializer()
164 if (const Fortran::semantics::Symbol *sym = in genExtAddrInInitializer()
165 Fortran::evaluate::GetFirstSymbol(addr)) { in genExtAddrInInitializer()
171 auto var = Fortran::lower::pft::Variable(*sym, /*global=*/true); in genExtAddrInInitializer()
172 Fortran::lower::instantiateVariable(converter, var, globalOpSymMap, in genExtAddrInInitializer()
175 return Fortran::lower::createInitializerAddress(loc, converter, addr, in genExtAddrInInitializer()
180 mlir::Value Fortran::lower::genInitialDataTarget( in genInitialDataTarget()
181 Fortran::lower::AbstractConverter &converter, mlir::Location loc, in genInitialDataTarget()
182 mlir::Type boxType, const Fortran::lower::SomeExpr &initialTarget) { in genInitialDataTarget()
183 Fortran::lower::SymMap globalOpSymMap; in genInitialDataTarget()
184 Fortran::lower::AggregateStoreMap storeMap; in genInitialDataTarget()
185 Fortran::lower::StatementContext stmtCtx; in genInitialDataTarget()
187 if (Fortran::evaluate::UnwrapExpr<Fortran::evaluate::NullPointer>( in genInitialDataTarget()
192 if (const Fortran::semantics::Symbol *sym = in genInitialDataTarget()
193 Fortran::evaluate::GetFirstSymbol(initialTarget)) { in genInitialDataTarget()
199 auto var = Fortran::lower::pft::Variable(*sym, /*global=*/true); in genInitialDataTarget()
200 Fortran::lower::instantiateVariable(converter, var, globalOpSymMap, in genInitialDataTarget()
205 box = fir::getBase(Fortran::lower::createSomeArrayBox( in genInitialDataTarget()
208 fir::ExtendedValue addr = Fortran::lower::createInitializerAddress( in genInitialDataTarget()
263 Fortran::lower::AbstractConverter &converter, mlir::Location loc, in genDefaultInitializerValue()
264 const Fortran::semantics::Symbol &sym, mlir::Type symTy, in genDefaultInitializerValue()
265 Fortran::lower::StatementContext &stmtCtx) { 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()
376 static fir::GlobalOp defineGlobal(Fortran::lower::AbstractConverter &converter, in defineGlobal()
377 const Fortran::lower::pft::Variable &var, in defineGlobal()
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()
409 global = Fortran::lower::createDenseGlobal( in defineGlobal()
422 if (Fortran::semantics::IsAllocatableOrPointer(sym)) { in defineGlobal()
424 sym.detailsIf<Fortran::semantics::ObjectEntityDetails>(); in defineGlobal()
429 Fortran::lower::genInitialDataTarget(converter, loc, symTy, expr); in defineGlobal()
442 sym.detailsIf<Fortran::semantics::ObjectEntityDetails>()) { in defineGlobal()
446 Fortran::lower::StatementContext stmtCtx( in defineGlobal()
457 Fortran::lower::StatementContext stmtCtx( in defineGlobal()
465 } else if (sym.has<Fortran::semantics::CommonBlockDetails>()) { in defineGlobal()
478 if (sym.attrs().test(Fortran::semantics::Attr::BIND_C)) in defineGlobal()
495 const Fortran::lower::pft::Variable &var) { in getLinkageAttribute()
512 static void instantiateGlobal(Fortran::lower::AbstractConverter &converter, in instantiateGlobal()
513 const Fortran::lower::pft::Variable &var, in instantiateGlobal()
514 Fortran::lower::SymMap &symMap) { in instantiateGlobal()
515 const Fortran::semantics::Symbol &sym = var.getSymbol(); in instantiateGlobal()
518 std::string globalName = Fortran::lower::mangle::mangleName(sym); in instantiateGlobal()
531 Fortran::lower::StatementContext stmtCtx; in instantiateGlobal()
542 static mlir::Value createNewLocal(Fortran::lower::AbstractConverter &converter, in createNewLocal()
544 const Fortran::lower::pft::Variable &var, in createNewLocal()
551 std::string nm = Fortran::lower::mangle::mangleName(var.getSymbol());
553 const Fortran::semantics::Symbol &ultimateSymbol =
563 mustBeDefaultInitializedAtRuntime(const Fortran::lower::pft::Variable &var) { in mustBeDefaultInitializedAtRuntime()
566 const Fortran::semantics::Symbol &sym = var.getSymbol(); in mustBeDefaultInitializedAtRuntime()
570 if (Fortran::semantics::IsDummy(sym) && !Fortran::semantics::IsIntentOut(sym)) in mustBeDefaultInitializedAtRuntime()
579 defaultInitializeAtRuntime(Fortran::lower::AbstractConverter &converter, in defaultInitializeAtRuntime()
580 const Fortran::lower::pft::Variable &var, in defaultInitializeAtRuntime()
581 Fortran::lower::SymMap &symMap) { in defaultInitializeAtRuntime()
584 const Fortran::semantics::Symbol &sym = var.getSymbol(); in defaultInitializeAtRuntime()
586 if (Fortran::semantics::IsOptional(sym)) { in defaultInitializeAtRuntime()
607 static void instantiateLocal(Fortran::lower::AbstractConverter &converter, in instantiateLocal()
608 const Fortran::lower::pft::Variable &var, in instantiateLocal()
609 Fortran::lower::SymMap &symMap) { in instantiateLocal()
611 Fortran::lower::StatementContext stmtCtx; in instantiateLocal()
622 static void insertAggregateStore(Fortran::lower::AggregateStoreMap &storeMap, in insertAggregateStore()
623 const Fortran::lower::pft::Variable &var, in insertAggregateStore()
626 Fortran::lower::AggregateStoreKey key = {var.getOwningScope(), off}; in insertAggregateStore()
633 getAggregateStore(Fortran::lower::AggregateStoreMap &storeMap, in getAggregateStore()
634 const Fortran::lower::pft::Variable &alias) { in getAggregateStore()
635 Fortran::lower::AggregateStoreKey key = {alias.getOwningScope(), in getAggregateStore()
644 const Fortran::lower::pft::Variable::AggregateStore &st) { in mangleGlobalAggregateStore()
645 return Fortran::lower::mangle::mangleName(st.getNamingSymbol()); in mangleGlobalAggregateStore()
650 getAggregateType(Fortran::lower::AbstractConverter &converter, in getAggregateType()
651 const Fortran::lower::pft::Variable::AggregateStore &st) { in getAggregateType()
652 if (const Fortran::semantics::Symbol *initSym = st.getInitialValueSymbol()) in getAggregateType()
668 Fortran::lower::AbstractConverter &converter, in defineGlobalAggregateStore()
669 const Fortran::lower::pft::Variable::AggregateStore &aggregate, in defineGlobalAggregateStore()
681 if (const Fortran::semantics::Symbol *initSym = in defineGlobalAggregateStore()
684 initSym->detailsIf<Fortran::semantics::ObjectEntityDetails>()) in defineGlobalAggregateStore()
688 Fortran::lower::StatementContext stmtCtx; in defineGlobalAggregateStore()
699 Fortran::lower::StatementContext stmtCtx; in defineGlobalAggregateStore()
715 Fortran::lower::AbstractConverter &converter, mlir::Location loc, in declareGlobalAggregateStore()
716 const Fortran::lower::pft::Variable::AggregateStore &aggregate, in declareGlobalAggregateStore()
729 instantiateAggregateStore(Fortran::lower::AbstractConverter &converter, in instantiateAggregateStore()
730 const Fortran::lower::pft::Variable &var, in instantiateAggregateStore()
731 Fortran::lower::AggregateStoreMap &storeMap) { in instantiateAggregateStore()
784 static void instantiateAlias(Fortran::lower::AbstractConverter &converter, in instantiateAlias()
785 const Fortran::lower::pft::Variable &var, in instantiateAlias()
786 Fortran::lower::SymMap &symMap, in instantiateAlias()
787 Fortran::lower::AggregateStoreMap &storeMap) { in instantiateAlias()
790 const Fortran::semantics::Symbol &sym = var.getSymbol(); in instantiateAlias()
803 Fortran::lower::StatementContext stmtCtx; 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()
837 Fortran::lower::AbstractConverter &converter, in getTypeOfCommonWithInit()
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()
912 getCommonBlockGlobal(Fortran::lower::AbstractConverter &converter, in getCommonBlockGlobal()
913 const Fortran::semantics::Symbol &common) { in getCommonBlockGlobal()
915 std::string commonName = Fortran::lower::mangle::mangleName(common); in getCommonBlockGlobal()
930 fir::GlobalOp, Fortran::semantics::MutableSymbolVector, mlir::Location>>
931 declareCommonBlock(Fortran::lower::AbstractConverter &converter, in declareCommonBlock()
932 const Fortran::semantics::Symbol &common, in declareCommonBlock()
935 std::string commonName = Fortran::lower::mangle::mangleName(common); in declareCommonBlock()
939 Fortran::semantics::MutableSymbolVector cmnBlkMems = in declareCommonBlock()
975 mlir::Location loc, Fortran::lower::AbstractConverter &converter, in finalizeCommonBlockDefinition()
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()
996 Fortran::lower::StatementContext stmtCtx; in finalizeCommonBlockDefinition()
999 Fortran::semantics::IsPointer(*mem) in finalizeCommonBlockDefinition()
1000 ? Fortran::lower::genInitialDataTarget( in finalizeCommonBlockDefinition()
1019 void Fortran::lower::defineCommonBlocks( in defineCommonBlocks()
1020 Fortran::lower::AbstractConverter &converter, in defineCommonBlocks()
1021 const Fortran::semantics::CommonBlockList &commonBlocks) { in defineCommonBlocks()
1025 std::vector<std::tuple<fir::GlobalOp, Fortran::semantics::MutableSymbolVector, in defineCommonBlocks()
1038 static void instantiateCommon(Fortran::lower::AbstractConverter &converter, in instantiateCommon()
1039 const Fortran::semantics::Symbol &common, in instantiateCommon()
1040 const Fortran::lower::pft::Variable &var, in instantiateCommon()
1041 Fortran::lower::SymMap &symMap) { in instantiateCommon()
1043 const Fortran::semantics::Symbol &varSym = var.getSymbol(); in instantiateCommon()
1047 if (Fortran::lower::SymbolBox symBox = symMap.lookupSymbol(common)) in instantiateCommon()
1068 if (Fortran::semantics::FindEquivalenceSet(var.getSymbol()) != nullptr) in instantiateCommon()
1072 Fortran::lower::StatementContext stmtCtx; 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()
1091 if (Fortran::evaluate::IsAssumedRank(sym) || in lowerToBoxValue()
1092 Fortran::semantics::IsOptional(sym)) in lowerToBoxValue()
1096 if (const Fortran::semantics::DeclTypeSpec *type = sym.GetType()) in lowerToBoxValue()
1116 Fortran::lower::AbstractConverter &converter, mlir::Location loc, in lowerExplicitLowerBounds()
1117 const Fortran::lower::BoxAnalyzer &box, in lowerExplicitLowerBounds()
1118 llvm::SmallVectorImpl<mlir::Value> &result, Fortran::lower::SymMap &symMap, in lowerExplicitLowerBounds()
1119 Fortran::lower::StatementContext &stmtCtx) { in lowerExplicitLowerBounds()
1129 for (const Fortran::semantics::ShapeSpec *spec : box.dynamicBound()) { in lowerExplicitLowerBounds()
1131 auto expr = Fortran::lower::SomeExpr{*low}; in lowerExplicitLowerBounds()
1144 lowerExplicitExtents(Fortran::lower::AbstractConverter &converter, in lowerExplicitExtents()
1145 mlir::Location loc, const Fortran::lower::BoxAnalyzer &box, in lowerExplicitExtents()
1148 Fortran::lower::SymMap &symMap, in lowerExplicitExtents()
1149 Fortran::lower::StatementContext &stmtCtx) { in lowerExplicitExtents()
1161 auto expr = Fortran::lower::SomeExpr{*up}; in lowerExplicitExtents()
1180 lowerExplicitCharLen(Fortran::lower::AbstractConverter &converter, in lowerExplicitCharLen()
1181 mlir::Location loc, const Fortran::lower::BoxAnalyzer &box, in lowerExplicitCharLen()
1182 Fortran::lower::SymMap &symMap, in lowerExplicitCharLen()
1183 Fortran::lower::StatementContext &stmtCtx) { in lowerExplicitCharLen()
1190 if (llvm::Optional<Fortran::lower::SomeExpr> lenExpr = box.getCharLenExpr()) in lowerExplicitCharLen()
1233 void Fortran::lower::mapSymbolAttributes( in mapSymbolAttributes()
1234 AbstractConverter &converter, const Fortran::lower::pft::Variable &var, in mapSymbolAttributes()
1235 Fortran::lower::SymMap &symMap, Fortran::lower::StatementContext &stmtCtx, in mapSymbolAttributes()
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()
1254 Fortran::lower::getDummyProcedureType(sym, converter); in mapSymbolAttributes()
1258 if (Fortran::semantics::IsPointer(sym)) in mapSymbolAttributes()
1263 Fortran::lower::BoxAnalyzer ba; in mapSymbolAttributes()
1268 if (Fortran::semantics::IsAllocatableOrPointer(sym)) { in mapSymbolAttributes()
1274 if (Fortran::lower::SymbolBox symbox = symMap.lookupSymbol(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()
1294 fir::MutableBoxValue box = Fortran::lower::createMutableBox( in mapSymbolAttributes()
1345 assert(!Fortran::semantics::IsAllocatableOrPointer(sym) && in mapSymbolAttributes()
1359 auto genValue = [&](const Fortran::lower::SomeExpr &expr) { in mapSymbolAttributes()
1373 Fortran::lower::SomeExpr highEx{*high}; in mapSymbolAttributes()
1409 auto expr = Fortran::lower::SomeExpr{*low}; in mapSymbolAttributes()
1418 auto expr = Fortran::lower::SomeExpr{*low}; in mapSymbolAttributes()
1426 auto expr = Fortran::lower::SomeExpr{*high}; in mapSymbolAttributes()
1441 [&](llvm::Optional<Fortran::lower::SomeExpr> charLen) -> mlir::Value { in mapSymbolAttributes()
1454 [&](const Fortran::lower::details::ScalarSym &) { in mapSymbolAttributes()
1482 [&](const Fortran::lower::details::ScalarStaticChar &x) { in mapSymbolAttributes()
1486 Fortran::lower::SymbolBox symBox = symMap.lookupSymbol(sym); in mapSymbolAttributes()
1506 [&](const Fortran::lower::details::ScalarDynamicChar &x) { in mapSymbolAttributes()
1512 Fortran::lower::SymbolBox symBox = symMap.lookupSymbol(sym); in mapSymbolAttributes()
1538 [&](const Fortran::lower::details::StaticArray &x) { in mapSymbolAttributes()
1567 assert(isDummy || Fortran::lower::isExplicitShape(sym) || in mapSymbolAttributes()
1568 Fortran::semantics::IsNamedConstant(sym)); in mapSymbolAttributes()
1574 [&](const Fortran::lower::details::DynamicArray &x) { in mapSymbolAttributes()
1599 assert(Fortran::lower::isExplicitShape(sym) || in mapSymbolAttributes()
1600 Fortran::semantics::IsAllocatableOrPointer(sym)); in mapSymbolAttributes()
1615 assert(Fortran::lower::isExplicitShape(sym)); in mapSymbolAttributes()
1623 [&](const Fortran::lower::details::StaticArrayStaticChar &x) { in mapSymbolAttributes()
1629 Fortran::lower::SymbolBox symBox = symMap.lookupSymbol(sym); in mapSymbolAttributes()
1672 assert(Fortran::lower::isExplicitShape(sym)); in mapSymbolAttributes()
1680 [&](const Fortran::lower::details::StaticArrayDynamicChar &x) { in mapSymbolAttributes()
1689 Fortran::lower::SymbolBox symBox = symMap.lookupSymbol(sym); in mapSymbolAttributes()
1744 assert((!mustBeDummy) && (Fortran::lower::isExplicitShape(sym))); in mapSymbolAttributes()
1752 [&](const Fortran::lower::details::DynamicArrayStaticChar &x) { in mapSymbolAttributes()
1804 assert(Fortran::lower::isExplicitShape(sym)); in mapSymbolAttributes()
1812 [&](const Fortran::lower::details::DynamicArrayDynamicChar &x) { in mapSymbolAttributes()
1878 assert(Fortran::lower::isExplicitShape(sym)); in mapSymbolAttributes()
1886 [&](const Fortran::lower::BoxAnalyzer::None &) { in mapSymbolAttributes()
1892 void Fortran::lower::defineModuleVariable( in defineModuleVariable()
1893 AbstractConverter &converter, const Fortran::lower::pft::Variable &var) { in defineModuleVariable()
1903 const Fortran::lower::pft::Variable::AggregateStore &aggregate = in defineModuleVariable()
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()
1918 std::string globalName = Fortran::lower::mangle::mangleName(sym); in defineModuleVariable()
1923 void Fortran::lower::instantiateVariable(AbstractConverter &converter, in instantiateVariable()
1925 Fortran::lower::SymMap &symMap, in instantiateVariable()
1929 } else if (const Fortran::semantics::Symbol *common = in instantiateVariable()
1930 Fortran::semantics::FindCommonBlockContaining( in instantiateVariable()
1942 void Fortran::lower::mapCallInterfaceSymbols( in mapCallInterfaceSymbols()
1943 AbstractConverter &converter, const Fortran::lower::CallerInterface &caller, in mapCallInterfaceSymbols()
1945 Fortran::lower::AggregateStoreMap storeMap; in mapCallInterfaceSymbols()
1946 const Fortran::semantics::Symbol &result = caller.getResultSymbol(); in mapCallInterfaceSymbols()
1947 for (Fortran::lower::pft::Variable var : in mapCallInterfaceSymbols()
1948 Fortran::lower::pft::buildFuncResultDependencyList(result)) { in mapCallInterfaceSymbols()
1952 const Fortran::semantics::Symbol &sym = var.getSymbol(); in mapCallInterfaceSymbols()
1954 sym.detailsIf<Fortran::semantics::HostAssocDetails>(); in mapCallInterfaceSymbols()
1967 Fortran::lower::SymbolBox hostValue = in mapCallInterfaceSymbols()
1975 if (Fortran::semantics::IsDummy(sym) && sym.owner() == result.owner()) { in mapCallInterfaceSymbols()
1990 void Fortran::lower::createRuntimeTypeInfoGlobal( in createRuntimeTypeInfoGlobal()
1991 Fortran::lower::AbstractConverter &converter, mlir::Location loc, in createRuntimeTypeInfoGlobal()
1992 const Fortran::semantics::Symbol &typeInfoSym) { in createRuntimeTypeInfoGlobal()
1994 std::string globalName = Fortran::lower::mangle::mangleName(typeInfoSym); in createRuntimeTypeInfoGlobal()
1995 auto var = Fortran::lower::pft::Variable(typeInfoSym, /*global=*/true); in createRuntimeTypeInfoGlobal()