Fix assumed shape support for routines that use modules. Improved .f2py_f2cmap messages.

1 files changed, 11 insertions, 0 deletions

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]):