Stop renaming array access references

The array reference on the name alone will get renamed, yielding the correct result instead of an exception due to a double rewrite on the same token interval.

Author: MDoerner

Rubberduck.Refactorings/Rename/RenameRefactoring.cs

@@ -465,7 +465,9 @@ private void RenameReferences(Declaration target, string newName, IRewriteSessio
         {
             var modules = target.References
                 .Where(reference =>
-                    reference.Context.GetText() != "Me").GroupBy(r => r.QualifiedModuleName);
+                    reference.Context.GetText() != "Me" 
+                    && !reference.IsArrayAccess)
+                .GroupBy(r => r.QualifiedModuleName);
 
             foreach (var grouping in modules)
             {

RubberduckTests/Refactoring/Rename/RenameTests.cs

@@ -71,6 +71,98 @@ End Sub"
             PerformExpectedVersusActualRenameTests(tdo, inputOutput);
         }
 
+        [Test]
+        [Category("Refactorings")]
+        [Category("Rename")]
+        //See issue #5277 at https://github.com/rubberduck-vba/Rubberduck/issues/5277
+        public void RenameRefactoring_RenameArray_FromDeclaration()
+        {
+            var tdo = new RenameTestsDataObject(selectedIdentifier: "arr", newName: "bar");
+            var inputOutput = new RenameTestModuleDefinition("Module1", ComponentType.StandardModule)
+            {
+                Input =
+                    @"Private Sub Foo()
+    Dim a|rr(0 To 1) As Integer
+    arr(1) = arr(0)
+End Sub",
+                Expected =
+                    @"Private Sub Foo()
+    Dim bar(0 To 1) As Integer
+    bar(1) = bar(0)
+End Sub"
+            };
+            PerformExpectedVersusActualRenameTests(tdo, inputOutput);
+        }
+
+        [Test]
+        [Category("Refactorings")]
+        [Category("Rename")]
+        //See issue #5277 at https://github.com/rubberduck-vba/Rubberduck/issues/5277
+        public void RenameRefactoring_RenameReDimDeclaredArray_FromDeclaration()
+        {
+            var tdo = new RenameTestsDataObject(selectedIdentifier: "arr", newName: "bar");
+            var inputOutput = new RenameTestModuleDefinition("Module1", ComponentType.StandardModule)
+            {
+                Input =
+                    @"Private Sub Foo()
+    ReDim a|rr(0 To 1)
+    arr(1) = arr(0)
+End Sub",
+                Expected =
+                    @"Private Sub Foo()
+    ReDim bar(0 To 1)
+    bar(1) = bar(0)
+End Sub"
+            };
+            PerformExpectedVersusActualRenameTests(tdo, inputOutput);
+        }
+
+        [Test]
+        [Category("Refactorings")]
+        [Category("Rename")]
+        //See issue #5277 at https://github.com/rubberduck-vba/Rubberduck/issues/5277
+        public void RenameRefactoring_RenameArray_FromReference()
+        {
+            var tdo = new RenameTestsDataObject(selectedIdentifier: "arr", newName: "bar");
+            var inputOutput = new RenameTestModuleDefinition("Module1", ComponentType.StandardModule)
+            {
+                Input =
+                    @"Private Sub Foo()
+    Dim arr(0 To 1) As Integer
+    arr(1) = ar|r(0)
+End Sub",
+                Expected =
+                    @"Private Sub Foo()
+    Dim bar(0 To 1) As Integer
+    bar(1) = bar(0)
+End Sub"
+            };
+            PerformExpectedVersusActualRenameTests(tdo, inputOutput);
+        }
+
+        [Test]
+        [Category("Refactorings")]
+        [Category("Rename")]
+        //See issue #5277 at https://github.com/rubberduck-vba/Rubberduck/issues/5277
+        public void RenameRefactoring_RenameReDimDeclaredArray_FromReference()
+        {
+            var tdo = new RenameTestsDataObject(selectedIdentifier: "arr", newName: "bar");
+            var inputOutput = new RenameTestModuleDefinition("Module1", ComponentType.StandardModule)
+            {
+                Input =
+                    @"Private Sub Foo()
+    ReDim arr(0 To 1)
+    arr(1) = a|rr(0)
+End Sub",
+                Expected =
+                    @"Private Sub Foo()
+    ReDim bar(0 To 1)
+    bar(1) = bar(0)
+End Sub"
+            };
+            PerformExpectedVersusActualRenameTests(tdo, inputOutput);
+        }
+
         [Test]
         [Category("Refactorings")]
         [Category("Rename")]