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
diff --git a/‎numpy/f2py/tests/src/regression/lower_f2py_fortran.f90
Copy file name to clipboard
+5Lines changed: 5 additions & 0 deletions b/‎numpy/f2py/tests/src/regression/lower_f2py_fortran.f90
Copy file name to clipboard
+5Lines changed: 5 additions & 0 deletions
diff --git a/‎numpy/f2py/tests/test_regression.py
Copy file name to clipboardExpand all lines: numpy/f2py/tests/test_regression.py
+9Lines changed: 9 additions & 0 deletions b/‎numpy/f2py/tests/test_regression.py
Copy file name to clipboardExpand all lines: numpy/f2py/tests/test_regression.py
+9Lines changed: 9 additions & 0 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
 
@@ -0,0 +1,5 @@
+subroutine inquire_next(IU)
+   IMPLICIT NONE
+   integer :: IU
+   !f2py intent(in) IU
+end subroutine
@@ -122,6 +122,15 @@ def test_gh26148b(self):
         assert(res[0] == 8)
         assert(res[1] == 15)
 
+class TestLowerF2PYDirectives(util.F2PyTest):
+    # Check variables are cased correctly
+    sources = [util.getpath("tests", "src", "regression", "lower_f2py_fortran.f90")]
+
+    @pytest.mark.slow
+    def test_gh28014(self):
+        self.module.inquire_next(3)
+        assert True
+
 @pytest.mark.slow
 def test_gh26623():
     # Including libraries with . should not generate an incorrect meson.build