\hSSKJr SSKJr SSKJrJrJr SSKJ r SSK J r J r J r SSKJrJrJrJrJrJr SSKJr SSKJr SS KJrJr SS KJr SS KJrJ r SS K!J"r"J#r# SS K$J%r% SSK&J'r' SSK(J)r)J*r*J+r+ SSK,J-r- SSK.J/r/ SSK0J1r1 SSK2J3r3J4r4J5r5 SSK6J7r7J8r8J9r9J:r:J;r;Jr>J?r?J@r@JArAJBrBJCrC SSKJDrD SSKJErE SSKFJGrGJHrHJIrIJJrJJKrK SSKLJMrMJNrN SSKOJPrPJQrQ SSKRJSrSJTrT SSKUJVrVJWrW SSKXJYrY SSKZJ[r[ Sr\Sr]S r^S!r_S"r`S#raS$rbS%rcS&rdS'reS(rfS)rgS*rhS+riS,rjS-rkS.rlS/rmS0rnS1roS2rpS3rqS4rrS5rsS6rtS7ruS8rvS9rwS:rxS;ryS<rzS=r{S>r|S?r}S@r~SArSBrSCrSDrSErSFrSGrSHrgI)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)raisesch[SSS9upn[X-5n[[X-55n[ USS9S:Xde[S5upVn[Xg-5n[[XX-55n [ U SS 9S R 5S :Xde[ U S S 0S9R 5S:Xdeg)Nzp 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)))rr3absrr<lstrip) pqrq_rexprxyzy_zexpr2s Y/var/www/auris/envauris/lib/python3.13/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 kcf[S5n"SS[5n[U"U55S:Xdeg)NrWc\rSrSrSrSrg)test_printmethod..nint2cDSURURS5-$)Nznint(%s)r)_printargs)selfprinters r\_fcode%test_printmethod..nint._fcode3styy| << _ ,, ,r^c^[S5m[SSS9n[SSS9n[[T5SSS 9S :Xde[[U5SSS 9S :Xde[[U5SSS 9S :Xde[[U4S j5 g)NrWrXTr0rY)complex_rEstandardrGz#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,>[[T55$N)r<rrWsr\!test_fcode_sign..?s d1gr^)rr<rrCNotImplementedError)rXrYrWs @r\test_fcode_signr~8s clA c4 A c4 A a2V <@e ee e a2V <@_ __ _ a2V <@q qq q  67r^cl[S5up[SSS9n[US-5S:Xde[XS--5S:Xde[S[U5S -XU-- -- US -U-- 5S :Xde[[U55S :Xde[[U55S :Xde[US-5S :Xde[[U55S :Xde[[S55S:Xde[US-5S:Xde[US-SSS9S:Xde[U[ SS5-5S:Xdeg)Nx,ynTrsz x**3z x**(y**3)g @rKz, (3.5d0*sin(x))**(-x + y**x)/(x**2 + y)z sqrt(x)z sqrt(dble(n))g? z sqrt(10.0d0)gz 1d0/xgrXrErFzy = x**(-2.0d0)z x**(3.0d0/7.0d0))rr<rrr)rWrXrs 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^cj[S5n[[SS55S:Xde[[SS55S:Xde[[SS55S :Xde[[S S55S:Xde[U[SS5-5S :Xde[[SS5U-5S :Xdeg) NrWrrz 3.0d0/7.0d0 z 2iz -3.0d0/7.0d0z x + 3.0d0/7.0d0z (3.0d0/7.0d0)*x)rr<rrzs r\test_fcode_RationalrTs A !Q $7 77 7 "a !Y .. . !R !%9 99 9 "b! "&9 99 9 Xa^# $(? ?? ? !Q! "&= == =r^cl[[S55S:Xde[[S55S:Xdeg)NCz 67z -1)r<rrjr^r\test_fcode_Integerr^s0   ++ +   ++ +r^cl[[S55S:Xde[[S55S:Xdeg)NgE@z 42.0000000000000d0g@xz -1.00000000000000d+20)r<r rjr^r\test_fcode_Floatrcs2 t !; ;; ; u "? ?? ?r^c^^[S5umm[[T5[T5-5S:Xde[ [ UU4Sj5 [ [ UU4Sj5 [ [ UU4Sj5 [ [ UU4Sj5 SH0n[[ TT5US9S :Xde[TT-US9S :XaM0e g) Nrz sin(x)**cos(y)c,>[[TT5SS9$NBrwr<rrWrXsr\r{&test_fcode_functions..kc!Qi"(Er^c>[TT-SS9$rr<rsr\r{rla!eb(Ar^c,>[[TT5SS9$NMrrrsr\r{rmrr^c>[TT-SS9$rrrsr\r{rnrr^)Zruiirz modulo(x, y))rr<rrrCr}r)rwrWrXs @@r\test_fcode_functionsrhs 5>DAq Q3q6! "&< << <  EF  AB  EF  AB(SAY26JJJJQUX.2FFFF)r^c ([5n[S5upp4pVn[[U5[ X-5-[ XW-5-5S:Xde[[U5SU-U-U[ SS5---5S:Xde[[U5[ X-5-[ XW-5-SS9S:Xde[U[ U5- SS9S :XdeURU[ U5-U-S S 9S :XdeURU[ U5-S S 9S:XdeURUSS 9S:Xde[SSS9up[S5n [S5n[S5n[SU 5n [SU5n [XU 4X-XKSS9S:Xdeg)Nzx,x_,x__,y,X,X_,Yz& exp(x_) + sin(x*y) + cos(X__*Y_)rKrz( 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,mTrsArWrXirrErrGzndo 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 do) r=rr<rrrrdoprintr>r?) obrWx_x__rXXX_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 [S5n[S5RS5nSn[U[S5-5SU-:Xde[U[S5-5SU-:Xde[U[[ S55-5SU-:Xde[[[ S555SU-:Xde[[ S55S[ S5RS5-:Xde[U[[S55-5SU-:Xde[U[[[ S555-5SU-:Xdeg)NrWrz0.8340324452479558d0z x*%sd0z %sd0z x*%s)rrevalfr<rr)rWlog10_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^cSn[5n[[5S[R"U5-:Xde[[5S[R"U5-:Xde[[ 5S[ R"U5-:Xde[[ 5S[ R"U5-:Xde[[5S[R"U5-:Xde[[SS9S[R"S5-:Xde[[S S 9[UR[R"U5541[5S 4:Xde[[S S 9[UR[R"U5541[5S 4:Xde[[ S S 9[ UR[ R"U5541[5S 4:Xde[[ S S 9[ UR[ R"U5541[5S4:Xde[[S S 9[UR[R"U5541[5S4:Xde[[SS S9[UR[R"S5541[5S4:Xdeg)Nrz. 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)rrJ) r=r<r rr r r rrdset)precrRs 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^c[[5S:Xde[S5n[S[-5S:Xde[SS[--5S:Xde[SS[--U-5S:Xde[[U-5S:Xde[SS[--U- 5S :Xde[SS S 9n[S U-5S :Xde[[U-5S:Xde[SU-5S:Xdeg)Nz cmplx(0,1)rWz cmplx(0,4)rz cmplx(3,4)z cmplx(3,4) + xz cmplx(0,1)*xz cmplx(3,4) - xT) imaginaryrz 5*xz x + 3)r<rrrzs r\test_fcode_complexrs 8) )) ) A 1:+ ++ + QqS>/ // / QqS1 !7 77 7 1:- -- - QqS1 !7 77 7t$A 1: $$ $ 1:- -- - Q<= (( (r^c[S5up[[U55S:Xde[[X55S:Xde[[ U55S:Xdeg)Nrz sin(x)z atan2(x, y)z conjg(x))rr<rrrrs r\ test_implicitrsS 5>DA Q=N ** * q !4 44 4 1 "2 22 2r^cb[S5n[S5n[[5 [ [ U55 SSS5 [ [ [U55SS9S:Xde[[5 [ U"U55 SSS5 g!,(df  NZ=f!,(df  g=f)NrWgF)strictzHC Not supported in Fortran: C Integral Integral(sin(x), x))rrrCr}r<r r!r)rWrs r\test_not_fortranrs A A # $ eAh % #a&!% 05A AA A # $ ad  % $ % $ % $sB4B  B B.c,[S5n[[U5SS0S9S:Xde[S5n[[U5SS0S9S:Xde[ S 5n[U"U5S S 0S9S :Xde[S S S9n[[ U5SS0S9S:Xdeg)NrWrzsinrNz zsin(x)r mygammaz mygamma(x)rgreatz great(x)rTrsrfctz fct(n))rr<rr rr)rWrrs 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 [S5n[S[USU-55n[U"U55S:Xde[S[US[-U- 55n[U"U55S[R "S5-:Xde[ S5n[S[S S S 95n[S[XS U--SU--55n[U"X#5X#S 9S:Xdeg)NrWrrKz 2*xz( parameter (pi = %sd0) 2*pi/xrrrrTrsrrzI do i = 1, n A(i) = (A(i) + 1)*(A(i) + 2)*A(i) end do)rrBrr<rrr>r?)rWrrrs r\test_inline_functionrs AS&AaC.1A 1;+ %% %S&AbDF"34A 1;      CA Cd+,AS&q1uIq1u,=">?A 14AD )   r^cL[S5n[[U5SS9S:Xdeg)NrWsrz s = sin(x))rr<rrzs r\test_assign_tors% A Q3 '+= == =r^c[S5up[X-S-R5SS9S:Xde[S5Vs/sHo U-PM nn[[ U65S:Xdegs snf)Nrrvarrz 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**10 zR x**10 + x**9 + x**8 + x**7 + x**6 + x**5 + x**4 + x**3 + x**2 + x @ + 1)rr<expandranger)rWrXres r\test_line_wrappingrsz 5>DA 152+%%'5 9 )   Ry!y!AyA! a>    "sA&c$[S5up[[X:XS-:5SS9S:Xde[[X:XS-:5SS9S:Xde[[ X:XS-:SS9SS9S :Xde[[ X:XS-:5SS9S :Xdeg) Nx yrrErFzx < y .and. y < x + 1zx < y .or. y < x + 1Fevaluatezx < y .neqv. y < x + 1zx < y .eqv. y < x + 1)rr<r5r6r9r8rs r\test_fcode_precedencer s 5>DA QUAAI&f =   AE11u9%V <   QUAAI6 !9 :: : AE11u9-V D   r^c >[S5upn[[U5SS9S:Xde[[X5SS9S:Xde[[U[U55SS9S:Xde[[[U5U5SS9S:Xde[[[U5[U55SS9S:Xde[[[X5S S 9SS9S :Xde[[ X5SS9S :Xde[[ U[U55SS9S :Xde[[ [U5U5SS9S:Xde[[ [U5[U55SS9S:Xde[[[ X5S S 9SS9S:Xde[[[ X5U5SS9S:Xde[[[ X 5U5SS9S:Xde[[[ X5U5SS9S:Xde[[ [X5U5SS9S:Xde[[ [X 5U5SS9S:Xde[[ [X5U5SS9S:Xde[[XU5SS9S:Xde[[X[U55SS9S:Xde[[U[U5U5SS9S:Xde[[[U5X5SS9S:Xde[[[XU5S S 9SS9S:Xde[[ XU5SS9S:Xde[[ X[U55SS9S:Xde[[ U[U5U5SS9S:Xde[[ [U5X5SS9S:Xde[[[ XU5S S 9SS9S :Xdeg)!NrHrErFz.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))rr<r7r5r6rWrXrYs 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 ^[S5n[XS:4US-S45m[[U4Sj5 [ TSS9nSnX:Xde[ [XS:4US-S45S S 9S :Xde[ U5U- n[ U5U- n[S 5Hn[X05n[X@5nM S n[ [X0S:4US45SS 9nX:Xde[ [XS:4US-US:4[ U5S45SS9nSnX:Xde[XS:4US-US:4[ U5US:45m[[U4Sj5 g)NrWrrKTc>[T5$ryrrVsr\r{&test_fcode_Piecewise..s d r^rurz merge(x, x**2, x < 1)rrzR if (x < 1) then var = x else var = x**2 end ifra/ 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 ifr weird_namez1 merge(x, merge(x**2, sin(x), x > 1), x < 1)c>[T5$ryrrsr\r{rs uT{r^) rrrCr}r<rrrr ValueError)rWcodeexpectedabrrVs @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[5n/SQnURU5n/SQnUHn[U5S::aMe [X#5H upVXV:XaM e [U5[U5:Xdeg)N)zbC This is a long comment on a single line that must be wrapped properly to produce nice outputzf 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 + properlyH)r= _wrap_fortranlenzip)rglines wrapped_linesexpected_lineslinewrs r\test_wrap_fortranr sxnG E"))%0MN@4yBM2v v3 } ^!4 44 4r^cV[5n/SQn/SQnURU5U:Xdeg)N)H this_variable_is_very_long_because_we_try_to_test_line_break=1.0d0zI 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) r D 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 =r zF this_variable_is_very_long_because_we_try_to_test_line_break =r zG this_variable_is_very_long_because_we_try_to_test_line_break =r r z @ 10.0d0r=rrgrrs r\test_wrap_fortran_keep_d0rs2nG E H   '8 33 3r^c&[[S5 g)Nc([[S5SS9$)Nrgarbage)method)r<rrjr^r\r{test_settings..6seAaD;r^)rC TypeErrorrjr^r\ test_settingsr5s  9;DA Q#a& 7;L LL Lr^c[S5up[[U5[U5-S-R 5SS9nSnX#:Xdeg)NrrrErFzsin(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)**7)rr<rrr)rWrXresultrs r\ test_free_form_continuation_liner>sK 5>DA SVc!f_*224F KF -   r^cZ[SS05nS/nSS/nURU5U:Xdeg)NrGrEz^! 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 outputrrs r\test_free_form_comment_linerIsAOV45Gn oEQ"$H   '8 33 3r^c[SSS9up[S5n[S5n[S5n[SU5n[SU5nS n[X%U4X6-XES S 9nXS S 0-:Xd#XS S0-:XdXS S0-:Xd XS S0-:Xdegggg)NrTrsrrWrXrjz_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))rr>r?r<) rrrrWrXrr rrs r\ test_loopsr"Rs 5$ 'DACACACA C A C A   a4V DD '<== = '<== = '<== = '<== =? > > > > >r^c[SS[S9up[S5n[S5n[X5nSURR UR S.-n[ X X0SS 9nXT:Xdeg) Nzi mT)r0clsrWrXzMdo i_%(icount)i = 1, m_%(mcount)i y(i_%(icount)i) = x(i_%(icount)i) end do)icountmcountrEr)rrr>r?label dummy_indexr<)rrrWrXrrs r\test_dummy_loopsr)lst 5$E 2DACACA A A 77&&!--@ AH V r?rr<r!lhsendswith)len_yrXrWr-rrcode0s r\2test_fcode_Indexed_without_looking_for_contractionr4{s ECx(ACx(A T%' ,B CqAQ3q1vad{+,A !%%1555 9E >>G H HH Hr^c^Sn[SU4S9n[SU4S9n[SUS- 4S9n[SUS- 5n[X4XS-X- X$S-X$- - 5n[[ UR UR 55nURS5(de"S S [[5mURU4S jUR[555n[X4XS-X- X$S-X$- - 5n[[ UR UR 55nURS5(deg) NrrXr+rWr-rrr/c\rSrSrSrg).test_element_like_objects..ElementExprirjN)rkrlrmrnrorjr^r\ ElementExprr7s r^r8c3`># UH#oT"URUR54v M% g7fry)nameindices).0rr8s r\ ,test_element_like_objects..s%T>G H HH H gt  TAGGL>G H HH Hr^c"SS[5nU"5n[S5nUR[U5S5S:Xdeg)NcH\rSrSr\R R 5rSrg)1test_derived_classes..MyFancyFCodePrinterirjN)rkrlrmrnr=_default_settingscopyrorjr^r\MyFancyFCodePrinterrDs(::??Ar^rGrWborkz bork = sin(x))r=rrr)rGrgrWs r\test_derived_classesrIsABlB"#G A ??3q66 *.C CC Cr^cVSnSn[SS05nURU5nX1:Xdeg)Nausubroutine 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 rGrE)r= indent_code) codelinesrrRrs r\ test_indentrMsA <  : ov./A ]]9 %F   r^c :[S5upn[X-[SU-US:4US45[U5/5n[ SSS5n[ X45S:Xde[SUS -US:4US S45[US 5-US -n[ US S 9S:Xde[ SSS5n[ SSS5n[[US 5S[ US 5/US US -USS/SUS-US - [US 5S-S//5n[ X5S:Xdeg)Nzx,y,zrKrTrrrz 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))rKr)rrrrrurz? merge(2*A(3, 1), A(3, 1), x > 0) + sin(A(2, 1)) + A(1, 1)rSrM)rr)rrrz 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) = 0)rr:rrr;r<rr) rWrXrYmatrrVrSrPrs r\test_Matrix_printingrRshgGA! !#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^cSn[SSS9n[R"U5n[U5nU"US5 [S5upE[U[S[ 1S9n[U5nU"US 5 [U[ S 9n[U5n U"U S 5 U"[S 5 U"[S 5 U"[S [[0S9 U"[S [[0S9 g)Nc.[U4SSS.UD6U:Xdeg)NrurErvr)rVrefkwargss r\check%test_fcode_Declaration..checks!TGBfGG3NNNr^rTrszinteger*4 :: ir*)valueattrszreal*4, parameter :: x = 42typez logical :: yzreal*4zreal*8) type_aliases) rr'deducedr&r(r*r,r)r+) r[rvar1dcl1rWrXvar2dcl2bvar3dcl3s r\test_fcode_DeclarationrjsO T"A   A D t D $ ! 5>DA Awb >D  E %./ AE "D t D $ '8 '8 $g7 $g7r^c[SSS5n[SSS5n[SSS5n[US5S:Xde[SUS-5S:XdeUSRX U- 5n[U5S :Xdeg) NrrrBCrOz A(1, 1)z 3*A(1, 1)z (A - B)(1, 1))r;r<r?)rrlrmFs r\test_MatrixElement_printingro'sS!QAS!QAS!QA 4>_ ,- , QtW !2 23 2 $ QAA 8, ,- ,r^cP[S5n[[USS5SS9S:Xdeg)NrW+rrErFz x = x + 1)rr<r%rzs r\test_aug_assignrr4s) A AsA&f = LL Lr^c ~[S5n[[[U5S:[ USS5/5SS9S:Xdeg)NrWr-rErFz)do while (abs(x) > 1) x = x - 1 end do)rr<r-rPr%rzs r\ test_Whileru9sD A s1vzJq#q$9#:;6 R   r^c^[S5n[SSS9n[U[S9n[U[S9n[ [SX#/5m[ [ U4Sj5 g)NrWrTrsr`powerc>[T5$ryr)fp1sr\r{.test_FunctionPrototype_print..J c r^)rr'r+r0r.rCr})rWrvxvnrys @r\test_FunctionPrototype_printr~BsN AT"A !$ B !' "B D'B8 4C  23r^c^[S5n[SSS9n[U[S9n[U[S9n[ XU-5[ U5/n[ [SX#/U5m[[U4Sj5 g)NrWrTrsr`rwc>[T5$ryr)fd1sr\r{/test_FunctionDefinition_print..Vr{r^) rr'r+r0r$r1r/rCr})rWrr|r}bodyrs @r\test_FunctionDefinition_printrMsg 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~rrrrrrrrrrrrrrrrrrrrr rrrrrr"r)r4rArIrMrRrVrjrorrrur~rrjr^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^