o jgB@sddlmZddlmZmZmZmZmZmZddl m Z ddl m Z ddl mZddlmZddlmZmZddlmZmZmZmZmZmZmZmZmZmZmZdd l m!Z!dd l"m#Z#dd dZ$ddZ%ddZ&ddZ'ddZ(ddZ)ddZ*ddZ+ddZ,dd Z-d!d"Z.d#d$Z/d%d&Z0d'd(Z1d)d*Z2d+d,Z3d-d.Z4d/d0Z5d1d2Z6d3d4Z7d5d6Z8d7d8Z9d9d:Z:d;d<Z;d=d>ZdCdDZ?dEdFZ@dGdHZAdIdJZBdKdLZCdMdNZDdOdPZEdQdRZFdSdTZGdUdVZHdWdXZIdYdZZJd[d\ZKd]d^ZLd_d`ZMdadbZNdcddZOdedfZPdgdhZQdidjZRdkdlZSdmdnZTdodpZUdqdrZVdsdtZWdudvZXdwdxZYdydzZZd{d|Z[d}d~Z\ddZ]ddZ^dS))StringIO)symbolsEqpiCatalanLambdaDummyEquality)Symbol)erf)Integral)Matrix MatrixSymbol) codegen make_routineCCodeGen C89CodeGen C99CodeGen InputArgument CodeGenErrorFCodeGenCodeGenArgumentListErrorOutputArgument InOutArgument)raises)implemented_functionfileFcCs*t}|||||||}||S)a5Wrapper 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_fnroutinesprefixheaderemptyoutputsourcer'Z/var/www/html/zoom/venv/lib/python3.10/site-packages/sympy/utilities/tests/test_codegen.py get_strings r)cstd\ttfddttfddtdtgd}dd|jDgksDJd d|jDttttgksTJtdtgd}d d|jDtttgkspJd d l m }m }t |d dg\}}tddd}|d|}tdt|||||||gd}dd|jD|j |j |gksJtddfddftdtgd}dd|jDgksJdS)Nza x y zcstdgdSNtestargument_sequencerr')exprxzr'r(&sz-test_Routine_argument_order..cstdtgdSr*)rrr'ar/r0yr1r'r(r2(s r+r,cSg|]}|jqSr'name.0argr'r'r( +z/test_Routine_argument_order..cSg|]}t|qSr'typer9r'r'r(r<,cSr>r'r?r9r'r'r(r</rAr IndexedBaseIdxABmTintegericSr6r'r7r9r'r'r(r<7r=cSr6r'r7r9r'r'r(r<;r=)rrrrr argumentsrrr sympy.tensorrCrDmaplabelr )rrCrDrErFrGrJr'r3r(test_Routine_argument_order#s,      "" $rScC"t}t|jg}|dksJdS)Nz$#include "file.h" #include rr)dump_ccode_genr&r'r'r(test_empty_c_code> rYcCBt}t|jgdd}|dddksJ|dddksJdS)NTr#RzR/****************************************************************************** *a* * * * See http://www.sympy.org/ for more information. * * * * This file is part of 'project' * ******************************************************************************/ #include "file.h" #include rUrWr'r'r(test_empty_c_code_with_commentD  r_cCrT)Nz9#ifndef PROJECT__FILE__H #define PROJECT__FILE__H #endif )rr)dump_hrWr'r'r(test_empty_c_headerVrZrbcCLtd\}}}|||}td|}t}t|j|g}d}||ks$JdS)Nx,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; } rrrr)rVr0r5r1r/routinerXr&expectedr'r'r(test_simple_c_code\   rjcCrc)Nzif, 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; } )rrrr)rVrgr'r'r(test_c_code_reserved_wordsnrkrlcCs@tdtt}t}t|j|g}dtd}||ksJdS)Nr+z#include "file.h" #include double test() { double test_result; double const Catalan = %s; test_result = pow(M_PI, Catalan); return test_result; } )rrrrr)rVevalfrhrXr&rir'r'r(test_numbersymbol_c_codes rpcCRtd\}}}||}td||||gd}t}t|j|g}d}||ks'JdS)Nrdr+r,z#include "file.h" #include double test(double z, double x, double y) { double test_result; test_result = x + y; return test_result; } rfrgr'r'r(test_c_code_argument_order rrcCrc)Nrdr+d#ifndef PROJECT__FILE__H #define PROJECT__FILE__H double test(double x, double y, double z); #endif )rrrr)rargr'r'r(test_simple_c_headers  rucCsHtd\}}}|||}ddg}td|fddddd}||ks"JdS) Nrd)file.cre)file.hrtr+CrFr#r$rr)r0r5r1r/riresultr'r'r(test_simple_c_codegens r|cRtd\}}}|||}|||}td||gtttfdddS)Nrdr+ctjgSNr)rar'rXrhr'r(r2z)test_multiple_results_c..)rrrrrr0r5r1expr1expr2r'rr(test_multiple_results_c  rcCttdddS)NcS tdgSNr+r.r'r'r'r(r2 z#test_no_results_c..r ValueErrorr'r'r'r(test_no_results_crcCspddlm}ddlm}ddlm}m}m}ddlm }m }ddl m }ddl m}m} m} m} m} m} td}d ||fd ||fd | |fd | |fd ||fd| |fd||fd||fd||fd||fd| |fd||fd||fd| |fd||fg}t|ddddd}|dddksJ|dddksJ|dddksJ|ddd ksJdS)!NrAbslogcoshsinhtanh)ceilingfloorsqrtacosasinatancossintanr0 test_fabs test_acos test_asin test_atan test_ceiltest_cos test_cosh test_floortest_logtest_lntest_sin test_sinh test_sqrttest_tan test_tanhC89rFryrvrKa#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; } rwa#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 )$sympy.functions.elementary.complexesr&sympy.functions.elementary.exponentialr%sympy.functions.elementary.hyperbolicrrr#sympy.functions.elementary.integersrr(sympy.functions.elementary.miscellaneousr(sympy.functions.elementary.trigonometricrrrrrrrr)rrrrrrrrrrrrrrr0 name_exprr{r'r'r(test_ansi_math1_codegens@                      rcCsddlm}td\}}d|||fd||fg}t|ddddd }|ddd ks,J|dd d ks6J|d dd ks@J|d d dksJJdS)Nratan2x,y test_atan2test_powrrFryrvrKa*#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; } rwz#ifndef PROJECT__FILE__H #define PROJECT__FILE__H double test_atan2(double x, double y); double test_pow(double x, double y); #endif rrrr)rr0r5rr{r'r'r(test_ansi_math2_codegens       rc Csddlm}m}m}td\}}}d||||||dfd|||||||||||fg}t|ddd d d }|ddd ksNJ|dd d ksXJ|d ddksbJ|d d dkslJdS)Nrrrrrdtest1test2rrFryrvrKa-#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; } rwz#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 rrrrrexpandr)rrrr0r5r1rr{r'r'r(test_complicated_codegen,s". 1  rcCs4ddlm}m}ddlm}|ddd\}}|d}|d}|d }|d |}|d |} td t||||| f|| fd dddd\\} } \} } | dksPJd}| |dd||| iks| |dd| ||iks| |dd||| iks| |dd| ||iksJ| dksJ| dksJdS)NrrBrn mTrHrEr0r5rJj matrix_vectorC99rFryrva#include "file.h" #include void matrix_vector(double *A, int m, int n, double *x, double *y) { for (int i=0; i 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 double foo(double x, double *y) { (*y) = sin(x); double foo_result; foo_result = cos(x); return foo_result; } rK sympy.core.relationalr rrrrrrwrite r rrr0r5r1rRcr{rir'r'r(test_output_arg_c  rc Cr) Nrr rz if, while, zrr+Fryrz#include "test.h" #include double foo(double if_, double *while_) { (*while_) = sin(if_); double foo_result; foo_result = cos(if_); return foo_result; } rKrrr'r'r( test_output_arg_c_reserved_wordsrrc Cstddd}tddd}t|}t|}||}tddd}|d|}d |jd _d |jd _t|j|gdd }d }||ksAJdS) NrErMbrKr+T)projectcserout)r"z#include "test.h" #include 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]; } ) rrrrhrN result_var_namer)rV) A_symb_symrErrcgenrRrrir'r'r(test_multidim_c_argument_cses       rc Cstd\}}}td\}}tddd}t|tdd|gg}t||||}t|d|}d|||gf} d} t| d dd d ||||||fd } | d d} | | ksSJdS) NrdB,CrErKrMrLr+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$r-rrrr rr) r0r5r1rFrxrErrexpr3rrir{r&r'r'r( test_ccode_results_named_ordereds    r cCstddd}tddd}tddd}tddd}dt||d ddft||dddft||ddd fgf}t|d dd d d }|d d}d}||ksQJdS)NrErrMrFrKrxDr+rrLrFrya#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]; } rr rrErFrxr rr{r&rir'r'r(test_ccode_matrixsymbol_slice8     rc Cstd\}}}}tddd}dt|t||g||||g||||gggf}tdd}t||ddd }|d d}d } || ksGJdS) Nza b c derMrKr+T)rF)rXr#r$rz#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; } )rrr rrr) r4rrdrr generatorr{r&rir'r'r(test_ccode_cseUs <   rcCsJtddd}d}t}t||dd|fd}|dd}d}||ks#JdS) Nr0rLrK)r+g?F)rXr#r$r-rz#include "test.h" #include double test(double *x) { double test_result; test_result = 1.0; return test_result; } )rrr)r0rrr{r&rir'r'r(test_ccode_unused_array_argis   rcCsptddd}tddd}tddd}d|d |df}t|d d d |||fd }|d d}d }||ks6JdS)NXrMrKYr1TrHtestBugrrxF)languager#r$r-z#include "testBug.h" #include double testBug(double *X, double *Y, int z) { double testBug_result; testBug_result = X[0] + X[1]; return testBug_result; } )rrr)rrr1rr{r&rir'r'r( test_ccode_unused_array_arg_func|s     rcCrTNrr)dump_f95rWr'r'r(test_empty_f_coderZrcCr[)NTr\r]zR!****************************************************************************** !*r^a* !* * !* See http://www.sympy.org/ for more information. * !* * !* This file is part of 'project' * !****************************************************************************** rrWr'r'r(test_empty_f_code_with_headerr`r cCrTr)rr)rarWr'r'r(test_empty_f_headerrZr!cCrc)Nrdr+REAL*8 function test(x, y, z) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y REAL*8, intent(in) :: z test = z*(x + y) end function rrrr)rrgr'r'r(test_simple_f_coderkr$cCsJtdtt}t}t|j|g}dtdtdf}||ks#JdS)Nr+zREAL*8 function test() implicit none REAL*8, parameter :: Catalan = %sd0 REAL*8, parameter :: pi = %sd0 test = pi**Catalan end function rm)rrrrr)rrnror'r'r(test_numbersymbol_f_codesr%cCsNtd}tdt|td|}t}t|j|g}d}||ks%J|dS)Nr0r+zhREAL*8 function test(x) implicit none REAL*8, intent(in) :: x test = erf(x) + erf(2.0d0*x) end function )rrr rr)r)r0rhrXr&rir'r'r(test_erf_f_codesr'cCrq)Nrdr+r,zREAL*8 function test(z, x, y) implicit none REAL*8, intent(in) :: z REAL*8, intent(in) :: x REAL*8, intent(in) :: y test = x + y end function r#rgr'r'r(test_f_code_argument_orderrsr(cCrc)Nrdr+interface REAL*8 function test(x, y, z) implicit none REAL*8, intent(in) :: x REAL*8, intent(in) :: y REAL*8, intent(in) :: z end function end interface )rrrr)rargr'r'r(test_simple_f_headers   r*cCsHtd\}}}|||}td|fddddd}ddg}||ks"JdS) Nrdr+F95rFry)file.f90r")rwr)rz)r0r5r1r/r{rir'r'r(test_simple_f_codegens r-cr})Nrdr+cr~rrr'rr'r(r2"rz)test_multiple_results_f..)rrrrrrr'rr(test_multiple_results_frr.cCr)NcSrrr.r'r'r'r(r2&rz#test_no_results_f..rr'r'r'r(test_no_results_f%rr/cCsTddlm}ddlm}ddlm}m}m}ddlm }ddl m }m }m }m} m} m} td} d|| fd || fd || fd || fd | | fd || fd|| fd|| fd| | fd|| fd|| fd| | fd|| fg } t| ddddd}|dddksJd}|dd|ksJ|dddksJd}|dd|ksJdS)Nrrrrrrr0test_absrrrrrrrrrrrrr+rFryr,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 rKrwaAinterface 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 )rrrrrrrrrrrrrrrrrrr)rrrrrrrrrrrrr0rr{rir'r'r(test_intrinsic_math_codegen)s:                 CPr1cCsddlm}td\}}d|||fd||fg}t|ddddd }|ddd ks,Jd }|dd |ks8J|d dd ksBJd}|d d |ksNJdS)Nrrrrrr+rFryr,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 rKrwainterface 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 r)rr0r5rr{rir'r'r(test_intrinsic_math2_codegens    r2c Csddlm}m}m}td\}}}d||||||dfd|||||||||||fg}t|ddd d d }|ddd ksNJd }|dd |ksZJ|d ddksdJd}|d d |kspJdS)Nrrrdrrrr+rFryr,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 rKrwa4interface 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 r) rrrr0r5r1rr{rir'r'r(test_complicated_codegen_f95 s".r3cCsddlm}m}ddlm}|ddd\}}t|d\}}}|d|}|d |} td t||||| f|| fd d d d d\\} } \} } | dksLJd}| |ddiks`| |ddiks`J| dksfJ| dkslJdS)NrrBrzn,mTrHAxyrJrrr+rFryr,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)rwainterface 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 )rOrCrDrrrPrrrr'r'r( test_loopsGs$   (   r7c Csddlm}m}tddtd\}}|d}|d}|||}d|jj|jd }td t||||}t }t |j |g} | |ksDJdS) NrrBrTrr0r5a>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 )icountmcountr) rOrCrDrrrQrrrrr)r) rCrDrJrGr0r5rirRrrr'r'r(test_dummy_loops_f95zs   r:cCsddlm}m}ddlm}|ddd\}}}}|d\}}} ||||||||f}|||||}|| |||} tdt| | ||fd d d d d \\} } \} } | d ks]Jd}| |ddiksq| |ddiksqJ| dkswJ| dks}JdS)NrrBrzi,j,n,mTrHzA,x,yrr+rFryr,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 rr5r6rwainterface 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 r)rCrDrrJrrrGrEr0r5rrrrrir'r'r(test_loops_InOuts&    r;cCsddlm}m}ddlm}|ddd\}}}}|d||fd}|d }|d } |d ||d f} |d |} tdt| | || | f|| fddddd\\} } \}}ddt|dtd|t|d|d}| |ddiks}| |ddiksJdSdS)NrrBrrTrHrErr0r5rJrrrr+rFryasubroutine 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 rrrK)riupilowziup-ilowrr5r6)rOrCrDrrrrstrrr'r'r(test_partial_loops_fs,  (  r?c Csddlm}ddlm}m}td\}}}td||||||g}t}|j|gdddd}|ddd ks:J|dd d ksDJdS) Nrr rrdrr+Fryztest.f90rKz~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 ) rr rrrrrrr) r rrr0r5r1rRrr{r'r'r(test_output_arg_fs   r@cCsddlm}m}ddlm}|ddd\}}t|d\}}}|d|}t} td t|||d } t d t ||| ||} t | j | g} d } d }| | |ks^| | |dddks`JdSdS)NrrBrrTrHr4rJfuncrK test_inlinezsubroutine test_inline(m, x, y) implicit none INTEGER*4, intent(in) :: m REAL*8, intent(in), dimension(1:m) :: x REAL*8, intent(out), dimension(1:m) :: y INTEGER*4 :: i do i = 1, m y(i) = %s*%s end do end subroutine )zx(i)z (x(i) + 1)r) rOrCrDrrrPrrrrrr)r)rCrDrrrGrEr0r5rJrrArhrriargsr'r'r(test_inline_functions    rDcCsPtd}d}|D]}||7}qtd|}t}t|j|g}d}||ks&JdS)Nzx:20rr+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 r#)r0r/symrhrXr&rir'r'r(test_f_code_call_signature_wrap s  rFcs$td\ttfdddS)Nzx,XcstdfddS)Nr+f95r")rr'rr0r'r(r2JrAz!test_check_case..)rrrr'r'rHr(test_check_caseHs rIc Csntd}tddd}z td||fddWdSty6}z|jddr+td WYd}~dSd}~ww) Nr0T) my_assumptionr+rGr"rzFortran ignores case.z$This exception should not be raised!)rrrrC startswithAssertionError)x1x2rr'r'r(test_check_case_false_positiveMs rOcCstd\}}dd|fg}t|dddd}t|ddddd}|dd|ddks,Jd||f}t|dddd}t|ddddd}|dd|ddksQJdt||g||||ggf}t|d ddd}t|d dddd}|dd|ddksJdS) NrrrLr+FryrrKr)rrr)r0r5rr{ expresultr'r'r( test_c_fortran_omit_routine_name[s    rQc Cstd\}}}||}t||g|dgg}d||ff}t|ddddd}|dd}d }|d } | d } | d} |d | i}||ksGJdS) Nrdr+rGFryrrKa2REAL*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 r_hash)rrr splitlinessplit) r0r5r1e1e2rr{r&rir4rrr'r'r(test_fcode_matrix_outputms     rYc Cstd\}}}td\}}tddd}t|tdd|gg}t||||}t|d|}d|||gf} t| ddd d ||||||fd } | d d} d } | | ksSJdS) NrdrrErKrMrLr+rGFrra!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 r ) r0r5r1rFrxrErrr rr{r&rir'r'r( test_fcode_results_named_ordereds    rZcCstddd}tddd}tddd}tddd}dt||d ddft||dddft||dddfgf}t|d dd d d }|d d}d }||ksQJdS)NrErLrMrFrKrxr r+rrGFryasubroutine 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 r rr'r'r(test_fcode_matrixsymbol_slicerr[cCs|tddd}d|dddff}t|ddddd}|d d}d }|d}|d }|d}|d |i}||ks double f(double x, double y) { double f_result; f_result = x*y + z; return f_result; } rxrz)r0r5r1tr{r&rir'r'r(test_global_varss    r`c Csddlm}ddlm}|dddiid}td\}}|||}t|d gd }d }td |fd d |d}|dd} | |ks@Jt|d}|jd d}td |fd d |d}|dd} | |kscJdS)NrC99CodePrinter)expuser_functionsrcfastexp)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; } r/F)r#r$rXrK)rgz#include "expr.h" #include #include "fastexp.h" double expr(double x, double y) { double expr_result; expr_result = fastexp(x + y); return expr_result; } ) sympy.printing.crbrrcrrrrhappend) rbrcrgr0r5r/genrir{r&r'r'r(test_custom_codegens(         rlcCs^ddlm}Gddd|}td}|d}ddg}td |fd d d d |d }||ks-JdS)Nrrac@seZdZddZdS)z*test_c_with_printer..CustomPrintercSsd||j||jS)Nzfastpow({}, {}))format_printbaserc)selfr/r'r'r( _print_Pow+s z5test_c_with_printer..CustomPrinter._print_PowN)__name__ __module__ __qualname__rqr'r'r'r( CustomPrinter*s rur0rM)rvz#include "file.h" #include double test(double x) { double test_result; test_result = fastpow(x, 3); return test_result; } )rwzP#ifndef PROJECT__FILE__H #define PROJECT__FILE__H double test(double x); #endif r+rxrF)r#r$rg)rirbrr)rbrur0r/rir{r'r'r(test_c_with_printer's rvcCsddl}d|jj_tddd}tddd}td||fddddd }|dd }d }||ks0Jtd}tddd}td||fddddd }|dd }d }||ksUJd|jj_dS) NrTr0)realr5r+rGFryrKzsREAL*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 )sympyr0r5r{r&rir'r'r(test_fcode_complexDs"        r|N)rFF)_ior sympy.corerrrrrrrr rr 'sympy.functions.special.error_functionsr sympy.integrals.integralsr sympy.matricesrrrxrrrrrrrrrrrsympy.testing.pytestrsympy.utilities.lambdifyrr)rSrYr_rbrjrlrprrrur|rrrrrrrrrrrr rrrrrr r!r$r%r'r(r*r-r.r/r1r2r3r7r:r;r?r@rDrFrIrOrQrYrZr[r\r`rlrvr|r'r'r'r(s     4    <D*, 3.>31/(.