IsSameAllocation/AreSameAllocation

Author: akuhlens

flang/lib/Semantics/check-allocate.cpp

@@ -470,7 +470,7 @@ static bool HaveCompatibleLengths(
   }
 }
 
-bool IsSameAllocation(const SomeExpr *root, const SomeExpr *path) {
+bool AreSameAllocation(const SomeExpr *root, const SomeExpr *path) {
   if (root && path) {
     // For now we just use equality of expressions. If we implement a more
     // sophisticated alias analysis we should use it here.
@@ -712,11 +712,11 @@ bool AllocationCheckerHelper::RunChecks(SemanticsContext &context) {
   }
 
   if (const SomeExpr *allocObj{GetExpr(context, allocateObject_)}) {
-    if (IsSameAllocation(allocObj, allocateInfo_.statVar)) {
+    if (AreSameAllocation(allocObj, allocateInfo_.statVar)) {
       context.Say(allocateInfo_.statSource.value_or(name_.source),
           "STAT variable in ALLOCATE must not be the variable being allocated"_err_en_US);
     }
-    if (IsSameAllocation(allocObj, allocateInfo_.msgVar)) {
+    if (AreSameAllocation(allocObj, allocateInfo_.msgVar)) {
       context.Say(allocateInfo_.msgSource.value_or(name_.source),
           "ERRMSG variable in ALLOCATE must not be the variable being allocated"_err_en_US);
     }

flang/lib/Semantics/check-allocate.h

@@ -24,6 +24,6 @@ class AllocateChecker : public virtual BaseChecker {
 private:
   SemanticsContext &context_;
 };
-bool IsSameAllocation(const SomeExpr *root, const SomeExpr *path);
+bool AreSameAllocation(const SomeExpr *root, const SomeExpr *path);
 } // namespace Fortran::semantics
 #endif // FORTRAN_SEMANTICS_CHECK_ALLOCATE_H_

flang/lib/Semantics/check-deallocate.cpp

@@ -135,11 +135,11 @@ void DeallocateChecker::Leave(const parser::DeallocateStmt &deallocateStmt) {
         },
         allocateObject.u);
     if (const SomeExpr *allocObj{GetExpr(context_, allocateObject)}) {
-      if (IsSameAllocation(allocObj, statVar)) {
+      if (AreSameAllocation(allocObj, statVar)) {
         context_.Say(statSource.value_or(source),
             "STAT variable in DEALLOCATE must not be the variable being deallocated"_err_en_US);
       }
-      if (IsSameAllocation(allocObj, msgVar)) {
+      if (AreSameAllocation(allocObj, msgVar)) {
         context_.Say(msgSource.value_or(source),
             "ERRMSG variable in DEALLOCATE must not be the variable being deallocated"_err_en_US);
       }