Fix call chain following for external types

Fixes #583
Fortran-FOSS-Programmers · Nov 3, 2023 · 177ef84 · 177ef84
1 parent 3012896
commit 177ef84
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ford/sourceform.py b/ford/sourceform.py
@@ -1477,9 +1477,9 @@ def get_label_item(context, label):
                 context = item
             elif isinstance(item, FortranVariable):
                 type_str = strip_type(item.full_type)
-                if item.parent is None:
+                if not (parent_all_types := getattr(item.parent, "all_types", {})):
                     return None
-                context = item.parent.all_types.get(type_str, None)
+                context = parent_all_types.get(type_str, None)
             else:
                 context = None