formatting

Author: Dionysios Grapsas

fortls/parsers/internal/parser.py

@@ -1381,7 +1381,7 @@ def parse(
                     file_ast.end_scope_regex == FRegex.END_SELECT
                     and (
                         FRegex.SELECT_CASE.match(line_no_comment)
-                        or FRegex.SELECT_DEFAULT.match(line_no_comment)
+                        or FRegex.CASE_DEFAULT.match(line_no_comment)
                     )
                     is not None
                 ):

fortls/regex_patterns.py

@@ -148,6 +148,7 @@ class FortranRegularExpressions:
     )
     ELSE_IF: Pattern = compile(r"(^|.*\s)(ELSE$|ELSE(\s)|ELSEIF(\s*\())", I)
     SELECT_CASE: Pattern = compile(r"((^|\s*\s)(CASE)(\s*\())", I)
+    CASE_DEFAULT: Pattern = compile(r"[ ]*CASE[ ]+DEFAULT", I)
     # Object regex patterns
     CLASS_VAR: Pattern = compile(r"(TYPE|CLASS)[ ]*\(", I)
     DEF_KIND: Pattern = compile(r"(\w*)[ ]*\((?:KIND|LEN)?[ =]*(\w*)", I)