+ ei@cs^RIt^RIt^RIt^RIt^RIt^RIt^RIt^RIH t ^RI H t H t ^RI Ht!RR]P4t!RR4t!R R 4t!R R ]P4t!R R]P4t!RR4t!RR]P4t!RR4t!RR]P4t!RR]P4t]P4P6!RR]P44t!RR4t!RR]P4t!RR ]P4t!R!R"4t !R#R$4t!]P4P6!R%R&]P44t"R#)'iN) crackfortran)markinnerspacesnameargspattern)utilcsRa]tRt^to]P !RRRR4.tRtRtVt R#) TestNoSpacetestssrcrz gh15035.fcs\P!.RO\PR7p\P!.RO\PR7pVPP V4VPP W!.4R#))ZdtypeN)r)npZarrayZfloat64moduleZsubbZsubc)selfZkw& I/usr/lib64/python3.14/site-packages/numpy/f2py/tests/test_crackfortran.py test_moduleZTestNoSpace.test_modulesP HHYbjj 1 HHYbjj 1  ! N) __name__ __module__ __qualname____firstlineno__rgetpathsourcesr__static_attributes____classdictcell__ __classdict__@rrrs(||GUNKHIG,,rrcs8a]tRt^toRtRtRtRtRtVt R#)TestPublicPrivatecs\P!RRRR4p\P!\V4.4pV^,pR#)rrrzprivatemod.f90Nrrrstr)r fpathmodrrtest_defaultPrivateZ%TestPublicPrivate.test_defaultPrivate 6 We^=MN''U 5!frc\P!RRRR4p\P!\V4.4pV^,pR#)rrrz publicmod.f90Nrr tmp_pathr!r"&& rtest_defaultPublicZ$TestPublicPrivate.test_defaultPublic,5 We^_M''U 5!frcs\P!RRRR4p\P!\V4.4pV^,R,pR#)rrrzaccesstype.f90ZvarsNr)r r'r!r"Ztt&& rtest_access_typeZ"TestPublicPrivate.test_access_type6s: We^=MN''U 5 VF^rcs\P!RRRR4p\P!\V4.4p\P!V4pR#)rrrz gh23879.f90N)rrrr Z crack2fortran)r r'r!r"Zpyfr+rtest_nowrap_private_proceeduresZ1TestPublicPrivate.test_nowrap_private_proceedures?s< We^]K''U 5((-rrN) rrrrr#r)r,r-rrrrrrrs ;;6  rrcs,a]tRt^FtoRtRtRtVtR#)TestModuleProcedurecr%)rrrz operators.f90Nrr&r(rtest_moduleOperatorsZ(TestModuleProcedure.test_moduleOperatorsGr*rcr%)rrrzpubprivmod.f90Nrr&r(rtest_notPublicPrivateZ)TestModuleProcedure.test_notPublicPrivateYr$rrN)rrrrr/r0rrrrrr.r.Fs$$??rr.csXa]tRt^cto]P !RRRR4.tRtRtRt Vt R#) TestExternalrrrz gh17859.fcBRpVPPV4pR#)cV^{,#i{rZx&rincrZ5TestExternal.test_external_as_statement..incrh s7NrN)r Zexternal_as_statementr r7rrrtest_external_as_statementZ'TestExternal.test_external_as_statementg  KK - -d 3rcr2)cr3r4rr5r6rr7Z5TestExternal.test_external_as_attribute..incror8rN)r Zexternal_as_attributer9rrtest_external_as_attributeZ'TestExternal.test_external_as_attributenr<rrN) rrrrrrrr;r=rrrrrr1r1cs+||GUNKHIGrr1csa]tRt^vto]P !RRRR4]P !RRRR4.tRtRtRt Vt R #) TestCrackFortranrrrz gh2848.f90zcommon_with_division.fcs>VPP^^4pR#)rN)r Zgh2848)r r:& r test_gh2848ZTestCrackFortran.test_gh2848|s KK  q! $rcR#Nrr r6rtest_common_with_divisionZ*TestCrackFortran.test_common_with_divisionrrN) rrrrrrrr@rDrrrrrr>r>vs@||GUNLI||GUNcs8a]tRt^toRtRtRtRtRtVt R#)TestMarkinnerspacescs .ROpVFpK R#)a N)rGz aza b cz 'abcdefghij'r)r Z test_listZirrtest_do_not_touch_normal_spacesZ3TestMarkinnerspaces.test_do_not_touch_normal_spacess9 ArcrArBrrCr6rtest_one_relevant_spaceZ+TestMarkinnerspaces.test_one_relevant_spacerErcrArBrrCr6rtest_ignore_inner_quotesZ,TestMarkinnerspaces.test_ignore_inner_quotesrErcrArBrrCr6rtest_multiple_relevant_spacesZ1TestMarkinnerspaces.test_multiple_relevant_spacesrErrN) rrrrrHrIrJrKrrrrrrFrFs"+ GOIIrrFc s,a]tRt^toRtRt]P!R4t.ROt R.t ] ] ,t Rt ] !] 4Fpwtt]P!R4Uu.uF$pRV9dVP!R4^,MRNK& upt] ]P%]]R P']4R 7, t Kr ]P*P-R ] 4]P*P.R 44t]P*P-R ] 4R 4tRtVtR#uupi) 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 if (a({first}).gt.0) then ! print*, "a=", a endif end subroutine z 2*n:3*n*n+2*nZ,Z:Z1z, )countdimspecZfirstrOcsVPPV4p\VPRV 24pRF pV!V4wrVK R#) get_arr_size_Nrrr ii) all_dimspecsindexgetattrr )r rOrN get_arr_sizenszas&& rtest_array_sizeZTestDimSpec.test_array_sizesH!!''0t{{mE7,CD  A OEB!rcsVPPV4p\VPRV 24p\VPRV 24pRF8pV!V4wrgWP9d V!Wu4pMV!V4pV!V4wrK: R#)rPZget_inv_arr_size_NrQ)rRrSrTr nonlinear_dimspecs) r rOrNrUZget_inv_arr_sizerVrWrXZn1Zsz1_s && rtest_inv_array_sizeZTestDimSpec.test_inv_array_sizes!!''0t{{mE7,CD "4;;2CE70KL A OEB111&a+&a(""%FC!rrN)rVz2*nz2:nzn/2z5 - n/2z3*n:20zn*(n+1):n*(n+5)z2*n, n)rrrrZ__doc__ZsuffixtextwrapZdedentZ code_templateZlinear_dimspecsrZrRZcodeZ enumeraterNrOZsplitZlstZformatZjoinpytestmark parametrizeslowrYr\rr)Zdrs0@rrLrLs<FOO% M&O**"%77L D#L1w?F}}S?QR?Q!3!8 Q4?QR $$))C.%  2 [[Y 5 [[ 6  [[Y 5/6/'Ss*DrLcs&a]tRt^toRtRtVtR#)TestModuleDeclarationcsx\P!RRRR4p\P!\V4.4pR#)rrrz foo_deps.f90Nrr&r(rtest_dependenciesZ'TestModuleDeclaration.test_dependenciess, We^^L''U 5rrN)rrrrrcrrrrrrbrbs<a]tRtRtoRtRtRtRtRtRt Vt R#) TestParamEvalijc sRpR\PR\PR\P/pR^R^^^^/R^^^^^^//pRp\P!WW4R7pR #) z (/3.14, 4./)kindselected_int_kindselected_real_kindZdpZ intparamarrayZnestedz(2)rONr _kind_func_selected_int_kind_func_selected_real_kind_func param_evalr vg_paramsparamsrOret& rtest_param_eval_nestedZ$TestParamEval.test_param_eval_nestedlss L33#\%I%I$l&K&KM?Q1aLQ1aA.0%%a6KrcsRpR\PR\PR\P/p/pRp\P!WW4R7pR#)z (/ 6, 3, 1 /)r{r|r}z(-1:1)r~Nrrrr!test_param_eval_nonstandard_rangeZ/TestParamEval.test_param_eval_nonstandard_rangewsN L33#\%I%I$l&K&KM%%a6Krc RpR\PR\PR\P/p/pRp\P !\ \PWVVR7R#)Z6r{r|r}rMr~Nrrrrr^raises ValueErrorrr rrrrO& rtest_param_eval_empty_rangeZ)TestParamEval.test_param_eval_empty_rangesY L33#\%I%I$l&K&KM j,"9"91% 'rcsRpR\PR\PR\P/p/p\P!WVRR7pR#)z3.14_dpr{r|r}Nr~r)r rrrrrrtest_param_eval_non_array_paramZ-TestParamEval.test_param_eval_non_array_paramsK L33#\%I%I$l&K&KM%%a64Hrc r)z*reshape((/ (i, i=1, 250) /), (/5, 10, 5/))r{r|r}z(0:4, 3:12, 5)r~Nrrrrtest_param_eval_too_many_dimsZ+TestParamEval.test_param_eval_too_many_dimssY 8L33#\%I%I$l&K&KM" j,"9"91% 'rrN) rrrrrrrrrrrrrrrzrzjs# (*' ''rrzcsXa]tRtRto]P !RRRR4.tR.tRtRt Vt R #) TestLowerF2PYDirectiveirrrz gh27697.f90z--lowercs\P!\RR7;_uu_4pVPPP R4RRR4R# +'giR#;i)zaborting directly)ZmatchN)r^rrr ZutilsZmy_abort)r rtr?rtest_no_lower_failZ)TestLowerF2PYDirective.test_no_lower_fails? ]]:-@ A AS KK   & &': ;B A A As &A A& rN) rrrrrrrZoptionsrrrrrrrrs-||GUNMJKGkG<rFrLrbrergr_rarjrmrqrsrvrzrrrrrsG  #D ,$-- ,% % N??:4==& 2t}} 2II*d/$--d/N<<3t}}3 ' '"E"EH22St}}S882'2'h