diff options
| author | Sebastian Berg <sebastianb@nvidia.com> | 2023-04-28 13:45:35 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-04-28 13:45:35 +0200 |
| commit | f983afd70046e807dd61962800ce147f42ccc457 (patch) | |
| tree | 72d84a3a9798df372d7101380985f4269161c6dc /doc/source/f2py | |
| parent | 30c047cdb2e0c0b233e5dc3b61c081ce1f6df3d3 (diff) | |
| parent | b4f0e4122e83115d99de849fcfc4fd1fc8b8f65d (diff) | |
| download | numpy-f983afd70046e807dd61962800ce147f42ccc457.tar.gz | |
Merge pull request #23600 from HaoZeke/f2pyFuncFix_23598
BUG: Infer return types for Fortran functions in `f2py`
Diffstat (limited to 'doc/source/f2py')
| -rw-r--r-- | doc/source/f2py/code/ftype.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/doc/source/f2py/code/ftype.f b/doc/source/f2py/code/ftype.f index cabbb9e2d..67d5a224b 100644 --- a/doc/source/f2py/code/ftype.f +++ b/doc/source/f2py/code/ftype.f @@ -4,6 +4,6 @@ C FILE: FTYPE.F Cf2py integer optional,intent(in) :: n = 13 REAL A,X COMMON /DATA/ A,X(3) - PRINT*, "IN FOO: N=",N," A=",A," X=[",X(1),X(2),X(3),"]" +C PRINT*, "IN FOO: N=",N," A=",A," X=[",X(1),X(2),X(3),"]" END C END OF FTYPE.F |