+ iB$^RIHt^RIHtHtHtHtHtHt^RI H t ^RI H t ^RI Ht^RIHt^RIHtHt^RIHtHtHtHtHtHtHtHtHtHtHt^R I H!t!^R I"H#t#RGR lt$R t%R t&Rt'Rt(Rt)Rt*Rt+Rt,Rt-Rt.Rt/Rt0Rt1Rt2Rt3Rt4Rt5Rt6Rt7Rt8R t9R!t:R"t;R#tR&t?R't@R(tAR)tBR*tCR+tDR,tER-tFR.tGR/tHR0tIR1tJR2tKR3tLR4tMR5tNR6tOR7tPR8tQR9tRR:tSR;tTR<tUR=tVR>tWR?tXR@tYRAtZRBt[RCt\RDt]REt^RF#)H)StringIO)symbolsEqpiCatalanLambdaDummyEquality)Symbol)erf)Integral)Matrix MatrixSymbol) codegen make_routineCCodeGen C89CodeGen C99CodeGen InputArgument CodeGenErrorFCodeGenCodeGenArgumentListErrorOutputArgument InOutArgument)raises)implemented_functioncn\4pV!WW#V4VP4pVP4V#)aWrapper for dump_fn. dump_fn writes its results to a stream object and this wrapper returns the contents of that stream as a string. This auxiliary function is used by many tests below. The header and the empty lines are not generated to facilitate the testing of the output. )rgetvalueclose)dump_fnroutinesprefixheaderemptyoutputsources&&&&& `/var/www/html/photoedit/myenv/lib/python3.14/site-packages/sympy/utilities/tests/test_codegen.py get_stringr)s1ZF Hfe4 __ F LLN Mcaa a a a \R4woo o o S S ,S ,o \\V V V 3Rl4\\VV V V V 3Rl4\R\ SS 4S S SS .R7pVP Uu.uFqP NK upS S SS .8XgQhVP Uu.uFp\V4NK up\\\\.8XgQh\R\ S S 4S S S .R7pVP Uu.uFp\V4NK up\\\.8XgQh^RI H pH p\VRR.4wrE\RR R 7pV!R V4p\R\ WG,WW,4WTV.R7pVP Uu.uFqP NK upVPVPV.8XgQh\!S S ,S ,S ^^3S ^^34o \R\ SS 4S S SS .R7pVP Uu.uFqP NK upS S SS .8XgQhR #uupiuupiuupiuupiuupi) za x y zc$<\RSSS.R7#testargument_sequencer)exprxzsr(-test_Routine_argument_order..&s\&$V.%r*c:<\R\SS4SSS.R7#r-)rr)ar2r3yr4sr(r5r6(s"\&"Q C%&1I./r*r.r/ IndexedBaseIdxABmTintegeriN)rrrrr argumentsnametyperrr sympy.tensorr;r<maplabelr) rargr;r<r=r>r?rBr8r2r3r9r4s @@@@@r(test_Routine_argument_orderrK#s#JAq!Q E19D #&%& #&/&/0VR4[Q1aLIA!" .#XX .1aA, >> >"#++ /+3T#Y+ /}nm4G GG GVR4[Q1IFA"#++ /+3T#Y+ /}m46 66 6. {S#J 'DAT"A C AVRad^ayIA!" .#XX .177AGGQ2G GG G AaCEAq!9q!Qi 0DVR4[Q1aLIA!" .#XX .1aA, >> >! / / 0 / /s>H<.I II IcX\4p\VP.4pVR8XgQhR#)z$#include "file.h" #include Nrr)dump_ccode_genr's r(test_empty_c_coderQ>s(|H  ,F ? ?? ?r*c\4p\VP.RR7pVR,R8XgQhVR,R8XgQhR#)Tr$NRNzR/****************************************************************************** *NNa* * * * See http://www.sympy.org/ for more information. * * * * This file is part of 'project' * ******************************************************************************/ #include "file.h" #include NrMrOs r(test_empty_c_code_with_commentrXDsR|H D 9F #;]   $<["  r*cX\4p\VP.4pVR8XgQhR#)z9#ifndef PROJECT__FILE__H #define PROJECT__FILE__H #endif N)rr)dump_hrOs r(test_empty_c_headerr[Vs(|H  ,F S SS Sr*c\R4wrpW,V,p\RV4p\4p\VPV.4pRpWg8XgQhR#)x,y,zr.#include "file.h" #include double test(double x, double y, double z) { double test_result; test_result = z*(x + y); return test_result; } Nrrrr)rNr3r9r4r2routinerPr'expecteds r(test_simple_c_coderc\sXgGA! E19D64(G|H ' 3F     r*c\R4wrpW,V,p\RV4p\4p\VPV.4pRpWg8XgQhR#)zif, typedef, whiler.z#include "file.h" #include double test(double if_, double typedef_, double while_) { double test_result; test_result = while_*(if_ + typedef_); return test_result; } N)rrrr)rNr`s r(test_c_code_reserved_wordsrensY*+GA! EQ;D64(G|H ' 3F     r*c\R\\,4p\4p\ VP V.4pR\P !^4,pW#8XgQhR#)r.z#include "file.h" #include double test() { double test_result; double const Catalan = %s; test_result = pow(M_PI, Catalan); return test_result; } N)rrrrr)rNevalfrarPr'rbs r(test_numbersymbol_c_coderisS62w;/G|H ' 3F   b H   r*c\R4wrpW,p\RW2W.R7p\4p\VPV.4pRpWg8XgQhR#)r]r.r/z#include "file.h" #include double test(double z, double x, double y) { double test_result; test_result = x + y; return test_result; } Nr_r`s r(test_c_code_argument_orderrksXgGA! 5D64q9EG|H ' 3F     r*c\R4wrpW,V,p\RV4p\4p\VPV.4pRpWg8XgQhR#)r]r.d#ifndef PROJECT__FILE__H #define PROJECT__FILE__H double test(double x, double y, double z); #endif N)rrrr)rZr`s r(test_simple_c_headerrnsXgGA! E19D64(G|H ' 3F    r*c|\R4wrpW,V,pRR.p\RV3RRRRR7pWT8XgQhR#) r]r.CfileFr$r%N)file.cr^)file.hrmrr)r3r9r4r2rbresults r(test_simple_c_codegenrwsPgGA! E19D  Hfd^S&e LF   r*caa\R4wrpW,V,pW, V,p\RW4.4o\4o\\VV3Rl4R#)r]r.c2<\SPS.4#Nr)rZrPrasr(r5)test_multiple_results_c..HOOgY!Gr*N)rrrrrr3r9r4expr1expr2rPras @@r(test_multiple_results_crsMgGA! UAIE UAIE G|H <GHr*c(\\R4R#)c\R.4#r.r1r*r(r5#test_no_results_c.. |FB7r*Nr ValueErrorrr*r(test_no_results_cr  :78r*cn^RIHp^RIHp^RIHpHpHp^RIH pH p^RI H p^RI HpHp Hp Hp Hp Hp \)R4pRV!V43R V!V43R V !V43R V !V43R V!V43R V !V43RV!V43RV!V43RV!V43RV!V43RV !V43RV!V43RV!V43RV !V43RV!V43.p\+VRRRRR7pV^,^,R8XgQhV^,^,R8XgQhV^,^,R8XgQhV^,^,R8XgQhR#) rAbslogcoshsinhtanh)ceilingfloorsqrtacosasinatancossintanr3 test_fabs test_acos test_asin test_atan test_ceiltest_cos test_cosh test_floortest_logtest_lntest_sin test_sinh test_sqrttest_tan test_tanhC89rqFrrrsa#include "file.h" #include double test_fabs(double x) { double test_fabs_result; test_fabs_result = fabs(x); return test_fabs_result; } double test_acos(double x) { double test_acos_result; test_acos_result = acos(x); return test_acos_result; } double test_asin(double x) { double test_asin_result; test_asin_result = asin(x); return test_asin_result; } double test_atan(double x) { double test_atan_result; test_atan_result = atan(x); return test_atan_result; } double test_ceil(double x) { double test_ceil_result; test_ceil_result = ceil(x); return test_ceil_result; } double test_cos(double x) { double test_cos_result; test_cos_result = cos(x); return test_cos_result; } double test_cosh(double x) { double test_cosh_result; test_cosh_result = cosh(x); return test_cosh_result; } double test_floor(double x) { double test_floor_result; test_floor_result = floor(x); return test_floor_result; } double test_log(double x) { double test_log_result; test_log_result = log(x); return test_log_result; } double test_ln(double x) { double test_ln_result; test_ln_result = log(x); return test_ln_result; } double test_sin(double x) { double test_sin_result; test_sin_result = sin(x); return test_sin_result; } double test_sinh(double x) { double test_sinh_result; test_sinh_result = sinh(x); return test_sinh_result; } double test_sqrt(double x) { double test_sqrt_result; test_sqrt_result = sqrt(x); return test_sqrt_result; } double test_tan(double x) { double test_tan_result; test_tan_result = tan(x); return test_tan_result; } double test_tanh(double x) { double test_tanh_result; test_tanh_result = tanh(x); return test_tanh_result; } rta#ifndef PROJECT__FILE__H #define PROJECT__FILE__H double test_fabs(double x); double test_acos(double x); double test_asin(double x); double test_atan(double x); double test_ceil(double x); double test_cos(double x); double test_cosh(double x); double test_floor(double x); double test_log(double x); double test_ln(double x); double test_sin(double x); double test_sinh(double x); double test_sqrt(double x); double test_tan(double x); double test_tanh(double x); #endif N)$sympy.functions.elementary.complexesr&sympy.functions.elementary.exponentialr%sympy.functions.elementary.hyperbolicrrr#sympy.functions.elementary.integersrr(sympy.functions.elementary.miscellaneousr(sympy.functions.elementary.trigonometricrrrrrrrr)rrrrrrrrrrrrrrr3 name_exprrvs r(test_ansi_math1_codegenrs_8:HHD=ZZ A c!f d1g d1g d1g gaj! SV d1g uQx SV CF SV d1g d1g SV d1gI"Yve5 IF !9Q<8 ## # !9Q< F  $ !9Q<8 ## # !9Q< 0   r*c,^RIHp\R4wrRV!W43RW,3.p\VRRRRR7pV^,^,R 8XgQhV^,^,R 8XgQhV^,^,R 8XgQhV^,^,R 8XgQhR #)ratan2x,y test_atan2test_powrrqFrrrsa*#include "file.h" #include double test_atan2(double x, double y) { double test_atan2_result; test_atan2_result = atan2(x, y); return test_atan2_result; } double test_pow(double x, double y) { double test_pow_result; test_pow_result = pow(x, y); return test_pow_result; } rtz#ifndef PROJECT__FILE__H #define PROJECT__FILE__H double test_atan2(double x, double y); double test_pow(double x, double y); #endif Nrrrr)rr3r9rrvs r(test_ansi_math2_codegenrs> 5>DA uQ{# QTIYve5 IF !9Q<8 ## # !9Q< N   !9Q<8 ## # !9Q<   r*c^RIHpHpHp\ R4wr4pRV!V4V!V4,V!V4,^,P 43RV!V!V!V!V!V!V!V!W4,V,444444443.p\ VRRRRR7pV^,^,R 8XgQhV^,^,R 8XgQhV^,^,R 8XgQhV^,^,R 8XgQhR #)rrrrr]test1test2rrqFrrrsa-#include "file.h" #include double test1(double x, double y, double z) { double test1_result; test1_result = pow(sin(x), 7) + 7*pow(sin(x), 6)*cos(y) + 7*pow(sin(x), 6)*tan(z) + 21*pow(sin(x), 5)*pow(cos(y), 2) + 42*pow(sin(x), 5)*cos(y)*tan(z) + 21*pow(sin(x), 5)*pow(tan(z), 2) + 35*pow(sin(x), 4)*pow(cos(y), 3) + 105*pow(sin(x), 4)*pow(cos(y), 2)*tan(z) + 105*pow(sin(x), 4)*cos(y)*pow(tan(z), 2) + 35*pow(sin(x), 4)*pow(tan(z), 3) + 35*pow(sin(x), 3)*pow(cos(y), 4) + 140*pow(sin(x), 3)*pow(cos(y), 3)*tan(z) + 210*pow(sin(x), 3)*pow(cos(y), 2)*pow(tan(z), 2) + 140*pow(sin(x), 3)*cos(y)*pow(tan(z), 3) + 35*pow(sin(x), 3)*pow(tan(z), 4) + 21*pow(sin(x), 2)*pow(cos(y), 5) + 105*pow(sin(x), 2)*pow(cos(y), 4)*tan(z) + 210*pow(sin(x), 2)*pow(cos(y), 3)*pow(tan(z), 2) + 210*pow(sin(x), 2)*pow(cos(y), 2)*pow(tan(z), 3) + 105*pow(sin(x), 2)*cos(y)*pow(tan(z), 4) + 21*pow(sin(x), 2)*pow(tan(z), 5) + 7*sin(x)*pow(cos(y), 6) + 42*sin(x)*pow(cos(y), 5)*tan(z) + 105*sin(x)*pow(cos(y), 4)*pow(tan(z), 2) + 140*sin(x)*pow(cos(y), 3)*pow(tan(z), 3) + 105*sin(x)*pow(cos(y), 2)*pow(tan(z), 4) + 42*sin(x)*cos(y)*pow(tan(z), 5) + 7*sin(x)*pow(tan(z), 6) + pow(cos(y), 7) + 7*pow(cos(y), 6)*tan(z) + 21*pow(cos(y), 5)*pow(tan(z), 2) + 35*pow(cos(y), 4)*pow(tan(z), 3) + 35*pow(cos(y), 3)*pow(tan(z), 4) + 21*pow(cos(y), 2)*pow(tan(z), 5) + 7*cos(y)*pow(tan(z), 6) + pow(tan(z), 7); return test1_result; } double test2(double x, double y, double z) { double test2_result; test2_result = cos(cos(cos(cos(cos(cos(cos(cos(x + y + z)))))))); return test2_result; } rtz#ifndef PROJECT__FILE__H #define PROJECT__FILE__H double test1(double x, double y, double z); double test2(double x, double y, double z); #endif Nrrrrrexpandr)rrrr3r9r4rrvs r(test_complicated_codegenr,sHHgGA! CFSVOc!f,q088:; #c#c#c#c!%!)n*=&>"?@ABCDIYve5 IF !9Q<8 ## # !9Q<. 0 00 b !9Q<8 ## # !9Q<   r*c `^RIHpHp^RIHpV!RRR7wr4V!R4pV!R4pV!R4pV!R V4pV!R V4p \ R \ Wx,WXV 3,Wi,,43R R RRR7wwrwrV R8XgQhRpWRRW,V ,,/,8XglWRRWV,,,/,8XgIWRRW,V ,,/,8Xg&WRRWV,,,/,8XgQhV R8XgQhV R8XgQhR#)rr:rn mTr@r=r3r9rBj matrix_vectorC99rqFrrrsa#include "file.h" #include void matrix_vector(double *A, int m, int n, double *x, double *y) { for (int i=0; i>   |qsQw'?@@ @ |qQ3w'?@@ @ |qsQw'?@@ @ |qQ3w'?@@ @B A >>    r*c^RIHpHp\RR\R7wr#V!R4pV!R4pV!W#4pRRVP P R VP /,p\R \WR,WB,44p\4p\4p \V PV.4p W8XgQh\\4;_uu_4\VPV.4R R R 4R # +'giR #;i) rr:i mTrAclsr3r9z#include "file.h" #include void test_dummies(int m_%(mno)i, double *x, double *y) { for (int i_%(ino)i=0; i_%(ino)i void matrix_vector(double *A, int m, int n, int o, int p, double *x, double *y) { for (int i=o; i<%(upperi)s; i++){ y[i] = 0; } for (int i=o; i<%(upperi)s; i++){ for (int j=0; j>  1q5%+ ,H H|qsQw'?@@ @ H|qQ3w'?@@ @ H|qsQw'?@@ @ H|qQ3w'?@@ @B A >>    r*c ^RIHp^RIHpHp\ R4wr4p\ RV!WB!V44V!V4.4p\4pVPV.RRRR7pV^,^,R8XgQhR p V^,^,V 8XgQhR #) rr rrr]foor.Frrtest.cz#include "test.h" #include double foo(double x, double *y) { (*y) = sin(x); double foo_result; foo_result = cos(x); return foo_result; } N sympy.core.relationalr rrrrrrwrite r rrr3r9r4rIcrvrbs r(test_output_arg_crs.CgGA!UXaQ0#a&9:A A WWaS&eW double foo(double if_, double *while_) { (*while_) = sin(if_); double foo_result; foo_result = cos(if_); return foo_result; } Nrrs r( test_output_arg_c_reserved_wordsrs.Cn%GA!UXaQ0#a&9:A A WWaS&eW void c(double *A, double *b, double *out) { out[0] = A[0]*b[0] + A[1]*b[1] + A[2]*b[2]; out[1] = A[3]*b[0] + A[4]*b[1] + A[5]*b[2]; out[2] = A[6]*b[0] + A[7]*b[1] + A[8]*b[2]; } N) rrrrarC result_var_namer)rN) A_symb_symr=rrcgenrIrrbs r(test_multidim_c_argument_csers a #E a #Eu Au A A F -D S!A!&AKKO!AKKO dkkA3v 6D     r*c H\R4wrp\R4wr4\R^^4p\V\^^V..44p\W@V,V,4p\V^V,4pRWgV.3p Rp \ V RRRRWW!WS3R7p V ^,^,p W8XgQhR#) r]B,Cr=r.z#include "test.h" #include void test(double x, double *C, double z, double y, double *A, double *B) { (*C) = z*(x + y); A[0] = 1; A[1] = 2; A[2] = x; (*B) = 2*x; } rFr$r%r0Nrrr rr) r3r9r4r>rpr=rrexpr3rrbrvr's r( test_ccode_results_named_orderedr sgGA! 5>DAS!QA QAq {+ ,E QQ "E Q! E%./I  YVE()aA'9;F AYq\F   r*c0\R^^4p\R^^4p\R^^4p\R^^4pR\WR ,4\W R ,4\W0R ,4.3p\VRRRRR7pV^,^,pRpWg8XgQhR #) r=r>rpDr.rFrra#include "test.h" #include void test(double *A, double *B, double *C, double *D) { B[0] = A[0]; B[1] = A[1]; B[2] = A[2]; C[0] = A[3]; C[1] = A[4]; C[2] = A[5]; D[0] = A[2]; D[1] = A[5]; D[2] = A[8]; D[3] = A[11]; D[4] = A[14]; } NrNNNrrrr rr=r>rprrrvr'rbs r(test_ccode_matrixsymbol_slicer8sS!QAS!QAS!QAS!QA(1g."1g."1g.01IYve5 IF AYq\F  "   r*c :\R4wrr#\R^^4pR\V\W,.W,W#,,.W,V,V,..44.3p\ RR7p\ WVRRR7pV^,^,pRp W8XgQhR#) za b c der.T)rF)rPr$r%z#include "test.h" #include void test(double a, double b, double c, double d, double *e) { const double x0 = a*b; const double x1 = c*d; e[0] = x0; e[1] = x0 + x1; e[2] = x0*x1; } N)rrr rrr) r8rrdrr generatorrvr'rbs r(test_ccode_cserUs#JA!S!QA(1fqseacACi[13q57)-L&MNOPIT"I Y5 NF AYq\F     r*c\R^^4pRp\4p\WRRV3R7pV^,^,pRpWE8XgQhR#)r3F)rPr$r%r0z#include "test.h" #include double test(double *x) { double test_result; test_result = 1.0; return test_result; } N)r.g?)rrr)r3rrrvr'rbs r(test_ccode_unused_array_argrisUS!QAI I Y5bcae fF AYq\F     r*c \R^^4p\R^^4p\RRR7pRV^,V^,,3p\VRRRWV3R7pV^,^,pR pWV8XgQhR #) XYr4Tr@testBugrpF)languager$r%r0z#include "testBug.h" #include double testBug(double *X, double *Y, int z) { double testBug_result; testBug_result = X[0] + X[1]; return testBug_result; } N)rrr)r!r"r4rrvr'rbs r( test_ccode_unused_array_arg_funcr%|s~S1AS1Ad#AAaD1Q4K(I YU%\]bc[d eF AYq\F     r*cX\4p\VP.4pVR8XgQhR#Nrr)dump_f95rOs r(test_empty_f_coder+s'zH ))2 .F R<."r~r*N)rrrrrrs @@r(test_multiple_results_frEsMgGA! UAIE UAIE GzH <GHr*c(\\R4R#)c\R.4#rr1rr*r(r5#test_no_results_f..&rr*Nrrr*r(test_no_results_frI%rr*cB^RIHp^RIHp^RIHpHpHp^RIH p^RI H pH pH pHp Hp Hp \#R4p RV!V 43RV!V 43R V!V 43R V!V 43R V !V 43R V!V 43R V!V 43RV!V 43RV !V 43RV!V 43RV!V 43RV !V 43RV!V 43. p \%V RRRRR7pV^,^,R8XgQhRpV^,^,V8XgQhV^,^,R8XgQhRpV^,^,V8XgQhR#)rrrrrrr3test_absrrrrrrrrrrrrr?rqFrrr@aREAL*8 function test_abs(x) implicit none REAL*8, intent(in) :: x test_abs = abs(x) end function REAL*8 function test_acos(x) implicit none REAL*8, intent(in) :: x test_acos = acos(x) end function REAL*8 function test_asin(x) implicit none REAL*8, intent(in) :: x test_asin = asin(x) end function REAL*8 function test_atan(x) implicit none REAL*8, intent(in) :: x test_atan = atan(x) end function REAL*8 function test_cos(x) implicit none REAL*8, intent(in) :: x test_cos = cos(x) end function REAL*8 function test_cosh(x) implicit none REAL*8, intent(in) :: x test_cosh = cosh(x) end function REAL*8 function test_log(x) implicit none REAL*8, intent(in) :: x test_log = log(x) end function REAL*8 function test_ln(x) implicit none REAL*8, intent(in) :: x test_ln = log(x) end function REAL*8 function test_sin(x) implicit none REAL*8, intent(in) :: x test_sin = sin(x) end function REAL*8 function test_sinh(x) implicit none REAL*8, intent(in) :: x test_sinh = sinh(x) end function REAL*8 function test_sqrt(x) implicit none REAL*8, intent(in) :: x test_sqrt = sqrt(x) end function REAL*8 function test_tan(x) implicit none REAL*8, intent(in) :: x test_tan = tan(x) end function REAL*8 function test_tanh(x) implicit none REAL*8, intent(in) :: x test_tanh = tanh(x) end function rtaAinterface REAL*8 function test_abs(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_acos(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_asin(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_atan(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_cos(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_cosh(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_log(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_ln(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_sin(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_sinh(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_sqrt(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_tan(x) implicit none REAL*8, intent(in) :: x end function end interface interface REAL*8 function test_tanh(x) implicit none REAL*8, intent(in) :: x end function end interface N)rrrrrrrrrrrrrrrrrrr)rrrrrrrrrrrrr3rrvrbs r(test_intrinsic_math_codegenrL)sK8:HH=ZZ A SV d1g d1g d1g SV d1g SV CF SV d1g d1g SV d1gIYve5 IF !9Q<: %% %@  F !9Q<8 ## # !9Q<8 ## #M  ` !9Q<8 ## #r*c4^RIHp\R4wrRV!W43RW,3.p\VRRRRR7pV^,^,R 8XgQhR pV^,^,V8XgQhV^,^,R 8XgQhR pV^,^,V8XgQhR #)rrrrrr?rqFrrr@zREAL*8 function test_atan2(x, y) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y test_atan2 = atan2(x, y) end function REAL*8 function test_pow(x, y) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y test_pow = x**y end function rtainterface REAL*8 function test_atan2(x, y) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y end function end interface interface REAL*8 function test_pow(x, y) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y end function end interface Nr)rr3r9rrvrbs r(test_intrinsic_math2_codegenrNs> 5>DA uQ{# QTIYve5 IF !9Q<: %% %   !9Q<8 ## # !9Q<8 ## #  !9Q<8 ## #r*c ^RIHpHpHp\ R4wr4pRV!V4V!V4,V!V4,^,P 43RV!V!V!V!V!V!V!V!W4,V,444444443.p\ VRRRRR7pV^,^,R 8XgQhR pV^,^,V8XgQhV^,^,R 8XgQhR pV^,^,V8XgQhR #)rrr]rrr?rqFrrr@a{REAL*8 function test1(x, y, z) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y REAL*8, intent(in) :: z test1 = sin(x)**7 + 7*sin(x)**6*cos(y) + 7*sin(x)**6*tan(z) + 21*sin(x) & **5*cos(y)**2 + 42*sin(x)**5*cos(y)*tan(z) + 21*sin(x)**5*tan(z) & **2 + 35*sin(x)**4*cos(y)**3 + 105*sin(x)**4*cos(y)**2*tan(z) + & 105*sin(x)**4*cos(y)*tan(z)**2 + 35*sin(x)**4*tan(z)**3 + 35*sin( & x)**3*cos(y)**4 + 140*sin(x)**3*cos(y)**3*tan(z) + 210*sin(x)**3* & cos(y)**2*tan(z)**2 + 140*sin(x)**3*cos(y)*tan(z)**3 + 35*sin(x) & **3*tan(z)**4 + 21*sin(x)**2*cos(y)**5 + 105*sin(x)**2*cos(y)**4* & tan(z) + 210*sin(x)**2*cos(y)**3*tan(z)**2 + 210*sin(x)**2*cos(y) & **2*tan(z)**3 + 105*sin(x)**2*cos(y)*tan(z)**4 + 21*sin(x)**2*tan & (z)**5 + 7*sin(x)*cos(y)**6 + 42*sin(x)*cos(y)**5*tan(z) + 105* & sin(x)*cos(y)**4*tan(z)**2 + 140*sin(x)*cos(y)**3*tan(z)**3 + 105 & *sin(x)*cos(y)**2*tan(z)**4 + 42*sin(x)*cos(y)*tan(z)**5 + 7*sin( & x)*tan(z)**6 + cos(y)**7 + 7*cos(y)**6*tan(z) + 21*cos(y)**5*tan( & z)**2 + 35*cos(y)**4*tan(z)**3 + 35*cos(y)**3*tan(z)**4 + 21*cos( & y)**2*tan(z)**5 + 7*cos(y)*tan(z)**6 + tan(z)**7 end function REAL*8 function test2(x, y, z) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y REAL*8, intent(in) :: z test2 = cos(cos(cos(cos(cos(cos(cos(cos(x + y + z)))))))) end function rta4interface REAL*8 function test1(x, y, z) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y REAL*8, intent(in) :: z end function end interface interface REAL*8 function test2(x, y, z) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y REAL*8, intent(in) :: z end function end interface Nr) rrrr3r9r4rrvrbs r(test_complicated_codegen_f95rP sHHgGA! CFSVOc!f,q088:; #c#c#c#c!%!)n*=&>"?@ABCDIYve5 IF !9Q<: %% %  < !9Q<8 ## # !9Q<8 ## #  $ !9Q<8 ## #r*c r^RIHpHp^RIHpV!RRR7wr4\ VR4wrVpV!RV4pV!RV4p \ R \Wx,WXV 3,Wi,,43R R R R R 7wwrwrV R8XgQhRpWRR/,8XgWRR/,8XgQhV R8XgQhV R8XgQhR#)rr:rzn,mTr@AxyrBrrr?rqFrrr@a~subroutine matrix_vector(A, m, n, x, y) implicit none INTEGER*4, intent(in) :: m INTEGER*4, intent(in) :: n REAL*8, intent(in), dimension(1:m, 1:n) :: A REAL*8, intent(in), dimension(1:n) :: x REAL*8, intent(out), dimension(1:m) :: y INTEGER*4 :: i INTEGER*4 :: j do i = 1, m y(i) = 0 end do do i = 1, m do j = 1, n y(i) = %(rhs)s + y(i) end do end do end subroutine r A(i, j)*x(j) x(j)*A(i, j)rtainterface subroutine matrix_vector(A, m, n, x, y) implicit none INTEGER*4, intent(in) :: m INTEGER*4, intent(in) :: n REAL*8, intent(in), dimension(1:m, 1:n) :: A REAL*8, intent(in), dimension(1:n) :: x REAL*8, intent(out), dimension(1:m) :: y end subroutine end interface N)rFr;r<rrrGrrrs r( test_loopsrUGs-) 5$ 'DA+u%GA! C A C A") "QT1T714<015&V[#]JR     * un55 5 E>2223 3 >>     r*cZ^RIHpHp\RR\R7wr#V!R4pV!R4pV!W#4pRRVP P R VP /,p\R \WR,WB,44p\4p\VPV.4p W8XgQhR #) rr:rTrr3r9a>subroutine test_dummies(m_%(mcount)i, x, y) implicit none INTEGER*4, intent(in) :: m_%(mcount)i REAL*8, intent(in), dimension(1:m_%(mcount)i) :: x REAL*8, intent(out), dimension(1:m_%(mcount)i) :: y INTEGER*4 :: i_%(icount)i do i_%(icount)i = 1, m_%(mcount)i y(i_%(icount)i) = x(i_%(icount)i) end do end subroutine icountmcountrN) rFr;r<rr rHrrrrr)r*) r;r<rBr?r3r9rbrIrrs r(test_dummy_loops_f95rYzs- 5$E 2DACACA A A  177&&!--@ AH ^Rad^4A A ajj1# &D   r*c ^RIHpHp^RIHpV!RRR7wr4rVV!R4wrxp V!V4V!W64V!WE43,pV!V4V!WE4,pV!V 4V!W64,p \ R\ WWx,,43RR R R R 7wwrwrV R 8XgQhR pWRR/,8XgWRR/,8XgQhV R8XgQhV R8XgQhR#)rr:rzi,j,n,mTr@zA,x,yrr?rqFrrr@aasubroutine matrix_vector(A, m, n, x, y) implicit none INTEGER*4, intent(in) :: m INTEGER*4, intent(in) :: n REAL*8, intent(in), dimension(1:m, 1:n) :: A REAL*8, intent(in), dimension(1:n) :: x REAL*8, intent(inout), dimension(1:m) :: y INTEGER*4 :: i INTEGER*4 :: j do i = 1, m do j = 1, n y(i) = %(rhs)s + y(i) end do end do end subroutine rrSrTrtainterface subroutine matrix_vector(A, m, n, x, y) implicit none INTEGER*4, intent(in) :: m INTEGER*4, intent(in) :: n REAL*8, intent(in), dimension(1:m, 1:n) :: A REAL*8, intent(in), dimension(1:n) :: x REAL*8, intent(inout), dimension(1:m) :: y end subroutine end interface Nr)r;r<rrBrrr?r=r3r9rrrrrbs r(test_loops_InOutr[s-)D1JA!gGA!As1y#a)+,AAs1y!AAs1y!A") "QAC.)5&e#UJR     $ ~66 6 ~66 68 7 >>     r*c ^RIHpHp^RIHpV!RRR7wr4rVV!RWF3R7pV!R4pV!R 4p V!R WT^, 34p V!R V4p \ R \ W,WzV 3,W,,43R RRRR7wwrwrRRRR\V^, 4R\^V,4R\V^, V, 4/,pV VRR/,8XgV VRR/,8XgQhR#R#)rr:rrTr@r=rr3r9rBrrr?rqFrrasubroutine matrix_vector(A, m, n, o, p, x, y) implicit none INTEGER*4, intent(in) :: m INTEGER*4, intent(in) :: n INTEGER*4, intent(in) :: o INTEGER*4, intent(in) :: p REAL*8, intent(in), dimension(1:m, 1:p) :: A REAL*8, intent(in), dimension(1:n) :: x REAL*8, intent(out), dimension(1:%(iup-ilow)s) :: y INTEGER*4 :: i INTEGER*4 :: j do i = %(ilow)s, %(iup)s y(i) = 0 end do do i = %(ilow)s, %(iup)s do j = 1, n y(i) = %(rhs)s + y(i) end do end do end subroutine rriupilowziup-ilowrSrTN)rFr;r<rrrrstrrs r(test_partial_loops_fr`s.)D1JA!Cv&ACACA C!UA C A") "QT1T714<015&V[#]JR * y s1q5zAE CA N  +H8 8un55 5 E>2223 32 6r*c ^RIHp^RIHpHp\ R4wr4p\ RV!WB!V44V!V4.4p\4pVPV.RRRR7pV^,^,R8XgQhV^,^,R 8XgQhR #) rr rr]rr.Frrztest.f90z~REAL*8 function foo(x, y) implicit none REAL*8, intent(in) :: x REAL*8, intent(out) :: y y = sin(x) foo = cos(x) end function N) rr rrrrrrr) r rrr3r9r4rIrrvs r(test_output_arg_frbs.CgGA!UXaQ0#a&9:A A WWaS&eW ?G ajj7) ,D   "D d? " 4":%%& &% #r*c\R4p^pVF pW, pK \RV4p\4p\VPV.4pRpWV8XgQhR#)zx:20r.a REAL*8 function test(x0, x1, x10, x11, x12, x13, x14, x15, x16, x17, x18, & x19, x2, x3, x4, x5, x6, x7, x8, x9) implicit none REAL*8, intent(in) :: x0 REAL*8, intent(in) :: x1 REAL*8, intent(in) :: x10 REAL*8, intent(in) :: x11 REAL*8, intent(in) :: x12 REAL*8, intent(in) :: x13 REAL*8, intent(in) :: x14 REAL*8, intent(in) :: x15 REAL*8, intent(in) :: x16 REAL*8, intent(in) :: x17 REAL*8, intent(in) :: x18 REAL*8, intent(in) :: x19 REAL*8, intent(in) :: x2 REAL*8, intent(in) :: x3 REAL*8, intent(in) :: x4 REAL*8, intent(in) :: x5 REAL*8, intent(in) :: x6 REAL*8, intent(in) :: x7 REAL*8, intent(in) :: x8 REAL*8, intent(in) :: x9 test = x0 + x1 + x10 + x11 + x12 + x13 + x14 + x15 + x16 + x17 + x18 + & x19 + x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9 end function Nr2)r3r2symrarPr'rbs r(test_f_code_call_signature_wraprj s]A D 64(GzH ))G9 5FH8   r*cPaa\R4woo\\VV3Rl4R#)zx,Xc0<\RSS,3RR4#)r.f95r#)rr!r3sr(r5!test_check_case..Js&!A#x!Hr*N)rrrrns@@r(test_check_caserpHs 5>DAq <HIr*c\R4p\RRR7p\RW,3RR4R# \d?pTP^,P R4'd \ R4hRp?R#Rp?ii;i) r3T) my_assumptionr.rmr#zFortran ignores case.z$This exception should not be raised!N)rrrrf startswithAssertionError)x1x2rs r(test_check_case_false_positiverwMsn B D )BI1 I 66!9   7 8 8 !GH H 9Is1 A:3A55A:c \R4wrR^V,3.p\VRRRR7p\VRRRRR7pV^,^,V^,^,8XgQhRW,3p\VRRRR7p\VRRRRR7pV^,^,V^,^,8XgQhR\W.W,W, ..43p\VRRRR7p\VRRRRR7pV^,^,V^,^,8XgQhR#)rrr?FrrrN)rrr)r3r9rrv expresults r( test_c_fortran_omit_routine_namerz[s 5>DA1I Ye5 AF 5%UKI !9Q<9Q<? ** * I Ye5 AF 5%UKI !9Q<9Q<? ** *ac 345I Ye5 AF 5%UKI !9Q<9Q<? ** *r*c(\R4wrpW,p\W.V^..4pRW433p\VRRRRR7pV^,^,pRpVP4^,p V P R4p V ^,p VRV /,pWx8XgQhR#) r]r.rmFrra2REAL*8 function test(x, y, z, out_%(hash)s) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y REAL*8, intent(in) :: z REAL*8, intent(out), dimension(1:2, 1:2) :: out_%(hash)s out_%(hash)s(1, 1) = x out_%(hash)s(2, 1) = z out_%(hash)s(1, 2) = y out_%(hash)s(2, 2) = 16 test = x + y end function _hashN)rrr splitlinessplit) r3r9r4e1e2rrvr'rbr8rrs r(test_fcode_matrix_outputrmsgGA! B !!R! "B""I Yve5 IF AYq\F   AA  A A$C63-'H   r*c H\R4wrp\R4wr4\R^^4p\V\^^V..44p\W@V,V,4p\V^V,4pRWgV.3p \ V RRRRWWWS3R7p V ^,^,p Rp W8XgQhR#) r]r r=r.rmFr a!subroutine test(x, z, y, C, A, B) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: z REAL*8, intent(in) :: y REAL*8, intent(out) :: C REAL*8, intent(out) :: B REAL*8, intent(out), dimension(1:1, 1:3) :: A C = z*(x + y) A(1, 1) = 1 A(1, 2) = 2 A(1, 3) = x B = 2*x end subroutine Nr ) r3r9r4r>rpr=rrr rrvr'rbs r( test_fcode_results_named_orderedrsgGA! 5>DAS!QA QAq {+ ,E QQ "E Q! E%./I Yve5()aA'9;F AYq\F    r*c0\R^^4p\R^^4p\R^^4p\R^^4pR\WR ,4\W R ,4\W0R ,4.3p\VRRRRR7pV^,^,pRpWg8XgQhR #) r=r>rprr.rmFrrasubroutine test(A, B, C, D) implicit none REAL*8, intent(in), dimension(1:2, 1:3) :: A REAL*8, intent(out), dimension(1:1, 1:3) :: B REAL*8, intent(out), dimension(1:1, 1:3) :: C REAL*8, intent(out), dimension(1:2, 1:1) :: D B(1, 1) = A(1, 1) B(1, 2) = A(1, 2) B(1, 3) = A(1, 3) C(1, 1) = A(2, 1) C(1, 2) = A(2, 2) C(1, 3) = A(2, 3) D(1, 1) = A(1, 3) D(2, 1) = A(2, 3) end subroutine Nrrrrrs r(test_fcode_matrixsymbol_slicersS!QAS!QAS!QAS!QA(1g."1g."1g.01IYve5 IF AYq\F  "   r*c\R^^4pRVR ,3p\VRRRRR7pV^,^,pRpVP4^,pVPR4pV^,pVRV/,pW48XgQhR#) r=r.rmFrrzsubroutine test(A, out_%(hash)s) implicit none REAL*8, intent(in), dimension(1:2, 1:3) :: A REAL*8, intent(out), dimension(1:2, 1:1) :: out_%(hash)s out_%(hash)s(1, 1) = A(1, 2) out_%(hash)s(2, 1) = A(2, 2) end subroutine r|r}N)rr)rrr~r)r=rrvr'rbr8rrs r(&test_fcode_matrixsymbol_slice_autonamersS!QA4!I Yve5 IF AYq\F   AA  A A$C63-'H   r*c\R4wrr#\RW,3RRRV3R7pV^,^,pRpWV8XgQhRp\RW,V,3RRRW#3R7pV^,^,pWV8XgQhR#) zx y z tfr?F)r$r% global_varszPREAL*8 function f(x) implicit none REAL*8, intent(in) :: x f = x*y end function z#include "f.h" #include double f(double x, double y) { double f_result; f_result = x*y + z; return f_result; } rpNru)r3r9r4trvr'rbs r(test_global_varsrs#JA! c13ZuE"#'F AYq\F       c13q5\3uE"#)F AYq\F   r*c^RIHp^RIHpV!RRR//R7p\ R4wr4V!W4,4p\ VR.R 7pR p\ R V3R R VR 7pV^,^,p W8XgQh\ VR7pVPPR4Rp\ R V3R R VR 7pV^,^,p W8XgQhR#)rC99CodePrinter)expuser_functionsrfastexp)settingszx yz#include "fastexp.h")printerpreprocessor_statementsz#include "expr.h" #include "fastexp.h" double expr(double x, double y) { double expr_result; expr_result = fastexp(x + y); return expr_result; } r2F)r$r%rP)rz#include "expr.h" #include #include "fastexp.h" double expr(double x, double y) { double expr_result; expr_result = fastexp(x + y); return expr_result; } N) sympy.printing.crrrrrrrappend) rrrr3r9r2genrbrvr's r(test_custom_codegenrs/:'7%9K&LMG 5>DA qu:D W.D-E GC  fd^E MF AYq\F    W %C&&'=>  fd^E MF AYq\F   r*c ^RIHp!RRV4p\R4pV^,pR R .p\RV3RRRRV!4R 7pWT8XgQhR #) rrc&a]tRtRtoRtRtVtR#)*test_c_with_printer..CustomPrinteri*cRPVPVP4VPVP44#)zfastpow({}, {}))format_printbaser)selfr2s&&r( _print_Pow5test_c_with_printer..CustomPrinter._print_Pow+s6$++DKK ,B,0KK,AC Cr*rN)__name__ __module__ __qualname____firstlineno__r__static_attributes____classdictcell__) __classdict__s@r( CustomPrinterr*s C Cr*rr3r.rprqF)r$r%rN)rsz#include "file.h" #include double test(double x) { double test_result; test_result = fastpow(x, 3); return test_result; } )rtzP#ifndef PROJECT__FILE__H #define PROJECT__FILE__H double test(double x); #endif )rrrr)rrr3r2rbrvs r(test_c_with_printerr'sb/CC  A a4D  Hfd^SUVcVe fF   r*c^RIpRVPPn\ RRR7p\ RRR7p\RW,3RRRRR 7pV^,^,pR pWE8XgQh\ R4p\ RRR7p\RW,3RRRRR 7pV^,^,pR pWE8XgQhRVPPnR#) rNTr3)realr9r.rmFrrzsREAL*8 function test(x, y) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y test = x + y end function z{COMPLEX*16 function test(x, y) implicit none COMPLEX*16, intent(in) :: x REAL*8, intent(in) :: y test = x + y end function )sympy.utilities.codegen utilitiesrCOMPLEX_ALLOWEDr )sympyr3r9rvr'rbs r(test_fcode_complexrDs".2EOO+sAsA fQS\5&e LFQilF     s AsA fQS\5&e LFQilF     .3EOO+r*N)rqFF)_ior sympy.corerrrrrr rr rr 'sympy.functions.special.error_functionsr sympy.integrals.integralsrsympy.matricesrrrrrrrrrrrrrrsympy.testing.pytestrsympy.utilities.lambdifyrr)rKrQrXr[rcrerirkrnrwrrrrrrrrrrrr rrrr%r+r-r/r3r5r8r:r=rArErIrLrNrPrUrYr[r`rbrgrjrprwrzrrrrrrrrrr*r(rst>>*$7./(9 ?6@ $T $$"$ , I99x0AH'T$.)X$*$*.4:(&&   $  &$&6 I9o$d+$\;$|0f0.b,3^&&6%PJ I+$:<<.8,\:4r*