N-B/ d dl Z d dlZd dlmZmZmZ d dlZd dlm Z G d de j
Z G d de j
Z G d d e j
Z
G d
d e j
ZdS ) N)assert_array_equal assert_equal
assert_raises)utilc 2 e Zd ZdZdZg dZdZeD ]ZeZ e d
ee Z e e j
d g de de d e d
e de de d e d e d e d e de d
e de de d
e de de de de de de de de de de d z
Zej de d Zej dedd d Zej de d Zej de d Zej de d ZdS ) TestCharacterString.f90test_character_string13star (*))r z
subroutine _input_z (c, o, n)
character*z, intent(in) :: c
integer n
!f2py integer, depend(c), intent(hide) :: n = slen(c)
integer*1, dimension(n) :: o
!f2py intent(out) o
o = transfer(c, o)
end subroutine _output_z, intent(out) :: c
integer n
integer*1, dimension(n), intent(in) :: o
!f2py integer, depend(o), intent(hide) :: n = len(o)
c = transfer(o, c)
end subroutine
_array_input_z;(c, o, m, n)
integer m, i, n
character*aH , intent(in), dimension(m) :: c
!f2py integer, depend(c), intent(hide) :: m = len(c)
!f2py integer, depend(c), intent(hide) :: n = f2py_itemsize(c)
integer*1, dimension(m, n), intent(out) :: o
do i=1,m
o(i, :) = transfer(c(i), o(i, :))
end do
end subroutine _array_output_z!(c, o, m, n)
character*a , intent(out), dimension(m) :: c
integer n
integer*1, dimension(m, n), intent(in) :: o
!f2py character(f2py_len=n) :: c
!f2py integer, depend(o), intent(hide) :: m = len(o)
!f2py integer, depend(o), intent(hide) :: n = shape(o, 1)
do i=1,m
c(i) = transfer(o(i, :), c(i))
end do
end subroutine _2d_array_input_zH(c, o, m1, m2, n)
integer m1, m2, i, j, n
character*a , intent(in), dimension(m1, m2) :: c
!f2py integer, depend(c), intent(hide) :: m1 = len(c)
!f2py integer, depend(c), intent(hide) :: m2 = shape(c, 1)
!f2py integer, depend(c), intent(hide) :: n = f2py_itemsize(c)
integer*1, dimension(m1, m2, n), intent(out) :: o
do i=1,m1
do j=1,m2
o(i, j, :) = transfer(c(i, j), o(i, j, :))
end do
end do
end subroutine z
lengthc ( ddi || }t | j | j dz |z }dddd| }t || t j t t t | d d S )
Nr r r aabcabcdeabcdeabcder u1dtype)
getgetattrmodulefprefixr nparraylistmapordselfr fsuffixfr s s/builddir/build/BUILD/cloudlinux-venv-1.0.10/venv/lib64/python3.11/site-packages/numpy/f2py/tests/test_character.py
test_inputz TestCharacterString.test_inputL s &/%%ff55 DK !9G!C D DE; 7 7 ?11Q44$s3{{*;*;4!H!H!HIIIII Nc |}t | j | j dz |z }ddd| }t |t j t
t t | d | d S )Nr r r )r r
r r )
r r r! r r" r# r$ r% r& encoder' s r+ test_outputz TestCharacterString.test_outputU s DK
!:W!D E EE " "6 *11RXd3sA;;&7&7t D D DEE 88:: ' ' ' ' 'r- c |}t | j | j dz |z }t j dddd| dddd| gd
}t j d |D d
}t || | d S )
Nr r r r r AABCABCDEABCDEABCDESr c & g | ]}d |D S )c g | ]}|S r9 .0cs r+
zCTestCharacterString.test_array_input...h s ^^^Aa^^^r- r9 r; ss r+ r= z8TestCharacterString.test_array_input..h s" 7 7 7^^^^^ 7 7 7r- r r r r! r" r# r r( r r) r* r expecteds r+ test_array_inputz$TestCharacterString.test_array_input_ s DK !?'!I J J HCe[AA&I e[AA&I "
$
$
$ 8 7 7Q 7 7 7tDDD11Q44*****r- c |}t | j | j dz |z }t j dddd| dddd| gd
}t j d |D d
}t || | d S )
Nr r r r r r3 r4 r5 r6 r c & g | ]}d |D S )c g | ]}|S r9 r9 r: s r+ r= zDTestCharacterString.test_array_output...t s nnnQqnnnr- r9 r> s r+ r= z9TestCharacterString.test_array_output..t s" 777nn!nnn777r- r r@ )r( r r) r* rB r s r+ test_array_outputz%TestCharacterString.test_array_outputk s DK 0@!@7!J K K8UK
8
8
@UK
8
8
@
BILN N N
H77h777t D D D11Q44*****r- c F |}t | j | j dz |z }t j dddd| dddd| gd d
d d| d d
dd| ggd }t j d |D dd }t || | d S )Nr r r r r r3 r4 r5 r* fghfghijfghijfghijFFGHFGHIJFGHIJFGHIJr6 r c & g | ]}d |D S )c & g | ]}d |D S )c g | ]}|S r9 r9 r: s r+ r= zQTestCharacterString.test_2d_array_input.... s / / /Qq / / /r- r9 )r; items r+ r= zFTestCharacterString.test_2d_array_input... s' @ @ @D / /$ / / / @ @ @r- r9 )r; rows r+ r= z;TestCharacterString.test_2d_array_input.. s' N N NS @ @C @ @ @ N N Nr- r r orderr@ rA s r+ test_2d_array_inputz'TestCharacterString.test_2d_array_inputw s DK 0B!BW!L M M HSukBB6J ukBB6JL ukBB6J ukBB6JLM
8 N NA N N N"&c3 3 311Q44*****r- )__name__
__module__ __qualname__suffixr! length_listcoder r) dictr clengthtextwrapdedentjoinpytestmark parametrizer, r1 rC rG rU r9 r- r+ r r s
F%G$$$K
D ;
;
$E"""&&vv66 7! 7! 7! 7! 7! 7! 7! 7! 7! 7! $+7! 7! 7! 7! 7! 7! 7! 7! 7! 7! 7! 7! )07! 7! 7! 7! 7! 7! 7! 7! &-7! 7! 7! 7! 7! 7! 7! 7! " #7! 7! 7! 7! " *1#7! 7! 7! 7! & '7! 7! 7! 7! & +2'7! 7! 7! 7! * +7! 7! 7! 7! 8 97! 7! 7! 7! 8 /697! 7! 7! 7! < =7! 7! 7! 7! < ,3=7! 7! 7! 7! > ?7! 7! 7! 7! P Q7! 7! 7! 7! P 07Q7! 7! 7! 7! T U7! 7! 7! 7! T .5U7! 7! 7! 7! X Y7! 7! 7! 7! l m7! 7! 7! 7! l 29m7! 7! 7! 7! 7! 7! 7
7
7
r [ X{33J J 43J [ X{3B3'788' ' 98' [ X{33 + + 43 + [ X{33 + + 43 + [ X{33 + + 43 + + +r- r c e Zd ZdZdZ ej d g de de de de de d e d
e d e d e d
e de de de de de de de de de de de de de de d Ze j
d d d g d Z d! Z
e j
d g d" d# Zd$ Ze j
d g d" d% Zd& Zd' Zd( Ze j
d d d g d) Zd* Ze j
d d d g d+ Ze j
d d d g d, Zd- Ze j
d. d/ Zd0 Zd1S )2
TestCharacterr test_characterr
subroutine z_input(c, o)
character, intent(in) :: c
integer*1 o
!f2py intent(out) o
o = transfer(c, o)
end subroutine z_input
subroutine z_output(c, o)
character :: c
integer*1, intent(in) :: o
!f2py intent(out) c
c = transfer(o, c)
end subroutine z_output
subroutine z_input_output(c, o)
character, intent(in) :: c
character o
!f2py intent(out) o
o = c
end subroutine z!_input_output
subroutine z_inout(c, n)
character :: c, n
!f2py intent(in) n
!f2py intent(inout) c
c = n
end subroutine z_inout
function z_return(o) result (c)
character :: c
character, intent(in) :: o
c = transfer(o, c)
end function z_return
subroutine z_array_input(c, o)
character, intent(in) :: c(3)
integer*1 o(3)
!f2py intent(out) o
integer i
do i=1,3
o(i) = transfer(c(i), o(i))
end do
end subroutine z _array_input
subroutine a' _2d_array_input(c, o)
character, intent(in) :: c(2, 3)
integer*1 o(2, 3)
!f2py intent(out) o
integer i, j
do i=1,2
do j=1,3
o(i, j) = transfer(c(i, j), o(i, j))
end do
end do
end subroutine z#_2d_array_input
subroutine z_array_output(c, o)
character :: c(3)
integer*1, intent(in) :: o(3)
!f2py intent(out) c
do i=1,3
c(i) = transfer(o(i), c(i))
end do
end subroutine z!_array_output
subroutine z_array_inout(c, n)
character :: c(3), n(3)
!f2py intent(in) n(3)
!f2py intent(inout) c(3)
do i=1,3
c(i) = n(i)
end do
end subroutine z _array_inout
subroutine a _2d_array_inout(c, n)
character :: c(2, 3), n(2, 3)
!f2py intent(in) n(2, 3)
!f2py intent(inout) c(2. 3)
integer i, j
do i=1,2
do j=1,3
c(i, j) = n(i, j)
end do
end do
end subroutine z!_2d_array_inout
function z_array_return(o) result (c)
character, dimension(3) :: c
character, intent(in) :: o(3)
do i=1,3
c(i) = o(i)
end do
end function z _array_return
function z_optional(o) result (c)
character, intent(in) :: o
!f2py character o = "a"
character :: c
c = o
end function z_optional
r r< S1c t | j | j dz }t |t j d| t
d t |t j d| t
d t |t j dg| t
d t |t j d| t
d t |t j dgg| t
d d S )N_inputr r ar )r r r! r r" r# r& r( r r* s r+ r, zTestCharacter.test_input s DK !8 9 9QQrx511122CHH===QQrxE22233SXX>>>QQrxU33344c#hh???QQrxU33344c#hh???QQrx#u55566CAAAAAr- c t | j | j dz }t |d t d t |d t d t |d d t |d d t |d d t |d t d t |d t d t |dg t d t |t j d t d t |t j dg t d t j d }t || t d t j dg }t || t d |g t |j d
# t $ r-}t | d s Y d }~nd }~ww xY w |d t |j d
# t $ r.}t | d s Y d }~d S d }~ww xY w)Nrj r rk r r r- abs abz! should have failed on empty listz got 0-lista z should have failed on int valuez got int instance)
r r r! r r& r" r# SystemErrorrV
IndexErrorstrendswith TypeErrorr( r* r msgs r+ test_input_variaz TestCharacter.test_input_varia s DK !8 9 9QQsVVSXX&&&QQtWWc$ii(((QQrUUA QQsVVQ QQuXXq!!!QQtWWc#hh'''QQuXXs3xx(((QQuXXs3xx(((QQrx~~&&C111QQrx''((#c((333 HSMMQQqTT3s88$$$ HcUOOQQqTT3s88$$$ P
AbEEE
N N NOO O s88$$]33
O
AbEEE
M M MNN N s88$$%899
s0 H1 1
I(;#I##I(, J
K#KK)r< rh U1c t | j | j dz }t |t j g d| t j t
t t d d t |t j g d| t j t
t t d d d S )N _array_inputr br< r r i1rk b c) r r r! r r" r# r$ r% r& rl s r+ rC z TestCharacter.test_array_input s DK !> ? ?11RXoooU C C CDD 8DS% $9$9FFF H H H11RX&8&8&8 F F FGG 8DS% $9$9FFF H H H H Hr- c 8 t | j | j dz }t |g d t j t
t t d d t |g d t j t
t t d d |g d t |j
d # t $ r.}t |
d s Y d }~d S d }~ww xY w)
Nr{ r| r r~ r r r r} r< d" should have failed on wrong input)th dimension must be fixed to 3 but got 4)r r r! r r" r# r$ r% r& rq rV
ValueErrorrs rt )r( r* rw s r+ test_array_input_variaz$TestCharacter.test_array_input_varia( sR DK !> ? ?11___-- 8DS% $9$9FFF H H H11 / / /00 8DS% $9$9FFF H H H C
A""" # # # :AAAC C
C s88$$?A A
s =
C! !
D+#DDc t | j | j dz }t j g dg dg|d }| |dk r t j n t j }t || | d S )N_2d_array_inputr| r er* rK rS ry ) r r r! r" r# viewuint32uint8r )r( r r* r rB s r+ rU z!TestCharacter.test_2d_array_input9 s DK 0A!A B B Hooo%oo'.33
@
@
@66u}}"))"(CC11Q44*****r- c t | j | j dz }t |t d d t |d d d S )N_outputrk r rn )r r r! r r& r( r* s r+ r1 zTestCharacter.test_outputB sV DK !9 : :QQs4yy\\4(((QQqTT5!!!!!r- c
t | j | j dz }t |t t t d t j t d d d S )N
_array_outputr rh r ) r r r! r r$ r% r& r" r# r s r+ rG z TestCharacter.test_array_outputH sj DK !? @ @11T#c5// 2 233 8DKKt<<< > > > > >r- c t | j | j dz }t |d d t |d d t |d d d S )N
_input_outputrk r r rn r r r! r r s r+ test_input_outputz TestCharacter.test_input_outputN sh DK !? @ @QQtWWd###QQsVVT"""QQrUUE"""""r- c 8 t | j | j dz }t j t d | } ||d t
|t j t d |j ||dd d t
|t j t d |j t j dg| } ||d t
|t j dg|j d S ) N_inoutr r r3 Abc BABc)r r r! r" r# r$ r r )r( r r* r s r+
test_inoutzTestCharacter.test_inoutU s DK !8 9 9 HT%[[ . . . !S 1bhtE{{!' B B BCCC !ABB%
1bhtE{{!' B B BCCC HeWE * * * !S 1bhwag > > >?????r- c * t | j | j dz }t j dd } ||d t |t j d|j t j dgd } ||d t |t j dg|j |dd t |j d # t $ r.}t | d s Y d }~d S d }~ww xY w) Nr r S3r r3 r z should have failed on str valuez
got 3-str) r r r! r" r# r r rq rV r rs rt rv s r+ test_inout_variaz TestCharacter.test_inout_variac s4 DK !8 9 9 HU$ ' ' ' !S 1bhuAG < < <=== HeWD ) ) ) !S 1bhwag > > >??? O
AeSMMM
M M MNN N s88$$\22
s 7 C
D$#D
Dc t | j | j dz }t j g d|d }t j g d|d } ||| t || t j g d| } ||dd | t |t j g d | t j g dg|d } ||| t |t j g dg| t j g d|d } ||| t
|j d
# t $ r.}t |
d s Y d }~d S d }~ww xY w) N _array_inoutr3 r CrK rS r| r r r )r r3 r r r r ) r r r! r" r# r rq rV r rs rt )r( r r* nr rw s r+ test_array_inoutz TestCharacter.test_array_inoutu s DK !> ? ? H___E = = = H___E = = = !Q1a H))) 7 7 7 !ABB% 1bh';';';5 I I IJJJ Hooo&e3 ? ? ? !Q1bh'8 F F FGGG H)))c B B B C
AaGGG :AAAC C
C s88$$?A A
s % E
F #E;;F c t | j | j dz }t j g dg dg|d }t j g dg dg|d } ||| t || d S )N_2d_array_inoutr )DErK rK rS r| r r@ )r( r r* r r s r+ test_2d_array_inoutz!TestCharacter.test_2d_array_inout s DK 0A!A B B Hooo%oo'
-
-
-
Hooo%oo'
-
-
-
!Q1a r- c r t | j | j dz }t |d d d S )N_returnr rk r r s r+ test_returnzTestCharacter.test_return s8 DK !9 : :QQsVVT"""""r- z*fortran function returning array segfaultsc t | j | j dz }t j t d d }t
|| | d S )N
_array_returnr rh r )r r r! r" r# r$ r )r( r* r s r+ test_array_returnz TestCharacter.test_array_return sR DK !? @ @ HT%[[ - - -11Q44#####r- c t | j | j dz }t | d t |d d d S )N _optionalrk Br r s r+
test_optionalzTestCharacter.test_optional sN DK !; < <QQSS$ QQtWWd#####r- N) rV rW rX rY r! r^ r_ r` r[ ra rb rc r, rx rC r rU r1 rG r r r r r r skipr r r9 r- r+ re re s&
F G 8? e e e e e e e e e e
e e e e e e e e e e e e e e e e ( )e e e e , -e e e e 6 7e e e e : ;e e e e B Ce e e e F Ge e e e V We e e e Z [e e e e n oe e e e r se e e e @ Ae e e e D Ee e e e R Se e e e V We e e e j ke e e e n oe e e e z {e e e e ~ e e e e H Ie e e e e e e e DN [ WsDk22B B 32B!O !O !OF [ W&7&7&788H H 98HC C C" [ W&7&7&788+ + 98+" " " > > > # # # [ WsDk22 @ @ 32 @O O O$ [ WsDk22C C 32C6 [ WsDk22 ! ! 32 !# # #
[BCC$ $ DC$ $ $ $ $ $r- re c e Zd ZdZdZ ej de de de de de de d e d
e d e d e d
e de d Zd Zd Z d Z
d Z e j
dddg d ZdS )TestMiscCharacterr test_misc_characterrg a( _gh18684(x, y, m)
character(len=5), dimension(m), intent(in) :: x
character*5, dimension(m), intent(out) :: y
integer i, m
!f2py integer, intent(hide), depend(x) :: m = f2py_len(x)
do i=1,m
y(i) = x(i)
end do
end subroutine z _gh18684
subroutine z_gh6308(x, i)
integer i
!f2py check(i>=0 && i<12) i
character*5 name, x
common name(12)
name(i + 1) = x
end subroutine z_gh6308
subroutine z_gh4519(x)
character(len=*), intent(in) :: x(:)
!f2py intent(out) x
integer :: i
! Uncomment for debug printing:
!do i=1, size(x)
! print*, "x(",i,")=", x(i)
!end do
end subroutine z _gh4519
pure function aq _gh3425(x) result (y)
character(len=*), intent(in) :: x
character(len=len(x)) :: y
integer :: i
do i = 1, len(x)
j = iachar(x(i:i))
if (j>=iachar("a") .and. j<=iachar("z") ) then
y(i:i) = achar(j-32)
else
y(i:i) = x(i:i)
endif
end do
end function z_gh3425
subroutine aO _character_bc_new(x, y, z)
character, intent(in) :: x
character, intent(out) :: y
!f2py character, depend(x) :: y = x
!f2py character, dimension((x=='a'?1:2)), depend(x), intent(out) :: z
character, dimension(*) :: z
!f2py character, optional, check(x == 'a' || x == 'b') :: x = 'a'
!f2py callstatement (*f2py_func)(&x, &y, z)
!f2py callprotoargument character*, character*, character*
if (y.eq.x) then
y = x
else
y = 'e'
endif
z(1) = 'c'
end subroutine z%_character_bc_new
subroutine aG _character_bc_old(x, y, z)
character, intent(in) :: x
character, intent(out) :: y
!f2py character, depend(x) :: y = x[0]
!f2py character, dimension((*x=='a'?1:2)), depend(x), intent(out) :: z
character, dimension(*) :: z
!f2py character, optional, check(*x == 'a' || x[0] == 'b') :: x = 'a'
!f2py callstatement (*f2py_func)(x, y, z)
!f2py callprotoargument char*, char*, char*
if (y.eq.x) then
y = x
else
y = 'e'
endif
z(1) = 'c'
end subroutine z_character_bc_old
c t | j | j dz }t j ddgd } || }t || d S )N_gh18684abcdefghijS5r r@ )r( r* xys r+ test_gh18684z TestMiscCharacter.test_gh18684 sV DK
!: ; ; Hgw't 4 4 4
AaDD1a r- c t | j | j dz }t | j j j j t j d t t | j j j d |dd t | j j j d d |dd t | j j j d d d S )
N_gh6308r r r s abcde12345 s 12345) r r r! r _BLNK_namer r" lenr s r+ test_gh6308z TestMiscCharacter.test_gh6308 s DK !9 : :T[',2BHTNNCCCS+0112666 '1
T[',Q/::: '1
T[',Q/:::::r- c r t | j | j dz }dt dt j d fdt dt j d ft j g dd t d
t j d fg d t d
t j d fd
d
gt dt j d ffD ]H\ }} || }| D ]#\ }}t t || | $Id S )N_gh4519r r9 rh )shaper textS4)r 2r
r ) )r r 34S2r ) ) r r r! r\ r" r r# itemsr )r( r* r rB rkvs r+ test_gh4519z TestMiscCharacter.test_gh4519 s< DK !9 : : d28D>>:::;Bbhtnn===>///666D7779!!!D7779b4d"(4..AAAB D
/
/KAx !A ((
/
/1 WQ]]A....
/
/
/r- c t | j | j dz }t |d d t |d d t |d d d S )N_gh3425abCs ABCr r- abC12ds ABC12Dr r s r+ test_gh3425z TestMiscCharacter.test_gh3425& sj DK !9 : : QQuXXv&&&QQrUUC QQx[[),,,,,r- statenewoldc b t | j | j dz |z \ }}t |d t t | d d \ }}t |d t t | d t t fd d S )N_character_bc_rk r r r c d S )Nr r9 )r* s r+ z5TestMiscCharacter.test_character_bc..; s 4 r- )r r r! r r r Exception)r( r r< r r* s @r+ test_character_bcz#TestMiscCharacter.test_character_bc/ s DK 0@!@5!H I Iqss1Q SVVQ qww1Q SVVQ i 11111r- N)rV rW rX rY r! r^ r_ r[ r r r r ra rb rc r r9 r- r+ r r s
F#G 8? L L L L L L L " #L L & 'L L 6 7L L : ;L L R SL L V WL L t uL L x yL L V WL L L L L D\! ! ! ; ; ;/ / / - - - [ Wuen55 2 2 65 2 2 2r- r c e Zd Z ej dddd gZej j d Z ej j d Z
dS )TestStringScalarArrtestssrcstringzscalar_string.f90c | j j j | j j j fD ] }d}|j |k sJ d}|j |k sJ !d S )Nr9 z|S8)r string_testr string77r r r( outrB s r+ test_charz TestStringScalarArr.test_charA sf K+2K+46 ) )CH9(((( H9((((( ) )r- c | j j j | j j j fD ] }d}|j |k sJ d}|j |k sJ !d S )N)r z|S12)r r strarrstrarr77r r r s r+
test_char_arrz!TestStringScalarArr.test_char_arrJ sf K+2K+46 ) )C H9(((( H9((((( ) )r- N) rV rW rX r getpathsourcesra rb slowr r r9 r- r+ r r > so t|GUH6IJJKG [) ) ) [) ) ) ) )r- r )ra r^
numpy.testingr r r numpyr" numpy.f2py.testsr F2PyTestr re r r r9 r- r+ r s(
I I I I I I I I I I ! ! ! ! ! !{+ {+ {+ {+ {+$- {+ {+ {+|g$ g$ g$ g$ g$DM g$ g$ g$T K2 K2 K2 K2 K2
K2 K2 K2\) ) ) ) )$- ) ) ) ) )r-