Add is_parameter method for var objects

Author: gnikit

fortls/objects.py

@@ -1580,6 +1580,7 @@ def base_setup(
         self.parent = None
         self.link_obj = None
         self.type_obj = None
+        self.is_const = False
         if link_obj is not None:
             self.link_name = link_obj.lower()
         else:
@@ -1592,6 +1593,8 @@ def base_setup(
             self.vis = 1
         if self.keywords.count(KEYWORD_ID_DICT["private"]) > 0:
             self.vis = -1
+        if self.keywords.count(KEYWORD_ID_DICT["parameter"]) > 0:
+            self.is_const = True
 
     def update_fqsn(self, enc_scope=None):
         if enc_scope is not None:
@@ -1674,6 +1677,9 @@ def is_optional(self):
     def is_callable(self):
         return self.callable
 
+    def is_parameter(self):
+        return self.is_const
+
     def check_definition(self, obj_tree, known_types={}, interface=False):
         # Check for type definition in scope
         type_match = DEF_KIND_REGEX.match(self.desc)