25 lines
647 B
Python
25 lines
647 B
Python
from __future__ import division, absolute_import, print_function
|
|
|
|
import sys
|
|
import pytest
|
|
from . import util
|
|
|
|
from numpy.testing import assert_equal, IS_PYPY
|
|
|
|
class TestBlockDocString(util.F2PyTest):
|
|
code = """
|
|
SUBROUTINE FOO()
|
|
INTEGER BAR(2, 3)
|
|
|
|
COMMON /BLOCK/ BAR
|
|
RETURN
|
|
END
|
|
"""
|
|
|
|
@pytest.mark.skipif(sys.platform=='win32',
|
|
reason='Fails with MinGW64 Gfortran (Issue #9673)')
|
|
@pytest.mark.xfail(IS_PYPY, reason="PyPy does not modify tp_doc")
|
|
def test_block_docstring(self):
|
|
expected = "'i'-array(2,3)\n"
|
|
assert_equal(self.module.block.__doc__, expected)
|