Implemented selected_real_kind evaluation, added tests to catch processor dependencies..

1 files changed, 34 insertions, 0 deletions

diff --git a/numpy/f2py/tests/test_kind.py b/numpy/f2py/tests/test_kind.py
new file mode 100644
index 000000000..1396ac3a1
--- /dev/null
+++ b/numpy/f2py/tests/test_kind.py
@@ -0,0 +1,34 @@
+import os
+import math
+
+from numpy.testing import *
+from numpy import array
+
+import util
+
+def _path(*a):
+    return os.path.join(*((os.path.dirname(__file__),) + a))
+
+from numpy.f2py.crackfortran import _selected_int_kind_func as selected_int_kind
+from numpy.f2py.crackfortran import _selected_real_kind_func as selected_real_kind
+
+class TestKind(util.F2PyTest):
+    sources = [_path('src', 'kind', 'foo.f90'),
+               ]
+
+    @dec.slow
+    def test_all(self):
+        print self.module.__doc__
+
+        selectedrealkind = self.module.selectedrealkind
+        selectedintkind = self.module.selectedintkind
+
+        for i in range(40):
+            assert selected_int_kind(i)==selectedintkind(i),`i, selected_int_kind(i), selectedintkind(i)`
+
+        for i in range(20):
+            assert selected_real_kind(i)==selectedrealkind(i),`i, selected_real_kind(i), selectedrealkind(i)`
+
+if __name__ == "__main__":
+    import nose
+    nose.runmodule()