From 715b9c74f86cfeceb94cdd77b3080afa88e10688 Mon Sep 17 00:00:00 2001 From: Pearu Peterson Date: Sun, 27 Feb 2011 12:55:03 +0200 Subject: Fix assumed shape support for routines that use modules. Improved .f2py_f2cmap messages. --- numpy/f2py/func2subr.py | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'numpy/f2py/func2subr.py') diff --git a/numpy/f2py/func2subr.py b/numpy/f2py/func2subr.py index 4fee8c3c1..02401d504 100644 --- a/numpy/f2py/func2subr.py +++ b/numpy/f2py/func2subr.py @@ -126,6 +126,12 @@ def createfuncwrapper(rout,signature=0): add('external %s'%(fortranname)) #if not return_char_star: l = l + ', '+fortranname + + if need_interface: + for line in rout['saved_interface'].split('\n'): + if line.lstrip().startswith('use '): + add(line) + args = args[1:] dumped_args = [] for a in args: @@ -201,6 +207,11 @@ def createsubrwrapper(rout,signature=0): if not need_interface: add('external %s'%(fortranname)) + if need_interface: + for line in rout['saved_interface'].split('\n'): + if line.lstrip().startswith('use '): + add(line) + dumped_args = [] for a in args: if isexternal(vars[a]): -- cgit v1.2.1