28 lines
896 B
Python
28 lines
896 B
Python
|
import os
|
||
|
|
import sys
|
||
|
|
import pytest
|
||
|
|
|
||
|
|
import numpy as np
|
||
|
|
from . import util
|
||
|
|
|
||
|
|
|
||
|
|
class TestCommonBlock(util.F2PyTest):
|
||
|
|
sources = [util.getpath("tests", "src", "common", "block.f")]
|
||
|
|
|
||
|
|
@pytest.mark.skipif(sys.platform == "win32",
|
||
|
|
reason="Fails with MinGW64 Gfortran (Issue #9673)")
|
||
|
|
def test_common_block(self):
|
||
|
|
self.module.initcb()
|
||
|
|
assert self.module.block.long_bn == np.array(1.0, dtype=np.float64)
|
||
|
|
assert self.module.block.string_bn == np.array("2", dtype="|S1")
|
||
|
|
assert self.module.block.ok == np.array(3, dtype=np.int32)
|
||
|
|
|
||
|
|
|
||
|
|
class TestCommonWithUse(util.F2PyTest):
|
||
|
|
sources = [util.getpath("tests", "src", "common", "gh19161.f90")]
|
||
|
|
|
||
|
|
@pytest.mark.skipif(sys.platform == "win32",
|
||
|
|
reason="Fails with MinGW64 Gfortran (Issue #9673)")
|
||
|
|
def test_common_gh19161(self):
|
||
|
|
assert self.module.data.x == 0
|