diff options
| author | Bob Eldering <eldering@jive.eu> | 2017-06-13 16:05:12 +0200 |
|---|---|---|
| committer | Bob Eldering <eldering@jive.eu> | 2017-06-13 16:05:12 +0200 |
| commit | 8042526ba48c6d817d32300c1ecbea95d395c62e (patch) | |
| tree | 008bf657fd5d6feffdfa9848a18e0acdc3d9d1aa /numpy/f2py/tests/src | |
| parent | dc063adb3d515971e492ffdd163bb07a9529b54a (diff) | |
| download | numpy-8042526ba48c6d817d32300c1ecbea95d395c62e.tar.gz | |
TST: add test case described in ticket 9228 for numpy.f2py
Diffstat (limited to 'numpy/f2py/tests/src')
| -rw-r--r-- | numpy/f2py/tests/src/common/block.f | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/numpy/f2py/tests/src/common/block.f b/numpy/f2py/tests/src/common/block.f new file mode 100644 index 000000000..7ea7968fe --- /dev/null +++ b/numpy/f2py/tests/src/common/block.f @@ -0,0 +1,11 @@ + SUBROUTINE INITCB + DOUBLE PRECISION LONG + CHARACTER STRING + INTEGER OK + + COMMON /BLOCK/ LONG, STRING, OK + LONG = 1.0 + STRING = '2' + OK = 3 + RETURN + END |