3 Kd @s`ddlZddlmZddlmZddlmZddlZddl Z Gdddej Z Gdd d Z dS) N)assert_array_equal)util) crackfortranc@seZdZdZddZdS) TestNoSpacea| subroutine subb(k) real(8), intent(inout) :: k(:) k=k+1 endsubroutine subroutine subc(w,k) real(8), intent(in) :: w(:) real(8), intent(out) :: k(size(w)) k=w+1 endsubroutine function t0(value) character value character t0 t0 = value endfunction cCs|tjdddgtjd}tjdddgtjd}|jj|t||d|jj||gt||d|jjddksxtdS)Nr)Zdtype2) nparrayZfloat64moduleZsubbrZsubct0AssertionError)selfkwrV/var/www/html/virt/lib64/python3.6/site-packages/numpy/f2py/tests/test_crackfortran.py test_modules zTestNoSpace.test_moduleN)__name__ __module__ __qualname__coderrrrrr src@seZdZddZddZdS)TestPublicPrivatec Cs|d}|jd}|jtjdWdQRXtjt|g}t|dksNt|d}d|ddd ksntd |ddd kstd|dd d kstd |dd d kstd|dd d kstd |dd d kstdS) Nzmod.f90ra> module foo private integer :: a public :: setA integer :: b contains subroutine setA(v) integer, intent(in) :: v a = v end subroutine setA end module foo rrprivatevarsaattrspecpublicbseta)openwritetextwrapdedentrstrlenr)rtmp_pathf_pathffmodrrrtest_defaultPrivate)s  z%TestPublicPrivate.test_defaultPrivatec Cs|d}|jd}|jtjdWdQRXtjt|g}t|dksNt|d}d|ddd ksntd |ddd kstd|dd d kstd |dd d kstdS) Nzmod.f90ra+ module foo public integer, private :: a public :: setA contains subroutine setA(v) integer, intent(in) :: v a = v end subroutine setA end module foo rrrrrrrr!)r"r#r$r%rr&r'r)rr(r)r*r+rrrtest_defaultPublicCs  z$TestPublicPrivate.test_defaultPublicN)rrrr,r-rrrrr(sr) Znumpyr Z numpy.testingrrZ numpy.f2pyrtempfiler$ZF2PyTestrrrrrrs