o 8Va@s~ddlmZddlmZmZmZmZmZmZddl m Z m Z m Z ddl m Z ddlmZmZddlmZmZmZmZmZmZmZmZmZmZmZddlmZddlm Z dd d Z!d dZ"ddZ#ddZ$ddZ%ddZ&ddZ'ddZ(ddZ)ddZ*dd Z+d!d"Z,d#d$Z-d%d&Z.d'd(Z/d)d*Z0d+d,Z1d-d.Z2d/d0Z3d1d2Z4d3d4Z5d5d6Z6d7d8Z7d9d:Z8d;d<Z9d=d>Z:d?d@Z;dAdBZdGdHZ?dIdJZ@dKdLZAdMdNZBdOdPZCdQdRZDdSdTZEdUdVZFdWdXZGdYdZZHd[d\ZId]d^ZJd_d`ZKdadbZLdcddZMdedfZNdgdhZOdidjZPdkdlZQdmdnZRdodpZSdqdrZTdsdtZUdudvZVdwdxZWdydzZXd{d|ZYd}d~ZZdS))StringIO)symbolsEqpiCatalanLambdaDummy)erfIntegralSymbol)Equality)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)Zdump_fnZroutinesprefixheaderemptyoutputsourcer$D/usr/lib/python3/dist-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,r-yr.r$r%r/&s r(r)cSg|]}|jqSr$name.0argr$r$r% )z/test_Routine_argument_order..cSg|]}t|qSr$typer6r$r$r%r9*cSr;r$r<r6r$r$r%r9-r>r IndexedBaseIdxABmTintegericSr3r$r4r6r$r$r%r95r:cSr3r$r4r6r$r$r%r99r:)rrrrr argumentsrrr sympy.tensorr@rAmaplabelr )rr@rArBrCrDrGr$r0r%test_Routine_argument_order!s,      "" $rPcC"t}t|jg}|dksJdS)Nz$#include "file.h" #include rr&dump_ccode_genr#r$r$r%test_empty_c_code< rVcCBt}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 rRrTr$r$r%test_empty_c_code_with_commentB  r\cCrQ)Nz9#ifndef PROJECT__FILE__H #define PROJECT__FILE__H #endif )rr&dump_hrTr$r$r%test_empty_c_headerTrWr_cCLtd\}}}|||}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&rSr-r2r.r,routinerUr#expectedr$r$r%test_simple_c_codeZ   rgcCr`)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&rSrdr$r$r%test_c_code_reserved_wordslrhricCs@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&rSevalfrerUr#rfr$r$r%test_numbersymbol_c_code~s rmcCRtd\}}}||}td||||gd}t}t|j|g}d}||ks'JdS)Nrar(r)z#include "file.h" #include double test(double z, double x, double y) { double test_result; test_result = x + y; return test_result; } rcrdr$r$r%test_c_code_argument_order rocCr`)Nrar(d#ifndef PROJECT__FILE__H #define PROJECT__FILE__H double test(double x, double y, double z); #endif )rrrr&r^rdr$r$r%test_simple_c_headers  rrcCsHtd\}}}|||}ddg}td|fddddd}||ks"JdS) Nra)file.crb)file.hrqr(CrFr r!rr)r-r2r.r,rfresultr$r$r%test_simple_c_codegens rycRtd\}}}|||}|||}td||gtttfdddS)Nrar(ctjgSNr&r^r$rUrer$r%r/z)test_multiple_results_c..)rrrrrr-r2r.expr1expr2r$r~r%test_multiple_results_c  rcCttdddS)NcS tdgSNr(r+r$r$r$r%r/ z#test_no_results_c..r ValueErrorr$r$r$r%test_no_results_crcCsLddlm}m}m}m}m}m}m}m}m }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|dddksJdS)Nr)acosasinatanceilingcoscoshfloorloglnsinsinhsqrttantanhAbsr-Z test_fabs test_acos test_asin test_atanZ test_ceiltest_cos test_coshZ test_floortest_logtest_lntest_sin test_sinh test_sqrttest_tan test_tanhC89rFrvrsrHa#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 )sympyrrrrrrrrrrrrrrrrr)rrrrrrrrrrrrrrrr- name_exprrxr$r$r%test_ansi_math1_codegens6D                  rcCsddlm}td\}}d|||fd||fg}t|ddddd }|ddd ks,J|dd d ks6J|d dd ks@J|d d dksJJdS)Nratan2x,y test_atan2test_powrrFrvrsrHa*#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 rrrr)rr-r2rrxr$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)Nrrrrratest1test2rrFrvrsrHa-#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 rrrrrexpandr)rrrr-r2r.rrxr$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)Nrr?rn mTrErBr-r2rGj matrix_vectorC99rFrvrsa#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; } rHrrrr rrrwrite rrr r-r2r.rOcrxrfr$r$r%test_output_arg_c rc Cr) Nrrz if, while, zrr(Frvrz#include "test.h" #include double foo(double if_, double *while_) { (*while_) = sin(if_); double foo_result; foo_result = cos(if_); return foo_result; } rHrrr$r$r% test_output_arg_c_reserved_wordsrrc Cstddd}tddd}t|}t|}||}tddd}|d|}d |jd _d |jd _t|j|gdd }d }||ksAJdS) NrBrJbrHr(T)Zprojectcserout)ra#include "test.h" #include void c(double *A, double *b, double *out) { double x0[9]; x0[0] = A[0]; x0[1] = A[1]; x0[2] = A[2]; x0[3] = A[3]; x0[4] = A[4]; x0[5] = A[5]; x0[6] = A[6]; x0[7] = A[7]; x0[8] = A[8]; double x1[3]; x1[0] = b[0]; x1[1] = b[1]; x1[2] = b[2]; const double x2 = x1[0]; const double x3 = x1[1]; const double x4 = x1[2]; out[0] = x2*x0[0] + x3*x0[1] + x4*x0[2]; out[1] = x2*x0[3] + x3*x0[4] + x4*x0[5]; out[2] = x2*x0[6] + x3*x0[7] + x4*x0[8]; } ) rr rrerKZ result_var_namer&rS) ZA_symZb_symrBrrZcgenrOrrfr$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) NraB,CrBrHrJrIr(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 r r) r-r2r.rCrurBrrexpr3rrfrxr#r$r$r% test_ccode_results_named_ordered's    rcCstddd}tddd}tddd}tddd}dt||d ddft||dddft||ddd fgf}t|d dd d d }|d d}d}||ksQJdS)NrBrrJrCrHruDr(rrIrFrva#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 rrBrCrurrrxr#rfr$r$r%test_ccode_matrixsymbol_sliceA     rc Cstd\}}}}tddd}dt|t||g||||g||||gggf}tdd}t||ddd }|d d}d } || ksGJdS) Nza b c derJrHr(T)rF)rUr 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 r rr) r1rrdrr generatorrxr#rfr$r$r%test_ccode_cse^s <   rcCsJtddd}d}t}t||dd|fd}|dd}d}||ks#JdS) Nr-rIrH)r(g?F)rUr r!r*rz#include "test.h" #include double test(double *x) { double test_result; test_result = 1.0; return test_result; } )rrr)r-rrrxr#rfr$r$r%test_ccode_unused_array_argrs   rcCrQNrr&dump_f95rTr$r$r%test_empty_f_coderWrcCrX)NTrYrZzR!****************************************************************************** !*r[a* !* * !* See http://www.sympy.org/ for more information. * !* * !* This file is part of 'project' * !****************************************************************************** rrTr$r$r%test_empty_f_code_with_headerr]rcCrQr)rr&r^rTr$r$r%test_empty_f_headerrWrcCr`)Nrar(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&rrdr$r$r%test_simple_f_coderhrcCsJtdtt}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 rj)rrrrr&rrkrlr$r$r%test_numbersymbol_f_codesrcCsNtd}tdt|td|}t}t|j|g}d}||ks%J|dS)Nr-r(zhREAL*8 function test(x) implicit none REAL*8, intent(in) :: x test = erf(x) + erf(2.0d0*x) end function )rrr rr&r)r-rerUr#rfr$r$r%test_erf_f_codesrcCrn)Nrar(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 rrdr$r$r%test_f_code_argument_orderrpr cCr`)Nrar(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&r^rdr$r$r%test_simple_f_headers   r cCsHtd\}}}|||}td|fddddd}ddg}||ks"JdS) Nrar(F95rFrv)file.f90r)rtr rw)r-r2r.r,rxrfr$r$r%test_simple_f_codegens rcrz)Nrar(cr{r|r}r$r~r$r%r/rz)test_multiple_results_f..)rrrrrrr$r~r%test_multiple_results_frrcCr)NcSrrr+r$r$r$r%r/rz#test_no_results_f..rr$r$r$r%test_no_results_frrcCs8ddlm}m}m}m}m}m}m}m}m }m } m } m } m } td} d| | fd|| fd|| fd|| fd|| fd || fd || fd || fd || fd || fd| | fd| | fd| | fg }t|ddddd}|dddksxJd}|dd|ksJ|dddksJd}|dd|ksJdS)Nr) rrrrrrrrrrrrrr-Ztest_absrrrrrrrrrrrrr rFrvr 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 rHrtaAinterface 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 )rrrrrrrrrrrrrrrr)rrrrrrrrrrrrrr-rrxrfr$r$r%test_intrinsic_math_codegens2<             CPrcCsddlm}td\}}d|||fd||fg}t|ddddd }|ddd ks,Jd }|dd |ks8J|d dd ksBJd}|d d |ksNJdS)Nrrrrrr rFrvr 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 rHrtainterface 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)rr-r2rrxrfr$r$r%test_intrinsic_math2_codegens    rc Csddlm}m}m}td\}}}d||||||dfd|||||||||||fg}t|ddd d d }|ddd ksNJd }|dd |ksZJ|d ddksdJd}|d d |kspJdS)Nrrrarrrr rFrvr 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 rHrta4interface 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) rrrr-r2r.rrxrfr$r$r%test_complicated_codegen_f95s".rcCsddlm}m}ddlm}|ddd\}}t|d\}}}|d|}|d |} td t||||| f|| fd d d d d\\} } \} } | dksLJd}| |ddiks`| |ddiks`J| dksfJ| dkslJdS)Nrr?rzn,mTrEAxyrGrrr rFrvr 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 )rLr@rArrrMrrrr$r$r% test_loops:s&   (   rc Csddlm}m}tddtd\}}|d}|d}|||}d|jj|jd }td t||||}t }t |j |g} | |ksDJdS) Nrr?rTrr-r2a>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 )ZicountZmcountr) rLr@rArrrNrrrrr&r) r@rArGrDr-r2rfrOrrr$r$r%test_dummy_loops_f95ms   rcCsddlm}m}ddlm}|ddd\}}}}|d\}}} ||||||||f}|||||}|| |||} tdt| | ||fd d d d d \\} } \} } | d ks]Jd}| |ddiksq| |ddiksqJ| dkswJ| dks}JdS)Nrr?rzi,j,n,mTrEzA,x,yrr rFrvr 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 rrrrtainterface 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)r@rArrGrrrDrBr-r2rrrrrfr$r$r%test_loops_InOuts(    rcCsddlm}m}ddlm}|ddd\}}}}|d||fd}|d }|d } |d ||d f} |d |} tdt| | || | f|| fddddd\\} } \}}ddt|dtd|t|d|d}| |ddiks}| |ddiksJdSdS)Nrr?rrTrErBrr-r2rGrrrr rFrvasubroutine 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 rrrH)rZiupZilowziup-ilowrrr)rLr@rArrrrstrrr$r$r%test_partial_loops_fs*  (  rc Csddlm}m}m}td\}}}td||||||g}t}|j|gdddd}|dddks6J|dd d ks@JdS) Nrrrarr(Frvztest.f90rHz~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 )rrrr rrrr) rrr r-r2r.rOrrxr$r$r%test_output_arg_fs  rcCsddlm}m}ddlm}|ddd\}}t|d\}}}|d|}t} td t|||d } t d t ||| ||} t | j | g} d } d }| | |ks^| | |dddks`JdSdS)Nrr?rrTrErrGfuncrHZ 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) rLr@rArrrMrrrrrr&r)r@rArrrDrBr-r2rGrrrerrfargsr$r$r%test_inline_functions   rcCsPtd}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)r-r,ZsymrerUr#rfr$r$r%test_f_code_call_signature_wraps  r cs$td\ttfdddS)Nzx,XcstdfddS)Nr(f95r)rr$Xr-r$r%r/<r>z!test_check_case..)rrrr$r$r"r%test_check_case:s r$c Csntd}tddd}z td||fddWdSty6}z|jddr+td WYd}~dSd}~ww) Nr-T)Z my_assumptionr(r!rrzFortran ignores case.z$This exception should not be raised!)rrrr startswithAssertionError)Zx1Zx2rr$r$r%test_check_case_false_positive?s r'cCstd\}}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) NrrrIr FrvrrHr)rrr )r-r2rrxZ expresultr$r$r% test_c_fortran_omit_routine_nameMs    r(c Cstd\}}}||}t||g|dgg}d||ff}t|ddddd}|dd}d }|d } | d } | d} |d | i}||ksGJdS) Nrar(r!FrvrrHa2REAL*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)rr r splitlinessplit) r-r2r.Ze1Ze2rrxr#rfr1rrr$r$r%test_fcode_matrix_output_s     r.c Cstd\}}}td\}}tddd}t|tdd|gg}t||||}t|d|}d|||gf} t| ddd d ||||||fd } | d d} d } | | ksSJdS) NrarrBrHrJrIr(r!Frra!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) r-r2r.rCrurBrrrrrxr#rfr$r$r% test_fcode_results_named_ordered|s    r/cCstddd}tddd}tddd}tddd}dt||d ddft||dddft||dddfgf}t|d dd d d }|d d}d }||ksQJdS)NrBrIrJrCrHrurr(rr!Frvasubroutine 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 rrr$r$r%test_fcode_matrixsymbol_slicerr0cCs|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; } rurw)r-r2r.trxr#rfr$r$r%test_global_varss    r4c 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)expZuser_functionsr7Zfastexp)Zsettingszx 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!rUrH)r8z#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.cr6Z&sympy.functions.elementary.exponentialr7rrrr9append) r6r7r8r-r2r,genrfrxr#r$r$r%test_custom_codegens(         r=cCs^ddlm}Gddd|}td}|d}ddg}td |fd d d d |d }||ks-JdS)Nrr5c@seZdZddZdS)z*test_c_with_printer..CustomPrintercSsd||j||jS)Nzfastpow({}, {}))formatZ_printbaser7)selfr,r$r$r% _print_Pows z5test_c_with_printer..CustomPrinter._print_PowN)__name__ __module__ __qualname__rAr$r$r$r% CustomPrinters rEr-rJ)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 r(rurF)r r!r8)r:r6rr)r6rEr-r,rfrxr$r$r%test_c_with_printers rFcCsddl}d|jj_tddd}tddd}td||fddddd }|dd }d }||ks0Jtd}tddd}td||fddddd }|dd }d }||ksUJd|jj_dS) NrTr-)realr2r(r!FrvrHzsREAL*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.codegenZ utilitiesrZCOMPLEX_ALLOWEDr )rr-r2rxr#rfr$r$r%test_fcode_complex6s"        rIN)rFF)[iorZ sympy.corerrrrrrrr r r r Zsympy.matricesr rrHrrrrrrrrrrrZsympy.testing.pytestrZsympy.utilities.lambdifyrr&rPrVr\r_rgrirmrorrryrrrrrrrrrrrrrrrrrrrrrr r rrrrrrrrrrrrr r$r'r(r.r/r0r1r4r=rFrIr$r$r$r%s  4    8D*,( 0.>31/(.