f2py: support for assumed shape arrays of fortran callback functions (will not work with python callback functions, for instance).

1 files changed, 4 insertions, 0 deletions

diff --git a/numpy/f2py/capi_maps.py b/numpy/f2py/capi_maps.py
index bc9fb28c1..b57339cbb 100644
--- a/numpy/f2py/capi_maps.py
+++ b/numpy/f2py/capi_maps.py
@@ -307,6 +307,10 @@ def getarrdims(a,var,verbose=0):
             i=i+1
             if d not in ['*',':','(*)','(:)']:
                 ret['cbsetdims']='%s#varname#_Dims[%d]=%s,'%(ret['cbsetdims'],i,d)
+            elif isintent_in(var):
+                outmess('getarrdims:warning: assumed shape array, using 0 instead of %r\n' \
+                        % (d))
+                ret['cbsetdims']='%s#varname#_Dims[%d]=%s,'%(ret['cbsetdims'],i,0)
             elif verbose :
                 errmess('getarrdims: If in call-back function: array argument %s must have bounded dimensions: got %s\n'%(`a`,`d`))
         if ret['cbsetdims']: ret['cbsetdims']=ret['cbsetdims'][:-1]