numpy
diff --git a/‎numpy/f2py/auxfuncs.py
Copy file name to clipboardExpand all lines: numpy/f2py/auxfuncs.py
+6-1Lines changed: 6 additions & 1 deletion b/‎numpy/f2py/auxfuncs.py
Copy file name to clipboardExpand all lines: numpy/f2py/auxfuncs.py
+6-1Lines changed: 6 additions & 1 deletion
diff --git a/‎numpy/f2py/crackfortran.py
Copy file name to clipboardExpand all lines: numpy/f2py/crackfortran.py
+3-5Lines changed: 3 additions & 5 deletions b/‎numpy/f2py/crackfortran.py
Copy file name to clipboardExpand all lines: numpy/f2py/crackfortran.py
+3-5Lines changed: 3 additions & 5 deletions
@@ -26,7 +26,7 @@
     'hasexternals', 'hasinitvalue', 'hasnote', 'hasresultnote',
     'isallocatable', 'isarray', 'isarrayofstrings',
     'ischaracter', 'ischaracterarray', 'ischaracter_or_characterarray',
-    'iscomplex',
+    'iscomplex', 'iscstyledirective',
     'iscomplexarray', 'iscomplexfunction', 'iscomplexfunction_warn',
     'isdouble', 'isdummyroutine', 'isexternal', 'isfunction',
     'isfunction_wrap', 'isint1', 'isint1array', 'isinteger', 'isintent_aux',
@@ -423,6 +423,11 @@ def isrequired(var):
     return not isoptional(var) and isintent_nothide(var)
 
 
+def iscstyledirective(f2py_line):
+    directives = {"callstatement", "callprotoargument", "pymethoddef"}
+    return any(directive in f2py_line.lower() for directive in directives)
+
+
 def isintent_in(var):
     if 'intent' not in var:
         return 1
 
@@ -510,11 +510,9 @@ def readfortrancode(ffile, dowithline=show, istop=1):
                 origfinalline = ''
             else:
                 if localdolowercase:
-                    # lines with intent() should be lowered otherwise
-                    # TestString::test_char fails due to mixed case
-                    # f2py directives without intent() should be left untouched
-                    # gh-2547, gh-27697, gh-26681
-                    finalline = ll.lower() if "intent" in ll.lower() or not is_f2py_directive else ll
+                    # only skip lowering for C style constructs
+                    # gh-2547, gh-27697, gh-26681, gh-28014
+                    finalline = ll.lower() if not (is_f2py_directive and iscstyledirective(ll)) else ll
                 else:
                     finalline = ll
                 origfinalline = ll