+ i^RIHt^RIHt^RIHtHtHt^RIH t ^RI H t H t H t ^RIHtHtHtHtHtHt^RIHt^RIHt^R IHtHt^R IHt^R IHtH t ^R I!H"t"H#t#^R I$H%t%^RI&H't'^RI(H)t)H*t*H+t+^RI,H-t-^RI.H/t/^RI0H1t1^RI2H3t3H4t4H5t5^RI6H7t7H8t8H9t9H:t:H;t;Ht>H?t?H@t@HAtAHBtBHCtC^RIHDtD^RIHEtE^RIFHGtGHHtHHItIHJtJHKtK^RILHMtMHNtN^RIOHPtPHQtQ^RIRHStSHTtT^RIUHVtVHWtW^RIXHYtY^RIZH[t[Rt\Rt]R t^R!t_R"t`R#taR$tbR%tcR&tdR'teR(tfR)tgR*thR+tiR,tjR-tkR.tlR/tmR0tnR1toR2tpR3tqR4trR5tsR6ttR7tuR8tvR9twR:txR;tyR<tzR=t{R>t|R?t}R@t~RAtRBtRCtRDtREtRFtRGtRHtRI#)J)Add)Expr)FunctionLambdadiff)Mod)Catalan EulerGamma GoldenRatio)EFloatIIntegerRationalpi)Eq)S)Dummysymbols) factorial) conjugatesign)explog)sqrt) Piecewise)atan2cossin)gamma)Integral)Range)For Assignment aug_assign) DeclarationVariablefloat32float64 value_constrealbool_WhileFunctionPrototypeFunctionDefinitionintegerReturnElement)UnevaluatedExpr) Relational)AndOrNot EquivalentXor)Matrix MatrixSymbol)fcode FCodePrinter) IndexedBaseIdx) ArraySymbol ArrayElement)implemented_function)raisesc\RRR7wrp\W,4p\\W,44p\ VRR7R8XgQh\R4wrVp\Wg,4p\\WX,44p \ V RR7^,P 4R 8XgQh\ V R R /R 7P 4R 8XgQhR#)zp q rT)r+free source_formatzexp(p + (q + r))x y zFhumanzexp(re(x) + re(y + z))rerealpartuser_functionsz"exp(realpart(x) + realpart(y + z))N)rr3absrr<lstrip) pqrq_rexprxyzy_zexpr2s _/var/www/html/photoedit/myenv/lib/python3.14/site-packages/sympy/printing/tests/test_fortran.pytest_UnevaluatedExprr\#sgD)GA! !% C s15z?D V ,0B BB BgGA! !% C AE OE e $Q ' . . 04L LL L j'9 : A A CGk kk kcj\R4p!RR\4p\V!V44R8XgQhR#)rVc&a]tRt^2toRtRtVtR#)test_printmethod..nintcTRVPVP^,4,#)znint(%s))_printargs)selfprinters&&r[_fcode%test_printmethod..nint._fcode3styy| << _ ,, ,r]c.a\R4o\RRR7p\RRR7p\\S4^_RR7R8XgQh\\V4^_RR7R 8XgQh\\V4^_RR7R 8XgQh\\V3R l4R #) rVrWTr0rX)complexrE)standardrGz#merge(0d0, dsign(1d0, x), x == 0d0)zmerge(0, isign(1, y), y == 0)z/merge(cmplx(0d0, 0d0), z/abs(z), abs(z) == 0d0)c,<\\S44#N)r<rrVsr[!test_fcode_sign..?s d1gr]N)rr<rrCNotImplementedError)rWrXrVs @r[test_fcode_signr|8s clA c4 A c4 A a2V <@e ee e a2V <@_ __ _ a2V <@q qq q  67r]c\R4wr\RRR7p\V^,4R8XgQh\W^,,4R8XgQh\^\V4R,WV,, ,, V^,V,, 4R8XgQh\\V44R8XgQh\\V44R 8XgQh\VR ,4R8XgQh\\V44R8XgQh\\^ 44R 8XgQh\VR,4R 8XgQh\VR,R RR7R8XgQh\V\ ^^4,4R8XgQhR#)x,ynTrsz x**3z x**(y**3)g @z, (3.5d0*sin(x))**(-x + y**x)/(x**2 + y)z sqrt(x)z sqrt(dble(n))g?z sqrt(10.0d0)z 1d0/xrWrErFzy = x**(-2.0d0)z x**(3.0d0/7.0d0)Ngg)rr<rrr)rVrWrs r[test_fcode_PowrBsI 5>DAT"A A;, && & T 0 00 0 CF3J!d(++QTAX6 76 77 7 a>_ ,, , a>2 22 2 C=O ++ + a>_ ,, , b?2 22 2 D>] ** * D#V 48I II I HQN" #'? ?? ?r]c\R4p\\^^44R8XgQh\\^^ 44R8XgQh\\^R44R8XgQh\\RR44R8XgQh\V\^^4,4R8XgQh\\^^4V,4R8XgQhR#) rVz 3.0d0/7.0d0z 2z -3.0d0/7.0d0z x + 3.0d0/7.0d0z (3.0d0/7.0d0)*xNi)rr<rrxs r[test_fcode_RationalrTs A !Q $7 77 7 "a !Y .. . !R !%9 99 9 "b! "&9 99 9 Xa^# $(? ?? ? !Q! "&= == =r]cr\\^C44R8XgQh\\R44R8XgQhR#)Cz 67z -1N)r<rrhr]r[test_fcode_Integerr^s0   ++ +   ++ +r]cr\\R44R8XgQh\\R44R8XgQhR#)gE@z 42.0000000000000d0z -1.00000000000000d+20Ng@x)r<r rhr]r[test_fcode_Floatrcs2 t !; ;; ; u "? ?? ?r]caa\R4woo\\S4\S4,4R8XgQh\ \ VV3Rl4\ \ VV3Rl4\ \ VV3Rl4\ \ VV3Rl4R F<p\\ SS4VR7R8XgQh\SS,VR7R8XdK<Qh R#) r~z sin(x)**cos(y)c2<\\SS4^BR7#Brur<rrVrWsr[ry&test_fcode_functions..kc!Qi"(Er]c,<\SS,^BR7#rr<rsr[ryrla!eb(Ar]c2<\\SS4^MR7#Mrrrsr[ryrmrr]c,<\SS,^MR7#rrrsr[ryrnrr]rz modulo(x, y)N)Z_ii)rr<rrrCr{r)rurVrWs @@r[test_fcode_functionsrhs 5>DAq Q3q6! "&< << <  EF  AB  EF  AB(SAY26JJJJQUX.2FFFF)r]c  \4p\R4wrr4rVp\\V4\ W,4,\ WW,4,4R8XgQh\\V4^V,V,V\ ^^4,,,4R8XgQh\\V4\ W,4,\ WW,4,RR7R8XgQh\V\ V4, RR7R8XgQhVPV\ V4,V,RR7R 8XgQhVPV\ V4,R R7R 8XgQhVPVR R7R 8XgQh\RRR7wr\R4p \R4p\R4p\RV 4p \RV4p \WV 3,W,,WK,RR7R8XgQhR#)zx,x_,x__,y,X,X_,Yz& exp(x_) + sin(x*y) + cos(X__*Y_)z( 2*X_**(7.0d0/2.0d0)*Y*x + exp(x__)F) name_manglingz# exp(x_) + sin(x*y) + cos(X*Y)z x - cos(X)me assign_toz me = X*sin(x_) + x__muz mu = X*sin(x_)adz ad = x__n,mTrsArVrWirrErrGzndo i = 1, m y(i) = 0 end do do i = 1, m do I_ = 1, n y(i) = A(i, I_)*x(I_) + y(i) end do end doN) r=rr<rrrrdoprintr>r?) obrVx_x__rWXX_Yrmrrrs r[ test_caserts B 34AqA R3qs8#c!#h. /@ AA A SAaCE"hq!n"444 5B CC C R3qs8#c!#h.e D= >> > SV5 15G GG G ::aAhmt: 48T TT T ::aAh$: /3I II I ::bD: )-= == = 5$ 'DACACACA C A C A a4V D-5 77 7r]c \R4p\^ 4P^4pRp\V\^ 4,4RV,8XgQh\V\^ 4,4RV,8XgQh\V\\ ^ 44,4RV,8XgQh\\\ ^ 444RV,8XgQh\\ ^ 44R\ ^ 4P^4,8XgQh\V\\^ 44,4RV,8XgQh\V\\\ ^ 444,4RV,8XgQhR#)rVz0.8340324452479558d0z x*%sd0z %sd0z x*%sN)rrevalfr<rr)rVlog10_17 loglog10_17s r["test_fcode_functions_with_integersrss|A2w}}R H(K SW (!: :: : SW (!: :: : S2Z NX$= == = QrU  x 7 77 7 R>\CGMM",== == = SR\! "l[&@ @@ @ SQrU_$ % )C CC Cr]c ^p\4p\\4R\P!V4,8XgQh\\4R\P!V4,8XgQh\\ 4R\ P!V4,8XgQh\\ 4R\ P!V4,8XgQh\\4R\P!V4,8XgQh\\^R7R\P!^4,8XgQh\\RR7\VP\P!V4430\4R 38XgQh\\RR7\VP\P!V4430\4R 38XgQh\\ RR7\ VP\ P!V4430\4R 38XgQh\\ RR7\ VP\ P!V4430\4R 38XgQh\\RR7\VP\P!V4430\4R 38XgQh\\^RR7\VP\P!^4430\4R 38XgQhR#)z. parameter (Catalan = %sd0) Catalanz4 parameter (EulerGamma = %sd0) EulerGammaz" parameter (E = %sd0) Ez6 parameter (GoldenRatio = %sd0) GoldenRatioz$ parameter (pi = %sd0) pi) precisionFrIz Catalanz EulerGammaz Ez GoldenRatioz pi)rrJN) r=r<r rr r r rrbset)precrQs r[test_fcode_NumberSymbolrs DA >NQXQ^Q^_cQdd dd d   WZdZjZjkoZp p pp p 8 >> > % QXXaggdm $ %&y%: :: : E *ahh$?!1"0#$'E+>/@ @@ @ 5 ! ahhrxx~& '(#%&= == = q . ahhrxx{# $%suj3: :: :r]ch\\4R8XgQh\R4p\^\,4R8XgQh\^^\,,4R8XgQh\^^\,,V,4R8XgQh\\V,4R8XgQh\^^\,,V, 4R8XgQh\RRR7p\^V,4R 8XgQh\\V,4R8XgQh\^V,4R 8XgQhR #) z cmplx(0,1)rVz cmplx(0,4)z cmplx(3,4)z cmplx(3,4) + xz cmplx(0,1)*xz cmplx(3,4) - xT) imaginaryz 5*xz x + 3N)r<rrrxs r[test_fcode_complexrs 8) )) ) A 1:+ ++ + QqS>/ // / QqS1 !7 77 7 1:- -- - QqS1 !7 77 7t$A 1: $$ $ 1:- -- - Q<= (( (r]c\R4wr\\V44R8XgQh\\W44R8XgQh\\ V44R8XgQhR#)r~z sin(x)z atan2(x, y)z conjg(x)N)rr<rrrrs r[ test_implicitrsS 5>DA Q=N ** * q !4 44 4 1 "2 22 2r]c\R4p\R4p\\4;_uu_4\ \ V44RRR4\ \ \V44RR7R8XgQh\\4;_uu_4\ V!V44RRR4R# +'giLi;i +'giR#;i)rVgNF)strictzHC Not supported in Fortran: C Integral Integral(sin(x), x))rrrCr{r<r r!r)rVrs r[test_not_fortranrs A A # $ $ eAh % #a&!% 05A AA A # $ $ ad  % $ % $ % $ $sB$B7$ B4 7 C cT\R4p\\V4RR/R7R8XgQh\R4p\\V4RR/R7R8XgQh\ R4p\V!V4RR /R7R 8XgQh\R R R 7p\\ V4RR/R7R8XgQhR#)rVrzsinrMz zsin(x)r mygammaz mygamma(x)rgreatz great(x)rTrsrfctz fct(n)N)rr<rr rr)rVrrs r[test_user_functionsrs A Q 8O KK K A  a'9!5 7:L MM M A 1sGn 59I II IT"A ! k5%9 ;>L MM Mr]c .\R4p\R\V^V,44p\V!V44R8XgQh\R\V^\,V, 44p\V!V44R\P !^4,8XgQh\ R4p\R\RRR74p\R\W^V,,^V,,44p\V!W#,4W#,R 7R 8XgQhR #) rVrz 2*xz( parameter (pi = %sd0) 2*pi/xrrrTrsrzI do i = 1, n A(i) = (A(i) + 1)*(A(i) + 2)*A(i) end doN)rrBrr<rrr>r?)rVrrrs r[test_inline_functionrs AS&AaC.1A 1;+ %% %S&AbDF"34A 1;      CA Cd+,AS&q1uIq1u,=">?A 14AD )   r]cV\R4p\\V4RR7R8XgQhR#)rVsrz s = sin(x)N)rr<rrxs r[test_assign_tors% A Q3 '+= == =r]c\R4wr\W,^ ,P4RR7R8XgQh\^ 4Uu.uF q V,NK pp\\ V!4R8XgQhR#uupi)r~varrz var = x**10 + 10*x**9*y + 45*x**8*y**2 + 120*x**7*y**3 + 210*x**6* @ y**4 + 252*x**5*y**5 + 210*x**4*y**6 + 120*x**3*y**7 + 45*x**2*y @ **8 + 10*x*y**9 + y**10zR x**10 + x**9 + x**8 + x**7 + x**6 + x**5 + x**4 + x**3 + x**2 + x @ + 1N)rr<expandranger)rVrWres r[test_line_wrappingrs| 5>DA 152+%%'5 9 )   Ry!y!AyA! a>    "s A8cl\R4wr\\W8W^,84RR7R8XgQh\\W8W^,84RR7R8XgQh\\ W8W^,8RR7RR7R8XgQh\\ W8W^,84RR7R8XgQhR #) x yrErFzx < y .and. y < x + 1zx < y .or. y < x + 1Fevaluatezx < y .neqv. y < x + 1zx < y .eqv. y < x + 1N)rr<r5r6r9r8rs r[test_fcode_precedencer s 5>DA QUAAI&f =   AE11u9%V <   QUAAI6 !9 :: : AE11u9-V D   r]c 0\R4wrp\\V4RR7R8XgQh\\W4RR7R8XgQh\\V\V44RR7R8XgQh\\\V4V4RR7R8XgQh\\\V4\V44RR7R8XgQh\\\W4RR 7RR7R 8XgQh\\ W4RR7R 8XgQh\\ V\V44RR7R 8XgQh\\ \V4V4RR7R 8XgQh\\ \V4\V44RR7R8XgQh\\\ W4RR 7RR7R8XgQh\\\ W4V4RR7R8XgQh\\\ W 4V4RR7R8XgQh\\\ W4V4RR7R8XgQh\\ \W4V4RR7R8XgQh\\ \W 4V4RR7R8XgQh\\ \W4V4RR7R8XgQh\\WV4RR7R8XgQh\\W\V44RR7R8XgQh\\V\V4V4RR7R8XgQh\\\V4W4RR7R8XgQh\\\WV4RR 7RR7R8XgQh\\ WV4RR7R8XgQh\\ W\V44RR7R8XgQh\\ V\V4V4RR7R8XgQh\\ \V4W4RR7R8XgQh\\\ WV4RR 7RR7R8XgQhR #)!rHrErFz.not. xz x .and. yzx .and. .not. yzy .and. .not. xz.not. x .and. .not. yFrz.not. (x .and. y)zx .or. yzx .or. .not. yzy .or. .not. xz.not. x .or. .not. yz.not. (x .or. y)zx .and. (y .or. z)zy .and. (x .or. z)zz .and. (x .or. y)zx .or. y .and. zzy .or. x .and. zzz .or. x .and. yzx .and. y .and. zzx .and. y .and. .not. zzx .and. z .and. .not. yzy .and. z .and. .not. xz.not. (x .and. y .and. z)zx .or. y .or. zzx .or. y .or. .not. zzx .or. z .or. .not. yzy .or. z .or. .not. xz.not. (x .or. y .or. z)N)rr<r7r5r6rVrWrXs r[test_fcode_LogicalrsgGA! Qv .) ;; ; Q& 1[ @@ @ QAv 6:K KK K SVQv 6:K KK K SVSV$F ;   SY/v F   A 0J >> > As1vf 59I II I CFAf 59I II I CFCF#6 :   RX.f E   RXq! 8=zx >= yz<=zx <= y>zx > yDA A$'v >( JJ J A$'v >( JJ J A$'v >( JJ J A$'v >( JJ J A#&f = HH H A#&f = HH Hr]c a\R4p\W^83V^,R34o\\V3Rl4\ S^_R7pRpW8XgQh\ \W^83V^,R34RR7R8XgQh\ V4V, p\ V4V, p\^ 4Fp\W04p\W@4pK Rp\ \W0^83VR34R R7pW8XgQh\ \W^83V^,V^83\ V4R34^_R7pR pW8XgQh\W^83V^,V^83\ V4V^834o\\V3R l4R #) rVTc<\S4#rwrrUsr[ry&test_fcode_Piecewise..s d r]rz merge(x, x**2, x < 1)rrzR if (x < 1) then var = x else var = x**2 end ifa/ if (x < 0) then weird_name = -cos(x)/x + 10*sin(x)/x**2 + 90*cos(x)/x**3 - 720* @ sin(x)/x**4 - 5040*cos(x)/x**5 + 30240*sin(x)/x**6 + 151200*cos(x @ )/x**7 - 604800*sin(x)/x**8 - 1814400*cos(x)/x**9 + 3628800*sin(x @ )/x**10 + 3628800*cos(x)/x**11 else weird_name = -sin(x)/x - 10*cos(x)/x**2 + 90*sin(x)/x**3 + 720* @ cos(x)/x**4 - 5040*sin(x)/x**5 - 30240*cos(x)/x**6 + 151200*sin(x @ )/x**7 + 604800*cos(x)/x**8 - 1814400*sin(x)/x**9 - 3628800*cos(x @ )/x**10 + 3628800*sin(x)/x**11 end if weird_namez1 merge(x, merge(x**2, sin(x), x > 1), x < 1)c<\S4#rwrrsr[ryrs uT{r]N) rrrCr{r<rrrr ValueError)rVcodeexpectedabrrUs @r[test_fcode_Piecewisersk A aQZ!Q$ .D  34  #D,H    A1u:1d|4 F    AqA AqA 2Y J J   A1u:4y1\ JD    A1u:1a!e}s1vtnEPR SDBH    aQZ!Q$AQQ @D :*+r]c\4p.ROpVPV4p.ROpVFp\V4^H8:dKQh \W#4F wrVWV8XdK Qh \V4\V48XgQhR#)bC This is a long comment on a single line that must be wrapped properly to produce nice outputN)rzf this = is + a + long + and + nasty + fortran + statement + that * must + be + wrapped + properlyzg this = is + a + long + and + nasty + fortran + statement + that * must + be + wrapped + properlyzh this = is + a + long + and + nasty + fortran + statement + that * must + be + wrapped + properlyzd this = is + a + long + and + nasty + fortran + statement + that*must + be + wrapped + properlyzf this = is + a + long + and + nasty + fortran + statement + that*must + be + wrapped + properlyzg this = is + a + long + and + nasty + fortran + statement + that*must + be + wrapped + properlyzh this = is + a + long + and + nasty + fortran + statement + that*must + be + wrapped + properlyze this = is + a + long + and + nasty + fortran + statement + that**must + be + wrapped + properlyzf this = is + a + long + and + nasty + fortran + statement + that**must + be + wrapped + properlyzg this = is + a + long + and + nasty + fortran + statement + that**must + be + wrapped + properlyzh this = is + a + long + and + nasty + fortran + statement + that**must + be + wrapped + properlyzi this = is + a + long + and + nasty + fortran + statement + that**must + be + wrapped + properlyzc this = is + a + long + and + nasty + fortran + statement(that)/must + be + wrapped + properlyzg this = is + a + long + and + nasty + fortran + statement(that)/must + be + wrapped + properly)zBC This is a long comment on a single line that must be wrappedz%C properly to produce nice outputzG this = is + a + long + and + nasty + fortran + statement + that *% @ must + be + wrapped + properlyzH this = is + a + long + and + nasty + fortran + statement + that *rG this = is + a + long + and + nasty + fortran + statement + thatz' @ * must + be + wrapped + properlyzF this = is + a + long + and + nasty + fortran + statement + that*rzH this = is + a + long + and + nasty + fortran + statement + that*rH this = is + a + long + and + nasty + fortran + statement + thatz& @ *must + be + wrapped + properly@ this = is + a + long + and + nasty + fortran + statement +z* @ that*must + be + wrapped + properlyzG this = is + a + long + and + nasty + fortran + statement + that**rzH this = is + a + long + and + nasty + fortran + statement + that**rr' @ **must + be + wrapped + properlyrrrz+ @ that**must + be + wrapped + properlyzE this = is + a + long + and + nasty + fortran + statement(that)/rzH this = is + a + long + and + nasty + fortran + statement(that)z& @ /must + be + wrapped + properly)r= _wrap_fortranlenzip)relines wrapped_linesexpected_lineslinewrs r[test_wrap_fortranrsxnG E"))%0MN@4yBM2v v3 } ^!4 44 4r]cZ\4p.ROp.ROpVPV4V8XgQhR#)H this_variable_is_very_long_because_we_try_to_test_line_break=1.0d0N)rzI this_variable_is_very_long_because_we_try_to_test_line_break =1.0d0zK this_variable_is_very_long_because_we_try_to_test_line_break = 1.0d0zL this_variable_is_very_long_because_we_try_to_test_line_break = 1.0d0zM this_variable_is_very_long_because_we_try_to_test_line_break = 1.0d0zK this_variable_is_very_long_because_we_try_to_test_line_break = 10.0d0) rD this_variable_is_very_long_because_we_try_to_test_line_break = @ 1.0d0zE this_variable_is_very_long_because_we_try_to_test_line_break =rzF this_variable_is_very_long_because_we_try_to_test_line_break =rzG this_variable_is_very_long_because_we_try_to_test_line_break =rrz @ 10.0d0r=rrerrs r[test_wrap_fortran_keep_d0rs2nG E H   '8 33 3r]c(\\R4R#)c.\\^4RR7#)garbage)method)r<rrhr]r[rytest_settings..6seAaD;r]N)rC TypeErrorrhr]r[ test_settingsr5s  9;DA Q#a& 7;L LL Lr]c\R4wr\\V4\V4,^,P 4RR7pRpW#8XgQhR#)r~rErFzsin(y)**7 + 7*sin(y)**6*cos(x) + 21*sin(y)**5*cos(x)**2 + 35*sin(y)**4* & cos(x)**3 + 35*sin(y)**3*cos(x)**4 + 21*sin(y)**2*cos(x)**5 + 7* & sin(y)*cos(x)**6 + cos(x)**7N)rr<rrr)rVrWresultrs r[ test_free_form_continuation_liner>sK 5>DA SVc!f_*224F KF -   r]c^\RR/4pR.pRR.pVPV4V8XgQhR#)rGrEz^! This is a long comment on a single line that must be wrapped properly to produce nice outputzG! This is a long comment on a single line that must be wrapped properlyz! to produce nice outputNrrs r[test_free_form_comment_linerIsAOV45Gn oEQ"$H   '8 33 3r]ct\RRR7wr\R4p\R4p\R4p\RV4p\RV4pRp\W%V3,W6,,WE,R R 7pWR R /,8Xg6WR R /,8Xg%WR R/,8XgWR R/,8XgQhR#R#R#R#)rTrsrrVrWrjz_do i = 1, m y(i) = 0 end do do i = 1, m do j = 1, n y(i) = %(rhs)s end do end dorErrhszy(i) + A(i, j)*x(j)zy(i) + x(j)*A(i, j)zx(j)*A(i, j) + y(i)zA(i, j)*x(j) + y(i)N)rr>r?r<) rrrrVrWrrrrs r[ test_loopsrRs 5$ 'DACACACA C A C A   a4V DD '<== = '<== = '<== = '<== =? > > > > >r]c \RR\R7wr\R4p\R4p\W4pRRVPP RVP /,p\ W ,W0,RR 7pWT8XgQhR #) zi mT)r0clsrVrWzMdo i_%(icount)i = 1, m_%(mcount)i y(i_%(icount)i) = x(i_%(icount)i) end doicountmcountrErN)rrr>r?label dummy_indexr<)rrrVrWrrs r[test_dummy_loopsr lsx 5$E 2DACACA A A  177&&!--@ AH V r?rr<rlhsendswith)len_yrWrVr%rrcode0s r[2test_fcode_Indexed_without_looking_for_contractionr,{s ECx(ACx(A T%' ,B CqAQ3q1vad{+,A !%%1555 9E >>G H HH Hr]cTa^p\RV3R7p\RV3R7p\RV^, 3R7p\RV^, 4p\W4,W^,,W,, W$^,,W$,, , 4p\\ VP VP 44pVPR4'gQh!RR\\4oVPV3R lVP\444p\W4,W^,,W,, W$^,,W$,, , 4p\\ VP VP 44pVPR4'gQhR #) r"rWr#rVr%rr'c]tRtRtRtR#).test_element_like_objects..ElementExprirhN)rirjrkrlrmrhr]r[ ElementExprr/s r]r0c3`<"TF#qS!VPVP43xK% R#5irw)nameindices).0rr0s& r[ ,test_element_like_objects..s%T>G H HH H gt  TAGGL>G H HH Hr]c!RR\4pV!4p\R4pVP\V4R4R8XgQhR#)cJ]tRtRt]P P 4tRtR#)1test_derived_classes..MyFancyFCodePrinterirhN)rirjrkrlr=_default_settingscopyrmrhr]r[MyFancyFCodePrinterr<s(::??Ar]r?rVborkz bork = sin(x)N)r=rrr)r?rerVs r[test_derived_classesrAsABlB"#G A ??3q66 *.C CC Cr]cZRpRp\RR/4pVPV4pW18XgQhR#)ausubroutine test(a) integer :: a, i, j do do do j = 1, 5 if (a>b) then if(b>0) then a = 3 donot_indent_me = 2 do_not_indent_me_either = 2 ifIam_indented_something_went_wrong = 2 if_I_am_indented_something_went_wrong = 2 end should not be unindented here end if endif end do end do enddo end subroutine subroutine test2(a) integer :: a do a = a + 1 end do end subroutine asubroutine test(a) integer :: a, i, j do do do j = 1, 5 if (a>b) then if(b>0) then a = 3 donot_indent_me = 2 do_not_indent_me_either = 2 ifIam_indented_something_went_wrong = 2 if_I_am_indented_something_went_wrong = 2 end should not be unindented here end if endif end do end do enddo end subroutine subroutine test2(a) integer :: a do a = a + 1 end do end subroutine rGrEN)r= indent_code) codelinesrrQrs r[ test_indentrEsA <  : ov./A ]]9 %F   r]c \R4wrp\W,\^V,V^83VR34\V4.4p\ R^^4p\ W44R8XgQh\^VR ,,V^83VR ,R34\VR ,4,VR ,,p\ V^_R7R8XgQh\ R^^4p\ R^^4p\\VR ,4^\ VR ,4.VR ,VR ,,VR ,^.^VR,,VR ,, \VR ,4^,^..4p\ W4R8XgQhR #)zx,y,zTrz A(1, 1) = x*y if (y > 0) then A(2, 1) = x + 2 else A(2, 1) = y end if A(3, 1) = sin(z)rz? merge(2*A(3, 1), A(3, 1), x > 0) + sin(A(2, 1)) + A(1, 1)rRMz M(1, 1) = sin(q(2, 1)) M(2, 1) = q(2, 1) + q(3, 1) M(3, 1) = 2*q(5, 1)/q(2, 1) M(1, 2) = 0 M(2, 2) = q(4, 1) M(3, 2) = sqrt(q(1, 1)) + 4 M(1, 3) = cos(q(3, 1)) M(2, 3) = 5 M(3, 3) = 0N)r)rrr)r)r r)rr:rrr;r<rr) rVrWrXmatrrUrRrGrs r[test_Matrix_printingrMshgGA! !#y!a%14y93q6B CCS!QA = ! "" " a$iQ'!D'4 9C$L H1T7 RD  #I KK K S!QAS!QAQsVaQsV- 3!C&!D'1% 1T71S6 4#DA AuQAA1u!5 67A (C " ## #r]cRp\RRR7p\P!V4p\V4pV!VR4\R4wrE\V\^*\ 0R7p\V4pV!VR4\V\ R7p\V4p V!V R 4V!\R 4V!\R 4V!\R \\/R 7V!\R \\/R 7R #)c4\V3R^_RR/VBV8XgQhR#)rurGrENr)rUrefkwargss&&,r[check%test_fcode_Declaration..checks$TGBGfGG3NNNr]rTrszinteger*4 :: ir)valueattrszreal*4, parameter :: x = 42typez logical :: yzreal*4zreal*8) type_aliasesN) rr'deducedr&r(r*r,r)r+) rVrvar1dcl1rVrWvar2dcl2bvar3dcl3s r[test_fcode_DeclarationrdsO T"A   A D t D $ ! 5>DA Awb >D  E %./ AE "D t D $ '8 '8 $g7 $g7r]c(\R^^4p\R^^4p\R^^4p\VR,4R8XgQh\^VR,,4R8XgQhVR,PW V, 4p\V4R8XgQhR#)rBCz A(1, 1)z 3*A(1, 1)z (A - B)(1, 1)NrJ)r;r<r7)rrfrgFs r[test_MatrixElement_printingri'sS!QAS!QAS!QA 4>_ ,- , QtW !2 23 2 $ QAA 8, ,- ,r]cZ\R4p\\VR^4RR7R8XgQhR#)rV+rErFz x = x + 1N)rr<r%rxs r[test_aug_assignrl4s) A AsA&f = LL Lr]c \R4p\\\V4^8\ VR^4.4RR7R8XgQhR#)rV-rErFz)do while (abs(x) > 1) x = x - 1 end doN)rr<r-rOr%rxs r[ test_Whilero9sD A s1vzJq#q$9#:;6 R   r]ca\R4p\RRR7p\V\R7p\V\R7p\ \RW#.4o\ \ V3Rl4R#)rVrTrsrZpowerc<\S4#rwr)fp1sr[ry.test_FunctionPrototype_print..J c r]N)rr'r+r0r.rCr{)rVrvxvnrss @r[test_FunctionPrototype_printrxBsN AT"A !$ B !' "B D'B8 4C  23r]ca\R4p\RRR7p\V\R7p\V\R7p\ WV,4\ V4.p\ \RW#.V4o\\V3Rl4R#)rVrTrsrZrqc<\S4#rwr)fd1sr[ry/test_FunctionDefinition_print..Vrur]N) rr'r+r0r$r1r/rCr{)rVrrvrwbodyr{s @r[test_FunctionDefinition_printr~Msg AT"A !$ B !' "B qQ$  +D T7RHd ;C  23r]N)sympy.core.addrsympy.core.exprrsympy.core.functionrrrsympy.core.modr sympy.corer r r sympy.core.numbersr r rrrrsympy.core.relationalrsympy.core.singletonrsympy.core.symbolrr(sympy.functions.combinatorial.factorialsr$sympy.functions.elementary.complexesrr&sympy.functions.elementary.exponentialrr(sympy.functions.elementary.miscellaneousr$sympy.functions.elementary.piecewiser(sympy.functions.elementary.trigonometricrrr'sympy.functions.special.gamma_functionsr sympy.integrals.integralsr!sympy.sets.fancysetsr" sympy.codegenr#r$r%sympy.codegen.astr&r'r(r)r*r+r,r-r.r/r0r1r2r3r4sympy.logic.boolalgr5r6r7r8r9sympy.matricesr:r;sympy.printing.fortranr<r= sympy.tensorr>r?sympy.tensor.array.expressionsr@rAsympy.utilities.lambdifyrBsympy.testing.pytestrCr\rqr|rrrrrrrrrrrrrrrrrrrrrrrrrrrr r,r9rArErMrQrdrirlrorxr~rhr]r[rsk 8899CC$".>B=9:FF9.&55!!!!,,==/6)D9' l-8@$>, @ G7> D:0 )3 M&>   ."b`$FI(,V95x44=M 4?4 II&D=~ F#82 .M 4 4r]