26 lines
623 B
Python
26 lines
623 B
Python
|
from __future__ import division, absolute_import, print_function
|
||
|
|
|
||
|
|
import textwrap
|
||
|
|
import sys
|
||
|
|
from . import util
|
||
|
|
|
||
|
|
from numpy.testing import run_module_suite, assert_equal, dec
|
||
|
|
|
||
|
|
class TestBlockDocString(util.F2PyTest):
|
||
|
|
code = """
|
||
|
|
SUBROUTINE FOO()
|
||
|
|
INTEGER BAR(2, 3)
|
||
|
|
|
||
|
|
COMMON /BLOCK/ BAR
|
||
|
|
RETURN
|
||
|
|
END
|
||
|
|
"""
|
||
|
|
|
||
|
|
@dec.knownfailureif(sys.platform=='win32', msg='Fails with MinGW64 Gfortran (Issue #9673)')
|
||
|
|
def test_block_docstring(self):
|
||
|
|
expected = "'i'-array(2,3)\n"
|
||
|
|
assert_equal(self.module.block.__doc__, expected)
|
||
|
|
|
||
|
|
if __name__ == "__main__":
|
||
|
|
run_module_suite()
|