diff options
| author | Pearu Peterson <pearu.peterson@gmail.com> | 2011-02-26 19:20:52 +0200 |
|---|---|---|
| committer | Pearu Peterson <pearu.peterson@gmail.com> | 2011-02-26 19:20:52 +0200 |
| commit | d7ea62c3153fcf51e358b93a6aeb2be4f74c08e5 (patch) | |
| tree | d0ff7fbb64f88d16b13ac62810956f54592894ff /numpy/f2py/tests | |
| parent | cafd2df2336258b6a107d827f60b89d20a967653 (diff) | |
| download | numpy-d7ea62c3153fcf51e358b93a6aeb2be4f74c08e5.tar.gz | |
WIP: implemented assumed shape support for Fortran subroutines.
Diffstat (limited to 'numpy/f2py/tests')
| -rw-r--r-- | numpy/f2py/tests/src/assumed_shape/foo_free.f90 | 6 | ||||
| -rw-r--r-- | numpy/f2py/tests/test_assumed_shape.py | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/numpy/f2py/tests/src/assumed_shape/foo_free.f90 b/numpy/f2py/tests/src/assumed_shape/foo_free.f90 index 43c076f15..b301710f5 100644 --- a/numpy/f2py/tests/src/assumed_shape/foo_free.f90 +++ b/numpy/f2py/tests/src/assumed_shape/foo_free.f90 @@ -6,12 +6,12 @@ subroutine sum(x, res) integer :: i - print *, "sum: size(x) = ", size(x) + !print *, "sum: size(x) = ", size(x) res = 0.0 do i = 1, size(x) - res = x(i) + res = res + x(i) enddo end subroutine sum @@ -23,7 +23,7 @@ function fsum(x) result (res) integer :: i - print *, "fsum: size(x) = ", size(x) + !print *, "fsum: size(x) = ", size(x) res = 0.0 diff --git a/numpy/f2py/tests/test_assumed_shape.py b/numpy/f2py/tests/test_assumed_shape.py index 5784c54f9..6a562ebdc 100644 --- a/numpy/f2py/tests/test_assumed_shape.py +++ b/numpy/f2py/tests/test_assumed_shape.py @@ -17,8 +17,8 @@ class TestMixed(util.F2PyTest): print self.module.__doc__ r = self.module.fsum([1,2]) assert r==3,`r` - #r = self.module.sum([1,2]) - #assert r==3,`r` + r = self.module.sum([1,2]) + assert r==3,`r` if __name__ == "__main__": import nose |