diff options
| author | Pearu Peterson <pearu.peterson@gmail.com> | 2011-05-07 00:21:30 +0300 |
|---|---|---|
| committer | Pearu Peterson <pearu.peterson@gmail.com> | 2011-05-07 00:21:30 +0300 |
| commit | 6df2ac2173331ed91e79e69bb5caea07c12f410d (patch) | |
| tree | 7c00ee03b43ee623109462a870d81a57161ca8e0 /numpy/f2py/func2subr.py | |
| parent | 1f2e751b7752d1007e0e83d6d881b6d534f4f15e (diff) | |
| download | numpy-6df2ac2173331ed91e79e69bb5caea07c12f410d.tar.gz | |
BUG: Fix the order of declaring variables in f2py generated code. The bug was noticable with ifort but not with gfortran.
Diffstat (limited to 'numpy/f2py/func2subr.py')
| -rw-r--r-- | numpy/f2py/func2subr.py | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/numpy/f2py/func2subr.py b/numpy/f2py/func2subr.py index 0f76920ac..f746108ad 100644 --- a/numpy/f2py/func2subr.py +++ b/numpy/f2py/func2subr.py @@ -90,7 +90,6 @@ def createfuncwrapper(rout,signature=0): v['dimension'][i] = dn rout['args'].extend(extra_args) need_interface = bool(extra_args) - ret = [''] def add(line,ret=ret): @@ -143,8 +142,13 @@ def createfuncwrapper(rout,signature=0): dumped_args.append(a) for a in args: if a in dumped_args: continue + if isintent_in(vars[a]): + add(var2fixfortran(vars,a,f90mode=f90mode)) + dumped_args.append(a) + for a in args: + if a in dumped_args: continue add(var2fixfortran(vars,a,f90mode=f90mode)) - + add(l) if need_interface: |