File tree Expand file tree Collapse file tree 2 files changed +5
-3
lines changed Expand file tree Collapse file tree 2 files changed +5
-3
lines changed Original file line number Diff line number Diff line change @@ -202,7 +202,8 @@ class Scope {
202202 // / Find COMMON block that is not USE-associated in the current scope
203203 Symbol *FindCommonBlock (const SourceName &) const ;
204204
205- // / Find COMMON block in current and surrounding scopes, follow USE associations
205+ // / Find COMMON block in current and surrounding scopes, follow USE
206+ // / associations
206207 Symbol *FindCommonBlockInScopes (const SourceName &) const ;
207208
208209 // / Make a Symbol but don't add it to the scope.
Original file line number Diff line number Diff line change @@ -158,7 +158,7 @@ Symbol &Scope::MakeCommonBlock(SourceName name, SourceName location) {
158158 // end program main
159159 // Reset details with real COMMON block details.
160160 cb->set_details (CommonBlockDetails{name.empty () ? location : name},
161- /* force*/ true );
161+ /* force*/ true );
162162 }
163163 return *cb;
164164 } else {
@@ -184,7 +184,8 @@ Symbol *Scope::FindCommonBlockInScopes(const SourceName &name) const {
184184 if (auto *cb{FindCB (name)}) {
185185 return &cb->GetUltimate ();
186186 } else if (IsSubmodule ()) {
187- if (const Scope *parent{symbol_ ? symbol_->get <ModuleDetails>().parent () : nullptr }) {
187+ if (const Scope *parent{
188+ symbol_ ? symbol_->get <ModuleDetails>().parent () : nullptr }) {
188189 if (auto *cb{parent->FindCommonBlockInScopes (name)}) {
189190 return &cb->GetUltimate ();
190191 }
You can’t perform that action at this time.
0 commit comments