Allow allocatable class output

jameskermode · Nov 22, 2024 · ae015f1 · ae015f1
1 parent d033fa1
commit ae015f1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/f90wrap/transform.py b/f90wrap/transform.py
@@ -252,7 +252,8 @@ def visit_Procedure(self, node):
                 continue
             else:
                 # allocatable arguments only allowed for derived types
-                if 'allocatable' in arg.attributes and not arg.type.startswith('type'):
+                if 'allocatable' in arg.attributes and not (
+                    arg.type.startswith('type') or arg.type.startswith('class')):
                     log.warning('removing routine %s due to allocatable intrinsic type arguments' % node.name)
                     return None
                 # no pointer arguments