BUG: Fix wrappers for fortranname

HaoZeke · HaoZeke · commit a39d91c2839e · 2024-11-11T01:53:25.000Z
Closes gh-25700
diff --git a/numpy/f2py/rules.py b/numpy/f2py/rules.py
@@ -459,7 +459,7 @@
     {
       extern #ctype# #F_FUNC#(#name_lower#,#NAME#)(void);
       PyObject* o = PyDict_GetItemString(d,"#name#");
-      tmp = F2PyCapsule_FromVoidPtr((void*)#F_FUNC#(#name_lower#,#NAME#),NULL);
+      tmp = F2PyCapsule_FromVoidPtr((void*)#F_WRAPPEDFUNC#(#name_lower#,#NAME#),NULL);
       PyObject_SetAttrString(o,"_cpointer", tmp);
       Py_DECREF(tmp);
       s = PyUnicode_FromString("#name#");
diff --git a/numpy/f2py/tests/test_routines.py b/numpy/f2py/tests/test_routines.py
@@ -10,7 +10,7 @@ class TestRenamedFunc(util.F2PyTest):
     ]
     module_name = "funcfortranname"
 
-    def test_renamed_function(self):
+    def test_gh25799(self):
         assert dir(self.module)
         assert self.module.funcfortranname_default(200, 12) == 212
 

Original file line number	Diff line number	Diff line change
`@@ -459,7 +459,7 @@`
`459`	`459`	`{`
`460`	`460`	`extern #ctype# #F_FUNC#(#name_lower#,#NAME#)(void);`
`461`	`461`	`PyObject* o = PyDict_GetItemString(d,"#name#");`
`462`		`- tmp = F2PyCapsule_FromVoidPtr((void*)#F_FUNC#(#name_lower#,#NAME#),NULL);`
	`462`	`+ tmp = F2PyCapsule_FromVoidPtr((void*)#F_WRAPPEDFUNC#(#name_lower#,#NAME#),NULL);`
`463`	`463`	`PyObject_SetAttrString(o,"_cpointer", tmp);`
`464`	`464`	`Py_DECREF(tmp);`
`465`	`465`	`s = PyUnicode_FromString("#name#");`
Original file line number	Diff line number	Diff line change
`@@ -10,7 +10,7 @@ class TestRenamedFunc(util.F2PyTest):`
`10`	`10`	`]`
`11`	`11`	`module_name = "funcfortranname"`
`12`	`12`
`13`		`- def test_renamed_function(self):`
	`13`	`+ def test_gh25799(self):`
`14`	`14`	`assert dir(self.module)`
`15`	`15`	`assert self.module.funcfortranname_default(200, 12) == 212`
`16`	`16`