Clean parsing routines for dimensions and lengths

Author: gnikit

fortls/parse_fortran.py

@@ -1672,9 +1672,7 @@ def parse_imp_dim(self, line: str):
         tuple[str, str]
             truncated line, dimension string
         """
-        regex = re.compile(r"[ ]*\w+[ ]*(\()", re.I)
-        # TODO: replace space
-        m = regex.match(line)
+        m = re.compile(r"[ ]*\w+[ ]*(\()", re.I).match(line)
         if not m:
             return line, None
         i = find_paren_match(line[m.end(1) :])
@@ -1698,9 +1696,7 @@ def parse_imp_char(self, line: str):
         tuple[str, str]
             truncated line, character length
         """
-        implicit_len = re.compile(r"(\w+)[ ]*\*[ ]*(\d+|\()", re.I)
-        # TODO: replace space in name
-        match = implicit_len.match(line)
+        match = re.compile(r"(\w+)[ ]*\*[ ]*(\d+|\()", re.I).match(line)
         if not match:
             return line, None
         if match.group(2) == "(":

test/test_source/parse/test_incomplete_dims.f90

@@ -0,0 +1,8 @@
+
+! Tests that the parser will not break, when parsing incomplete variables
+! constructs. This is particularly important for autocompletion.
+program test_incomplete_dims
+    implicit none
+    integer   :: dim_val(1, 2
+    character :: char_val*(10
+end program test_incomplete_dims