o g@szddlZddlZddlZddlmZddlZddlmZddZ Gdddej Z Gd d d ej Z Gd d d ej Z dS) N)assert_array_equal)utilcGstjjtjtf|S)N)ospathjoindirname__file__)ar Z/home/ubuntu/cloudmapper/venv/lib/python3.10/site-packages/numpy/f2py/tests/test_string.py_path sr c@s*eZdZedddgZejjddZdS) TestStringsrcstringzchar.f90cCs^tjgdddj}|jj||jd\}}t|||}d|dddf<t||dS)N)abcdefc)dtyperAAA) nparrayTmodule char_testchange_stringsshapercopy)selfstringsinpoutexpectedr r r test_chars  zTestString.test_charN) __name__ __module__ __qualname__r sourcespytestmarkslowr$r r r r r src@seZdZdZdZddZdS)TestDocStringArgumentsz.fa C FILE: STRING.F SUBROUTINE FOO(A,B,C,D) CHARACTER*5 A, B CHARACTER*(*) C,D Cf2py intent(in) a,c Cf2py intent(inout) b,d PRINT*, "A=",A PRINT*, "B=",B PRINT*, "C=",C PRINT*, "D=",D PRINT*, "CHANGE A,B,C,D" A(1:1) = 'A' B(1:1) = 'B' C(1:1) = 'C' D(1:1) = 'D' PRINT*, "A=",A PRINT*, "B=",B PRINT*, "C=",C PRINT*, "D=",D END C END OF FILE STRING.F cCstd}td}td}td}|j|||||dks%J|dks2J|f|dks:J|dksBJdS)Ns123s123sB23sD23)rrrfootobytes)rr brdr r r test_example6s    z#TestDocStringArguments.test_exampleN)r%r&r'suffixcoder1r r r r r,s r,c@sBeZdZdZedZedddZddd Z d d Z d d Z dS)TestFixedStringz.f90a function sint(s) result(i) implicit none character(len=*) :: s integer :: j, i i = 0 do j=len(s), 1, -1 if (.not.((i.eq.0).and.(s(j:j).eq.' '))) then i = i + ichar(s(j:j)) * 10 ** (j - 1) endif end do return end function sint function test_in_bytes4(a) result (i) implicit none integer :: sint character(len=4) :: a integer :: i i = sint(a) a(1:1) = 'A' return end function test_in_bytes4 function test_inout_bytes4(a) result (i) implicit none integer :: sint character(len=4), intent(inout) :: a integer :: i if (a(1:1).ne.' ') then a(1:1) = 'E' endif i = sint(a) return end function test_inout_bytes4 rNcCs|t|tjr |}n t|tr|}t|tsJ|dur#t|}d}t|t |t|D] }|||d|7}q/|S)zReturn the content of a string buffer as integer value. For example: _sint('1234') -> 4321 _sint('123A') -> 17321 Nr ) isinstancerndarrayr.strencodebyteslenrangemin)sstartendijr r r _sintls   zTestFixedString._sintinccs|dvr&dVdVdVdVdVdVdVd Vd Vd Vd Vtjd tjddVtdVtdVtdVtd Vtd Vtd VtdVtd VdS)NrD11234123451s1s1234s12345r )buffers123)rr7bytes_r)rintentr r r _get_inputs,       zTestFixedString._get_inputcCs<|D]}|j|}|j|dd}||ksJ|qdS)Nr@)rQrtest_in_bytes4rC)rr>rr#r r r test_intent_ins  zTestFixedString.test_intent_incCs`|jddD]'}|j|dd}|j|}|j|dd}||ks"J||j|ddks-JqdS)Ninout)rPrR)r?rS)rQrCrtest_inout_bytes4)rr>restrUr#r r r test_intent_inouts  z!TestFixedString.test_intent_inout)rNrE) r%r&r'r2textwrapdedentr3 staticmethodrCrQrVrZr r r r r4Ds %   r4)rr)r[ numpy.testingrnumpyrrFrr F2PyTestrr,r4r r r r s  )