Replaces integer with variable type

Author: gnikit

fortls/parse_fortran.py

@@ -18,6 +18,7 @@
 from fortls.constants import (
     DO_TYPE_ID,
     INTERFACE_TYPE_ID,
+    MODULE_TYPE_ID,
     SELECT_TYPE_ID,
     SUBMODULE_TYPE_ID,
     FRegex,
@@ -1610,7 +1611,7 @@ def parse(
                     if (len(obj_info.obj_names) == 0) and (obj_info.type == 1):
                         file_ast.current_scope.set_default_vis(-1)
                     else:
-                        if obj_info.type == 1:
+                        if obj_info.type == MODULE_TYPE_ID:
                             for word in obj_info.obj_names:
                                 file_ast.add_private(word)
                         else: