2? > d dl Z d dlZd dlZd dlZd dlZd dlZd dlmZm Z ddl
m Z d dl m
Z
d dlZ G d de j Z G d d Z G d
d Z G d d
e j Z G d de j Z G d d Z G d de j Z G d d Z G d de j Z G d de j Z G d de j Z G d d Z G d d e j Z G d d!e j Z dS )" N)markinnerspacesnameargspattern )util) crackfortranc < e Zd Z ej dddd gZd ZdS ) TestNoSpacetestssrcr z gh15035.fc t j g dt j }t j g dt j }| j | t j ||dz sJ | j ||g t j ||dz sJ | j d dk sJ d S )N)r )dtyper 23 2)nparrayfloat64modulesubballclosesubct0)selfkws v/builddir/build/BUILD/cloudlinux-venv-1.0.10/venv/lib64/python3.11/site-packages/numpy/f2py/tests/test_crackfortran.py test_modulezTestNoSpace.test_module s HYYYbj 1 1 1 HYYYbj 1 1 1 {1a!e$$$$$ !Q {1a!e$$$$${~~d##t++++++ N)__name__
__module__ __qualname__r getpathsourcesr r r r r
s? t|GUNKHHIG, , , , ,r r c & e Zd Zd Zd Zd Zd ZdS )TestPublicPrivatec t j dddd }t j t | g }t | dk sJ |d }d|d d d
v sJ d |d d d
vsJ d|d d d
v sJ d |d d d
vsJ d|d d
d
vsJ d |d d
d
v sJ d S )Nr
r r zprivatemod.f90r r privatevarsaattrspecpublicbsetar r# r strlen)r fpathmods r test_defaultPrivatez%TestPublicPrivate.test_defaultPrivate s We^=MNN'U 553xx1}}}}!fCK ,Z 88888s6{3 /
;;;;;CK ,Z 88888s6{3 /
;;;;;F F 3J ?????3v;v.z:::::::r c r t j dddd }t j t | g }t | dk sJ |d }d|d d d
v sJ d |d d d
vsJ d|d d d
vsJ d |d d d
v sJ d S )
Nr
r r z
publicmod.f90r r r) r* r+ r, r- r/ r0 r tmp_pathr3 r4 s r test_defaultPublicz$TestPublicPrivate.test_defaultPublic) s We^_MM'U 553xx1}}}}!fCK ,Z 88888s6{3 /
;;;;;F F 3J ?????3v;v.z:::::::r c t j dddd }t j t | g }t | dk sJ |d d }t |d d d
d hk sJ t |d d d
d hk sJ t |d d d
hk sJ d S )Nr
r r zaccesstype.f90r r r* r+ r, r) zbind(c)b_r- c)r r# r r1 r2 set)r r8 r3 r4 tts r test_access_typez"TestPublicPrivate.test_access_type3 s We^=MNN'U 553xx1}}}}
VF^2c7:&''Iy+AAAAA2d8J'((Xy,AAAAA2c7:&''H:555555r c t j dddd }t j t | g }t | dk sJ t j | }d|vsJ d S )Nr
r r z gh23879.f90r bar)r r# r r1 r2
crack2fortran)r r8 r3 r4 pyfs r test_nowrap_private_proceeduresz1TestPublicPrivate.test_nowrap_private_proceedures< si We^]KK'U 553xx1}}}}(--C r N)r r! r" r5 r9 r? rD r% r r r' r' sP
;
;
;; ; ;6 6 6 r r' c e Zd Zd Zd ZdS )TestModuleProcedurec t j dddd }t j t | g }t | dk sJ |d }d|v rt |d dk sJ |d d d d
k sJ d |d d v sJ |d d d d d
gk sJ |d d d dk sJ d |d d v sJ |d d d dgk sJ |d d d dk sJ d |d d v sJ |d d d ddgk sJ d S )Nr
r r z
operators.f90r r body namezoperator(.item.)
implementedbyitem_int item_realr
z operator(==)items_are_equalr z
assignment(=)get_intget_realr0 r7 s r test_moduleOperatorsz(TestModuleProcedure.test_moduleOperatorsD s We^_MM'U 553xx1}}}}!f}}S[!1!1Q!6!6!666{1~f%);;;;; #f+a.00006{1~o.
%& & & &6{1~f% 7777 #f+a.00006{1~o.3D2EEEEE6{1~f% 8888 #f+a.00006{1~o.
#$ $ $ $ $ $r c T t j dddd }t j t | g }t | dk sJ |d }|d d d d
gk sJ |d d d d gk sJ |d d
d d gk sJ d S )Nr
r r zpubprivmod.f90r r r* r+ r, r) r. r- r/ r0 r7 s r test_notPublicPrivatez)TestModuleProcedure.test_notPublicPrivateV s We^=MNN'U 553xx1}}}}!f6{3
+ }<<<<6{3
+|;;;;6{6":.8,>>>>>>r N)r r! r" rQ rS r% r r rF rF C s2 $ $ $$? ? ? ? ?r rF c B e Zd Z ej dddd gZd Zd ZdS ) TestExternalr
r r z gh17859.fc P d }| j | }|dk sJ d S )Nc | dz S N{ r% xs r incrz5TestExternal.test_external_as_statement..incre s7Nr rY )r external_as_statementr r\ rs r test_external_as_statementz'TestExternal.test_external_as_statementd 9
K - -d 3 3Cxxxxxxr c P d }| j | }|dk sJ d S )Nc | dz S rX r% rZ s r r\ z5TestExternal.test_external_as_attribute..incrl r] r rY )r external_as_attributer_ s r test_external_as_attributez'TestExternal.test_external_as_attributek rb r N)r r! r" r r# r$ ra rf r% r r rU rU ` sL t|GUNKHHIG r rU c < e Zd Z ej dddd gZd ZdS )TestCrackFortranr
r r z
gh2848.f90c L | j dd }|dk sJ d S )Nr r
)r r
)r gh2848)r r` s r test_gh2848z TestCrackFortran.test_gh2848w s* K q! $ $F{{{{{{r N)r r! r" r r# r$ rk r% r r rh rh s s= t|GUNLIIJG r rh c & e Zd Zd Zd Zd Zd ZdS )TestMarkinnerspacesc B g d}|D ]}t | |k sJ d S )N)za z aza b cz 'abcdefghij'r )r test_listis r test_do_not_touch_normal_spacesz3TestMarkinnerspaces.test_do_not_touch_normal_spaces sB 999 + +A"1%%***** + +r c Z t d dk sJ t d dk sJ d S )Nz
a 'b c' \' \'za 'b@_@c' \' \'z
a "b c" \" \"za "b@_@c" \" \"ro r s r test_one_relevant_spacez+TestMarkinnerspaces.test_one_relevant_space s> 0115HHHHH /004FFFFFFFr c Z t d dk sJ t d dk sJ d S )Nza 'b c" " d' eza 'b@_@c"@_@"@_@d' eza "b c' ' d" eza "b@_@c'@_@'@_@d" ero rt s r test_ignore_inner_quotesz,TestMarkinnerspaces.test_ignore_inner_quotes s> 1226NNNNN 1226NNNNNNNr c Z t d dk sJ t d dk sJ d S )Nz
a 'b c' 'd e'za 'b@_@c' 'd@_@e'z
a "b c" "d e"za "b@_@c" "d@_@e"ro rt s r test_multiple_relevant_spacesz1TestMarkinnerspaces.test_multiple_relevant_spaces s= //3FFFFF /004HHHHHHHr N)r r! r" rr ru rw ry r% r r rm rm | s[ + + +
G G GO O OI I I I Ir rm c e Zd ZdZdZ ej d Zg dZdgZ ee z Z
dZ e e
D ]R\ Z
Zd e d D Ze e e
ed e
z
Z Sej d e
d Zej d e
d
ZdS ) TestDimSpeca This test suite tests various expressions that are used as dimension
specifications.
There exists two usage cases where analyzing dimensions
specifications are important.
In the first case, the size of output arrays must be defined based
on the inputs to a Fortran function. Because Fortran supports
arbitrary bases for indexing, for instance, `arr(lower:upper)`,
f2py has to evaluate an expression `upper - lower + 1` where
`lower` and `upper` are arbitrary expressions of input parameters.
The evaluation is performed in C, so f2py has to translate Fortran
expressions to valid C expressions (an alternative approach is
that a developer specifies the corresponding C expressions in a
.pyf file).
In the second case, when user provides an input array with a given
size but some hidden parameters used in dimensions specifications
need to be determined based on the input array size. This is a
harder problem because f2py has to solve the inverse problem: find
a parameter `p` such that `upper(p) - lower(p) + 1` equals to the
size of input array. In the case when this equation cannot be
solved (e.g. because the input array size is wrong), raise an
error before calling the Fortran function (that otherwise would
likely crash Python process when the size of input arrays is
wrong). f2py currently supports this case only when the equation
is linear with respect to unknown parameter.
z.f90a
function get_arr_size_{count}(a, n) result (length)
integer, intent(in) :: n
integer, dimension({dimspec}), intent(out) :: a
integer length
length = size(a)
end function
subroutine get_inv_arr_size_{count}(a, n)
integer :: n
! the value of n is computed in f2py wrapper
!f2py intent(out) n
integer, dimension({dimspec}), intent(in) :: a
end subroutine
)nz2*nz2:nzn/2z5 - n/2z3*n:20zn*(n+1):n*(n+5)z2*n, nz
2*n:3*n*n+2*n c P g | ]#}d |v r| d d nd$S ):r 1)split).0ds r
zTestDimSpec. s2 RRR!3!88 QRRRr ,z, )countdimspecfirstr c | j | }t | j d| }dD ] } || \ }}|j |k sJ d S )N
get_arr_size_r r
r ) all_dimspecsindexgetattrr size)r r r get_arr_sizer| szr+ s r test_array_sizezTestDimSpec.test_array_size so !''00 t{,CE,C,CDD A LOOEB6R<<<<< r c F | j | }t | j d| }t | j d| }dD ]S} || \ }}|| j v r
||| }n || } || \ } }
|| k sJ |||| f Td S )Nr get_inv_arr_size_r )r r r r nonlinear_dimspecs) r r r r get_inv_arr_sizer| r r+ n1sz1_s r test_inv_array_sizez TestDimSpec.test_inv_array_size s !''00 t{,CE,C,CDD "4;0KE0K0KLL / /A LOOEB$111 &%a++ &%a(( "\"%%FC999q"b# .9999 / /r N)r r! r" __doc__suffixtextwrapdedent
code_templatelinear_dimspecsr r code enumerater r r lstformatjoinpytestmark parametrizer r r% r r r{ r{ s7 < F#HO % M O **"%77L
D#)L11
wRRw}}S?Q?QRRR
$$))C.. %
[ Y 55 65 [ Y 55/ / 65/ / /r r{ c e Zd Zd ZdS )TestModuleDeclarationc t j dddd }t j t | g }t | dk sJ |d d d d d
k sJ d S ) Nr
r r z foo_deps.f90r r r* abar=z bar('abar')r0 r7 s r test_dependenciesz'TestModuleDeclaration.test_dependencies sk We^^LL'U 553xx1}}}}1vf~f%c*m;;;;;;r N)r r! r" r r% r r r r s# < < < < r s
D D D D D D D D # # # # # # , , , , ,$- , , , % % % % % % % % N? ? ? ? ? ? ? ?: 4= & t} I I I I I I I I*`/ `/ `/ `/ `/$- `/ `/ `/F< < < < < < < <3 3 3 3 3t} 3 3 3 ' ' ' ' '
' ' ' "E "E "E "E "E "E "E "EJ2 2 2 2 2 2 2 2S S S S St} S S S S Sr