Added failing tests for multiple whitespace in front of asType in an array definition.

Author: MDoerner

RubberduckTests/Grammar/VBAParserTests.cs

@@ -2155,6 +2155,31 @@ End Sub
             AssertTree(parseResult.Item1, parseResult.Item2, "//universalLetterRange", matches => matches.Count == 0);
         }
 
+        [Category("Parser")]
+        [Test]
+        public void SLLParserDoesNotThrowForArrayDefinitionInModuleWithMultipleSpacesInFromtOfAsType()
+        {
+            const string code = @"
+Dim Foo1(0 To 3)       As Long
+
+";
+            var parseResult = Parse(code);
+            AssertTree(parseResult.Item1, parseResult.Item2, "//variableSubStmt", matches => matches.Count == 1);
+        }
+
+        [Category("Parser")]
+        [Test]
+        public void SLLParserDoesNotThrowForArrayDefinitionInSubWithMultipleSpacesInFromtOfAsType()
+        {
+            const string code = @"
+Sub Test()
+    Dim Foo2(0 To 3)       As Long
+End Sub
+";
+            var parseResult = Parse(code);
+            AssertTree(parseResult.Item1, parseResult.Item2, "//variableSubStmt", matches => matches.Count == 1);
+        }
+
         private Tuple<VBAParser, ParserRuleContext> Parse(string code, PredictionMode predictionMode = null)
         {
             var stream = new AntlrInputStream(code);