169     } else if (flag == Symbol::Flag::Subroutine) {  in IsIntrinsic()
820   bool Pre(const parser::InterfaceBody::Subroutine &);
821   void Post(const parser::InterfaceBody::Subroutine &);
2364     } else if (symbol.test(Symbol::Flag::Subroutine)) {  in ApplyImplicitRules()
2365       functionOrSubroutineFlag = Symbol::Flag::Subroutine;  in ApplyImplicitRules()
2487       CHECK(!symbol.test(Symbol::Flag::Subroutine));  in ConvertToProcEntity()
3174   generic.set(isFunction ? Symbol::Flag::Function : Symbol::Flag::Subroutine);  in CheckGenericProcedures()
3273 bool SubprogramVisitor::Pre(const parser::InterfaceBody::Subroutine &x) {  in Pre()
3276   return BeginSubprogram(name, Symbol::Flag::Subroutine);  in Pre()
3278 void SubprogramVisitor::Post(const parser::InterfaceBody::Subroutine &x) {  in Post()
3412           : Symbol::Flag::Subroutine};  in CreateEntry()
3493   if (subpFlag == Symbol::Flag::Subroutine ||  in CreateEntry()
3497     assoc.set(Symbol::Flag::Subroutine);  in CreateEntry()
3765       if (prev->test(Symbol::Flag::Subroutine) ||  in PushBlockDataScope()
4253       } else if (interface.symbol()->test(Symbol::Flag::Subroutine)) {  in DeclareProcEntity()
4254         symbol.set(Symbol::Flag::Subroutine);  in DeclareProcEntity()
6407   HandleCall(Symbol::Flag::Subroutine, x.v);  in Pre()
6817   CHECK(flag == Symbol::Flag::Function || flag == Symbol::Flag::Subroutine);  in HandleProcedureName()
6903       Symbol::Flag other{flag == Symbol::Flag::Subroutine  in NoteExecutablePartCall()
6905               : Symbol::Flag::Subroutine};  in NoteExecutablePartCall()
6935   if (symbol.test(Symbol::Flag::Function) && flag == Symbol::Flag::Subroutine) {  in SetProcFlag()
6939   } else if (symbol.test(Symbol::Flag::Subroutine) &&  in SetProcFlag()
6958   } else if (symbol.GetType() && flag == Symbol::Flag::Subroutine) {  in SetProcFlag()
7178         !symbol.test(Symbol::Flag::Subroutine)) {  in FinishSpecificationPart()
7181           symbol.GetType() ? Symbol::Flag::Function : Symbol::Flag::Subroutine);  in FinishSpecificationPart()
7404     resolver_.NoteExecutablePartCall(Symbol::Flag::Subroutine, cs.v);  in Post()
7471     } else if (childKind == ProgramTree::Kind::Subroutine) {  in AddSubpNames()
7472       symbol.set(Symbol::Flag::Subroutine);  in AddSubpNames()
7506   case ProgramTree::Kind::Subroutine:  in BeginScopeForNode()