BUG: handle the case of modules with derived types

numpy · charris · May 23, 2025 · May 23, 2025 · May 23, 2025 · May 23, 2025
commit f75f7179ddbfdc4d73e2aeb6315bab0347195567
diff --git a/numpy/f2py/auxfuncs.py b/numpy/f2py/auxfuncs.py
@@ -42,7 +42,7 @@
     'isunsigned_long_long', 'isunsigned_long_longarray', 'isunsigned_short',
     'isunsigned_shortarray', 'l_and', 'l_not', 'l_or', 'outmess', 'replace',
     'show', 'stripcomma', 'throw_error', 'isattr_value', 'getuseblocks',
-    'process_f2cmap_dict', 'containscommon'
+    'process_f2cmap_dict', 'containscommon', 'containsderivedtypes'
 ]
 
 
@@ -569,6 +569,20 @@ def containscommon(rout):
     return 0
 
 
+def hasderivedtypes(rout):
+    return ('block' in rout) and rout['block'] == 'type'
+
+
+def containsderivedtypes(rout):
+    if hasderivedtypes(rout):
+        return 1
+    if hasbody(rout):
+        for b in rout['body']:
+            if hasderivedtypes(b):
+                return 1
+    return 0
+
+
 def containsmodule(block):
     if ismodule(block):
         return 1

diff --git a/numpy/f2py/auxfuncs.pyi b/numpy/f2py/auxfuncs.pyi
@@ -200,11 +200,13 @@ def isintent_inplace(var: _Var) -> bool: ...
 def isintent_aux(var: _Var) -> bool: ...
 
 #
+def containsderivedtypes(rout: _ROut) -> _Bool: ...
 def containscommon(rout: _ROut) -> _Bool: ...
 def hasexternals(rout: _ROut) -> bool: ...
 def hasresultnote(rout: _ROut) -> _Bool: ...
 def hasbody(rout: _ROut) -> _Bool: ...
 def hascommon(rout: _ROut) -> bool: ...
+def hasderivedtypes(rout: _ROut) -> bool: ...
 def hascallstatement(rout: _ROut) -> bool: ...
 def isroutine(rout: _ROut) -> bool: ...
 def ismodule(rout: _ROut) -> bool: ...

diff --git a/numpy/f2py/f90mod_rules.py b/numpy/f2py/f90mod_rules.py
@@ -120,6 +120,10 @@ def dadd(line, s=doc):
         if m['name'] in usenames and containscommon(m):
             outmess(f"\t\t\tSkipping {m['name']} since it is in 'use' and contains a common block...\n")
             continue
+        # skip modules with derived types
+        if m['name'] in usenames and containsderivedtypes(m):
+            outmess(f"\t\t\tSkipping {m['name']} since it is in 'use' and contains a derived type...\n")
+            continue
         if onlyvars:
             outmess(f"\t\t  Variables: {' '.join(onlyvars)}\n")
         chooks = ['']