From f393b6041c0d124b0372c494bab7de8dbe0cd422 Mon Sep 17 00:00:00 2001 From: Pearu Peterson Date: Fri, 6 May 2011 01:30:03 +0300 Subject: BUG: Fix assumed shape support for module routines. --- numpy/f2py/f90mod_rules.py | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'numpy/f2py/f90mod_rules.py') diff --git a/numpy/f2py/f90mod_rules.py b/numpy/f2py/f90mod_rules.py index 6ce9b15ca..e4a4b0e96 100644 --- a/numpy/f2py/f90mod_rules.py +++ b/numpy/f2py/f90mod_rules.py @@ -180,8 +180,13 @@ def buildhooks(pymod): #efargs.append(fargs[-1]) ifargs.append(func2subr.createfuncwrapper(b,signature=1)) else: - fargs.append(b['name']) - mfargs.append(fargs[-1]) + if wrap: + fhooks[0]=fhooks[0]+wrap + fargs.append('f2pywrap_%s_%s'%(m['name'],b['name'])) + ifargs.append(func2subr.createsubrwrapper(b,signature=1)) + else: + fargs.append(b['name']) + mfargs.append(fargs[-1]) #if '--external-modroutines' in options and options['--external-modroutines']: # outmess('\t\t\tapplying --external-modroutines for %s\n'%(b['name'])) # efargs.append(fargs[-1]) -- cgit v1.2.1