return true;
}
if (x.name() == y.name()) {
- if (const auto *xObject{
- x.detailsIf<semantics::ObjectEntityDetails>()}) {
+ if (const auto *xObject{x.detailsIf<semantics::ObjectEntityDetails>()}) {
if (const auto *yObject{y.detailsIf<semantics::ObjectEntityDetails>()}) {
return xObject->isDummy() && yObject->isDummy();
}
#define FORTRAN_SEMANTICS_SEMANTICS_H_
#include "scope.h"
-#include "../common/Fortran-features.h"
#include "symbol.h"
+#include "../common/Fortran-features.h"
#include "../evaluate/common.h"
#include "../evaluate/intrinsics.h"
#include "../parser/message.h"
// N.B. We only need to examine the innermost containing program unit
// because an internal subprogram of a PURE subprogram must also
// be PURE (C1592).
- if (const Scope *scope{FindProgramUnitContaining(start)}) {
+ if (const Scope * scope{FindProgramUnitContaining(start)}) {
if (IsPureProcedure(*scope)) {
return scope;
}