BUG: Handle multi-module files and common better

Fixes numpygh-25186 numpygh-25337 numpygh-27622

Author: HaoZeke

numpy/f2py/auxfuncs.py

@@ -43,7 +43,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'
+    'process_f2cmap_dict', 'containscommon'
 ]
 
 

numpy/f2py/f90mod_rules.py

@@ -97,9 +97,6 @@ def dadd(line, s=doc):
 
     usenames = getuseblocks(pymod)
     for m in findf90modules(pymod):
-        contains_functions_or_subroutines = any(
-            item for item in m["body"] if item["block"] in ["function", "subroutine"]
-        )
         sargs, fargs, efargs, modobjs, notvars, onlyvars = [], [], [], [], [
             m['name']], []
         sargsp = []
@@ -120,8 +117,9 @@ def dadd(line, s=doc):
             outmess(f"\t\t\tSkipping {m['name']} since there are no public vars/func in this module...\n")
             continue
 
-        if m['name'] in usenames and not contains_functions_or_subroutines:
-            outmess(f"\t\t\tSkipping {m['name']} since it is in 'use'...\n")
+        # gh-25186
+        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
         if onlyvars:
             outmess('\t\t  Variables: %s\n' % (' '.join(onlyvars)))