diff options
| author | Charles Harris <charlesr.harris@gmail.com> | 2014-10-09 19:35:18 -0600 |
|---|---|---|
| committer | Charles Harris <charlesr.harris@gmail.com> | 2014-10-09 19:39:07 -0600 |
| commit | e98686d912ddc641f11b7531d164a5b09194b1df (patch) | |
| tree | 6cce437ae983fad2ca03df61b847145d3c2fbf42 /numpy/f2py/tests/src/regression | |
| parent | 1d6ef527cc9e63272cf20bdfab0accb40cb12635 (diff) | |
| download | numpy-e98686d912ddc641f11b7531d164a5b09194b1df.tar.gz | |
TST: Add basic test for compiling with intent(in out).
This checks that the compilation works and that the expected error
is raised when non-contiguous arrays are passed as intent(in out).
Diffstat (limited to 'numpy/f2py/tests/src/regression')
| -rw-r--r-- | numpy/f2py/tests/src/regression/inout.f90 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/numpy/f2py/tests/src/regression/inout.f90 b/numpy/f2py/tests/src/regression/inout.f90 new file mode 100644 index 000000000..80cdad90c --- /dev/null +++ b/numpy/f2py/tests/src/regression/inout.f90 @@ -0,0 +1,9 @@ +! Check that intent(in out) translates as intent(inout). +! The separation seems to be a common usage. + subroutine foo(x) + implicit none + real(4), intent(in out) :: x + dimension x(3) + x(1) = x(1) + x(2) + x(3) + return + end |