diff options
author | Robert Kern <robert.kern@gmail.com> | 2008-07-03 19:57:24 +0000 |
---|---|---|
committer | Robert Kern <robert.kern@gmail.com> | 2008-07-03 19:57:24 +0000 |
commit | 484c100392601f4942ceecbedf32e6df0201d473 (patch) | |
tree | 5e5a58b30a39bd1b5481333ae4a4b9c34e466841 /numpy/f2py/lib/tests/test_module_scalar.py | |
parent | 0c817a5d51c2c16db9df5c015ff846002d991d74 (diff) | |
download | numpy-484c100392601f4942ceecbedf32e6df0201d473.tar.gz |
Removing G3 f2py code. Development has moved to https://launchpad.net/f2py/
Diffstat (limited to 'numpy/f2py/lib/tests/test_module_scalar.py')
-rw-r--r-- | numpy/f2py/lib/tests/test_module_scalar.py | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/numpy/f2py/lib/tests/test_module_scalar.py b/numpy/f2py/lib/tests/test_module_scalar.py deleted file mode 100644 index acaae0517..000000000 --- a/numpy/f2py/lib/tests/test_module_scalar.py +++ /dev/null @@ -1,56 +0,0 @@ -#!/usr/bin/env python -""" -Tests for module with scalar derived types and subprograms. - ------ -Permission to use, modify, and distribute this software is given under the -terms of the NumPy License. See http://scipy.org. - -NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK. -Author: Pearu Peterson <pearu@cens.ioc.ee> -Created: Oct 2006 ------ -""" - -import os -import sys -from numpy.testing import * -from numpy.f2py.lib.main import build_extension, compile - -fortran_code = ''' -module test_module_scalar_ext - - contains - subroutine foo(a) - integer a -!f2py intent(in,out) a - a = a + 1 - end subroutine foo - function foo2(a) - integer a - integer foo2 - foo2 = a + 2 - end function foo2 -end module test_module_scalar_ext -''' - -m, = compile(fortran_code, modulenames = ['test_module_scalar_ext']) - -from numpy import * - -class TestM(TestCase): - - def test_foo_simple(self, level=1): - foo = m.foo - r = foo(2) - assert isinstance(r,int32),`type(r)` - assert_equal(r,3) - - def test_foo2_simple(self, level=1): - foo2 = m.foo2 - r = foo2(2) - assert isinstance(r,int32),`type(r)` - assert_equal(r,4) - -if __name__ == "__main__": - run_module_suite() |