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/src | |
| parent | cafd2df2336258b6a107d827f60b89d20a967653 (diff) | |
| download | numpy-d7ea62c3153fcf51e358b93a6aeb2be4f74c08e5.tar.gz | |
WIP: implemented assumed shape support for Fortran subroutines.
Diffstat (limited to 'numpy/f2py/tests/src')
| -rw-r--r-- | numpy/f2py/tests/src/assumed_shape/foo_free.f90 | 6 |
1 files changed, 3 insertions, 3 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 |