211 static const Fortran::semantics::Symbol &
223   const Fortran::lower::SomeExpr *expr = Fortran::semantics::GetExpr(allocObj);  in genMutableBoxValue()
253     const Fortran::semantics::DeclTypeSpec &type;
262     const Fortran::semantics::Symbol &getSymbol() const {  in getSymbol()
272     const Fortran::semantics::Symbol &symbol = unwrapSymbol(allocObj);  in unwrapAllocation()
286                           statExpr = Fortran::semantics::GetExpr(statVar);  in visitAllocateOptions()
289                           errMsgExpr = Fortran::semantics::GetExpr(errMsgVar);  in visitAllocateOptions()
295                 sourceExpr = Fortran::semantics::GetExpr(source.v.value());  in visitAllocateOptions()
298                 moldExpr = Fortran::semantics::GetExpr(mold.v.value());  in visitAllocateOptions()
347               loc, Fortran::semantics::GetExpr(*lbExpr), stmtCtx));  in genInlinedAllocation()
355           loc, Fortran::semantics::GetExpr(std::get<1>(shapeSpec.t)), stmtCtx));  in genInlinedAllocation()
408             loc, Fortran::semantics::GetExpr(*lbExpr), stmtCtx));  in genSimpleAllocation()
412           loc, Fortran::semantics::GetExpr(std::get<1>(bounds)), stmtCtx));  in genSimpleAllocation()
426     const Fortran::semantics::DeclTypeSpec *typeSpec =  in lowerAllocateLengthParameters()
430     if (const Fortran::semantics::DerivedTypeSpec *derived =  in lowerAllocateLengthParameters()
432       if (Fortran::semantics::CountLenParameters(*derived) > 0)  in lowerAllocateLengthParameters()
435         Fortran::semantics::DeclTypeSpec::Category::Character) {  in lowerAllocateLengthParameters()
436       Fortran::semantics::ParamValue lenParam =  in lowerAllocateLengthParameters()
438       if (Fortran::semantics::MaybeIntExpr intExpr = lenParam.GetExplicit()) {  in lowerAllocateLengthParameters()
476   const Fortran::semantics::DeclTypeSpec *getIfAllocateStmtTypeSpec() const {  in getIfAllocateStmtTypeSpec()
535                      statExpr = Fortran::semantics::GetExpr(statVar);  in genDeallocateStmt()
538                      errMsgExpr = Fortran::semantics::GetExpr(errMsgVar);  in genDeallocateStmt()
562 isNonContiguousArrayPointer(const Fortran::semantics::Symbol &sym) {  in isNonContiguousArrayPointer()
563   return Fortran::semantics::IsPointer(sym) && sym.Rank() != 0 &&  in isNonContiguousArrayPointer()
564          !sym.attrs().test(Fortran::semantics::Attr::CONTIGUOUS);  in isNonContiguousArrayPointer()
569 static bool mayBeCapturedInInternalProc(const Fortran::semantics::Symbol &sym) {  in mayBeCapturedInInternalProc()
570   const Fortran::semantics::Scope &owner = sym.owner();  in mayBeCapturedInInternalProc()
571   Fortran::semantics::Scope::Kind kind = owner.kind();  in mayBeCapturedInInternalProc()
574   if (kind == Fortran::semantics::Scope::Kind::Subprogram ||  in mayBeCapturedInInternalProc()
575       kind == Fortran::semantics::Scope::Kind::MainProgram)  in mayBeCapturedInInternalProc()
576     for (const Fortran::semantics::Scope &childScope : owner.children())  in mayBeCapturedInInternalProc()
577       if (childScope.kind() == Fortran::semantics::Scope::Kind::Subprogram)  in mayBeCapturedInInternalProc()
578         if (const Fortran::semantics::Symbol *childSym = childScope.symbol())  in mayBeCapturedInInternalProc()
580                   childSym->detailsIf<Fortran::semantics::SubprogramDetails>())  in mayBeCapturedInInternalProc()
595   const Fortran::semantics::Symbol &sym = var.getSymbol();  in createMutableProperties()
607   if (var.isGlobal() || Fortran::semantics::IsDummy(sym) ||  in createMutableProperties()
608       Fortran::semantics::IsFunctionResult(sym) ||  in createMutableProperties()
609       sym.attrs().test(Fortran::semantics::Attr::VOLATILE) ||  in createMutableProperties()
665   if (!var.isGlobal() && !Fortran::semantics::IsDummy(var.getSymbol()))  in createMutableBox()
703   if (const Fortran::semantics::Symbol *sym =  in isWholeAllocatable()
705     return Fortran::semantics::IsAllocatable(*sym);  in isWholeAllocatable()
710   if (const Fortran::semantics::Symbol *sym =  in isWholePointer()
712     return Fortran::semantics::IsPointer(*sym);  in isWholePointer()