Fixes error with interfaces as function arguments

Fixes Error message for dummy procedure argument. #200

CHANGELOG.md

@@ -1,3 +1,12 @@
+# CHANGELONG
+
+## 1.12.1
+
+### Fixes
+
+* Fixes diagnostic error with interfaces as function arguments
+  ([#200](https://github.com/hansec/fortran-language-server/issues/200))
+
 ## 1.12.0
 
 ### Improvements

fortls/objects.py

@@ -940,6 +940,14 @@ def resolve_arg_link(self, obj_tree):
                 if arg == child.name.lower():
                     ind = i
                     break
+                # If an argument is part of an interface block go through the
+                # block's children i.e. functions and subroutines to see if one matches
+                elif child.name.lower().startswith("#gen_int"):
+                    for sub_child in child.children:
+                        if arg == sub_child.name:
+                            self.arg_objs[i] = sub_child
+                            break
+
             if ind < 0:
                 if child.keywords.count(KEYWORD_ID_DICT["intent"]) > 0:
                     self.missing_args.append(child)