(ph4fSSKrSSKrSSKrSSKrSSKrSSKrSSKJrJ r SSK J r SSK J r SSKrSSKrSSKr"SS\ R"5r"SS 5r"S S 5r"S S \ R"5r"SS\ R"5r"SS5r"SS\ R"5r"SS5r"SS\ R"5r"SS\ R"5r"SS\ R"5r"SS5r"SS\ R"5r"S S!\ R"5r"S"S#5r g)$N)markinnerspacesnameargspattern)util) crackfortrancF\rSrSr\R "SSSS5/rSrSrg) TestNoSpacetestssrcrz gh15035.fc[R"/SQ[RS9n[R"/SQ[RS9nURR U5 [R "XS-5(deURR X!/5 [R "XS-5(deURRS5S:Xdeg)N)r)dtyper232)nparrayfloat64modulesubballclosesubct0)selfkws U/var/www/html/venv/lib/python3.13/site-packages/numpy/f2py/tests/test_crackfortran.py test_moduleTestNoSpace.test_modules HHYbjj 1 HHYbjj 1 {{1!e$$$$ ! {{1!e$$$${{~~d#t+++N) __name__ __module__ __qualname____firstlineno__rgetpathsourcesr__static_attributes__r"r!rr r s ||GUNKHIG,r!r c,\rSrSrSrSrSrSrSrg)TestPublicPrivatecn[R"SSSS5n[R"[U5/5n[ U5S:XdeUSnSUSS S ;deS USS S ;deSUSS S ;deS USS S ;deSUSS S ;deS USS S ;deg)Nr r rzprivatemod.f90rrprivatevarsaattrspecpublicbsetarr'rstrlen)rfpathmods rtest_defaultPrivate%TestPublicPrivate.test_defaultPrivates We^=MN''U 53x1}}!fCK,Z8888s6{3/ ;;;;CK,Z8888s6{3/ ;;;;F F 3J ????3v;v.z::::r!c*[R"SSSS5n[R"[U5/5n[ U5S:XdeUSnSUSS S ;deS USS S ;deSUSS S ;deS USS S ;deg) Nr r rz publicmod.f90rrr.r/r0r1r2r4r5rtmp_pathr8r9s rtest_defaultPublic$TestPublicPrivate.test_defaultPublic+s We^_M''U 53x1}}!fCK,Z8888s6{3/ ;;;;F F 3J ????3v;v.z::::r!c<[R"SSSS5n[R"[U5/5n[ U5S:XdeUSSn[ USS 5S S 1:Xde[ US S 5S S 1:Xde[ USS 5S 1:Xdeg)Nr r rzaccesstype.f90rrr/r0r1r.zbind(c)b_r2c)rr'rr6r7set)rr>r8r9tts rtest_access_type"TestPublicPrivate.test_access_type5s We^=MN''U 53x1}} VF^2c7:&'Iy+AAAA2d8J'(Xy,AAAA2c7:&'H:555r!c[R"SSSS5n[R"[U5/5n[ U5S:Xde[R "U5nSU;deg)Nr r rz gh23879.f90rbar)rr'rr6r7 crack2fortran)rr>r8r9pyfs rtest_nowrap_private_proceedures1TestPublicPrivate.test_nowrap_private_proceedures>sZ We^]K''U 53x1}}((-Cr!r"N) r#r$r%r&r:r?rFrLr)r"r!rr+r+s ;;6 r!r+c \rSrSrSrSrSrg)TestModuleProcedureEc[R"SSSS5n[R"[U5/5n[ U5S:XdeUSnSU;a[ US5S:XdeUSSS S :XdeS USS;deUSSS S S /:XdeUSSS S:XdeS USS;deUSSS S/:XdeUSSS S:XdeS USS;deUSSS SS/:Xdeg)Nr r rz operators.f90rrbody namezoperator(.item.) implementedbyitem_int item_realrz operator(==)items_are_equalrz assignment(=)get_intget_realr5r=s rtest_moduleOperators(TestModuleProcedure.test_moduleOperatorsFsc We^_M''U 53x1}}!f}S[!1Q!6666{1~f%);;;;#f+a.0006{1~o.  %& &&6{1~f%777#f+a.0006{1~o.3D2EEEE6{1~f%888#f+a.0006{1~o.  #$ $$r!c[R"SSSS5n[R"[U5/5n[ U5S:XdeUSnUSSS S /:XdeUSS S S /:XdeUSS S S /:Xdeg)Nr r rzpubprivmod.f90rrr/r0r1r.r3r2r4r5r=s rtest_notPublicPrivate)TestModuleProcedure.test_notPublicPrivateXs We^=MN''U 53x1}}!f6{3 + }<<<6{3 +|;;;6{6":.8,>>>r!r"N)r#r$r%r&r[r^r)r"r!rrOrOEs $$?r!rOcL\rSrSr\R "SSSS5/rSrSrSr g ) TestExternalbr r rz gh17859.fcPSnURRU5nUS:Xdeg)Nc US-$N{r"xs rincr5TestExternal.test_external_as_statement..incrg s7Nr!rf)rexternal_as_statementrrirs rtest_external_as_statement'TestExternal.test_external_as_statementf(  KK - -d 3Cxxr!cPSnURRU5nUS:Xdeg)Nc US-$rer"rgs rri5TestExternal.test_external_as_attribute..incrnrkr!rf)rexternal_as_attributerms rtest_external_as_attribute'TestExternal.test_external_as_attributemrqr!r"N) r#r$r%r&rr'r(rorvr)r"r!rrarabs#||GUNKHIGr!racF\rSrSr\R "SSSS5/rSrSrg) TestCrackFortranur r rz gh2848.f90cLURRSS5nUS:Xdeg)Nrr)rr)rgh2848)rrns r test_gh2848TestCrackFortran.test_gh2848ys$ KK  q! $F{{r!r"N) r#r$r%r&rr'r(r}r)r"r!rryryus||GUNLIJGr!ryc,\rSrSrSrSrSrSrSrg)TestMarkinnerspaces~c@/SQnUHn[U5U:XaMe g)N)za z aza b cz 'abcdefghij'r)r test_listis rtest_do_not_touch_normal_spaces3TestMarkinnerspaces.test_do_not_touch_normal_spacess$9 A"1%* **r!cH[S5S:Xde[S5S:Xdeg)Nz a 'b c' \' \'za 'b@_@c' \' \'z a "b c" \" \"za "b@_@c" \" \"rrs rtest_one_relevant_space+TestMarkinnerspaces.test_one_relevant_spaces,015HHHH/04FFFFr!cH[S5S:Xde[S5S:Xdeg)Nza 'b c" " d' eza 'b@_@c"@_@"@_@d' eza "b c' ' d" eza "b@_@c'@_@'@_@d" errs rtest_ignore_inner_quotes,TestMarkinnerspaces.test_ignore_inner_quotess,126NNNN126NNNNr!cH[S5S:Xde[S5S:Xdeg)Nz a 'b c' 'd e'za 'b@_@c' 'd@_@e'z a "b c" "d e"za "b@_@c" "d@_@e"rrs rtest_multiple_relevant_spaces1TestMarkinnerspaces.test_multiple_relevant_spacess+/3FFFF/04HHHHr!r"N) r#r$r%r&rrrrr)r"r!rrr~s+ GOIr!rc \rSrSrSrSr\R"S5r/SQr S/r \ \ -r Sr \ "\ 5Hgurr\R!S5VVs/sHnS U;aUR!S 5S OS PM! snnr\ \R%\\S R'\5S 9- r Mi \R*R-S\ 5S5r\R*R-S\ 5S5rSrgs snnf) TestDimSpecanThis 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,:r1z, )countdimspecfirstrcURRU5n[URSU35nSHnU"U5upVURU:XaMe g)N get_arr_size_rrr) all_dimspecsindexgetattrrsize)rrr get_arr_sizerszr0s rtest_array_sizeTestDimSpec.test_array_sizesV!!''0t{{mE7,CD  A OEB66R< <!r!c4URRU5n[URSU35n[URSU35nSHEnU"U5upgXR;a U"Xu5nOU"U5nU"U5upXi:XaM>XXXi45e g)Nrget_inv_arr_size_r)rrrrnonlinear_dimspecs) rrrrget_inv_arr_sizerrr0n1sz1_s rtest_inv_array_sizeTestDimSpec.test_inv_array_sizes!!''0t{{mE7,CD "4;;2CE70KL A OEB111&a+&a(""%FC9 .qb. .9!r!r"N)r#r$r%r&__doc__suffixtextwrapdedent code_templatelinear_dimspecsrrcode enumeraterrsplitlstformatjoinpytestmark parametrizerrr)).0ds00rrrs <FOO% M O**"%77L D#L1w?F}}S?QR?Q!3!8 Q4?QR $$))C.%  2 [[Y 5 6  [[Y 5/6/%Ss &C%rc\rSrSrSrSrg)TestModuleDeclarationc[R"SSSS5n[R"[U5/5n[ U5S:XdeUSSSS S :Xdeg) Nr r rz foo_deps.f90rrr/abar=z bar('abar')r5r=s rtest_dependencies'TestModuleDeclaration.test_dependenciess\ We^^L''U 53x1}}1vf~f%c*m;;;r!r"N)r#r$r%r&rr)r"r!rrrsrf_pathffr9s rtest_input_encoding%TestFortranReader.test_input_encoding svk(=AA [[x[ 0B HH 1 ''V 61vf~&&& 1 0s A## A1r"N) r#r$r%r&rrrrr)r"r!rrrs* [[ZCE 'E 'r!rc\rSrSr\R "SSSS5/r\RR\ RRS5SLSS 9S 5r S r g) TestUnicodeCommentir r rzunicode_comment.f90charset_normalizerNz7test requires charset_normalizer which is not installed)reasonc:URRS5 g)Nr)rrrs rtest_encoding_comment(TestUnicodeComment.test_encoding_comments r!r")r#r$r%r&rr'r(rrskipif importlib find_specrr)r"r!rrrs[||GUNr8 stdout_f2pyr9s r test_gh22648%TestF77CommonBlockReader.test_gh22648Zsg We^]K  ' ' 6+++SZL9C7!5!5!77777 6s !B Br"N)r#r$r%r&rr)r"r!rrrYs8r!r)!rcodecsr unicodedatarnumpyrnumpy.f2py.crackfortranrrrr numpy.f2pyrrrrF2PyTestr r+rOraryrrrrrrrrr rr"r!rr%s  D#  ,$-- ,% % N??:4==&t}}II*`/$--`/F<<3t}}3 ' '"E"EJ22St}}S88r!