ó ¡¼™\c@s ddlmZddlmZmZmZddlmZddlm Z m Z m Z ddl Z ddl Z ddlZddlZiZded #include int main() { int result = 0; %(statements)s return result; } tC89tC99s™ if (fabs(%(call)s)>%(threshold)s) { printf("Numerical validation failed: %(call)s=%%e threshold=%(threshold)s\n", %(call)s); result = -1; } sÁ if (abs(%(call)s)>%(threshold)s) then write(6,"('Numerical validation failed:')") write(6,"('%(call)s=',e15.5,'threshold=',e15.5)") %(call)s, %(threshold)s result = -1; end if scc -c codegen.c -o codegen.oscc -c main.c -o main.os#cc main.o codegen.o -lm -o test.exetccs$gfortran -c codegen.f90 -o codegen.os6gfortran -ffree-line-length-none -c main.f90 -o main.os%gfortran main.o codegen.o -o test.exetgfortransg95 -c codegen.f90 -o codegen.os1g95 -ffree-line-length-huge -c main.f90 -o main.os g95 main.o codegen.o -o test.exetg95s!ifort -c codegen.f90 -o codegen.osifort -c main.f90 -o main.os"ifort main.o codegen.o -o test.exetifortc Cs[ttjdƒ}xB|D]:}tj|d|dtdtjƒ}|dkrtSqWtS(s>Run a series of commands and only return True if all ran fine.twtstdouttshelltstderri(topentostdevnullt subprocesstcalltTruetSTDOUTtFalse(tcommandstnulltcommandtretcode((s@lib/python2.7/site-packages/sympy/external/tests/test_codegen.pyttry_runvs   c Cs#|jƒ}|tkst‚|tks0t‚tjddƒjƒ}|d%krctdƒ‚ntj d|d|ƒ}tj ƒ}tj |ƒ|rµt ||dd t ƒn%t|dƒ} | j|dd t ƒg} x|D]ˆ\} } } }d | d jd „| Dƒƒ| f}|d krLt|ƒ}tt|ƒƒ}n| jt|i|d6|d6ƒqçW|d krˆd}n(|jdƒr d}ntd|ƒ‚t|dƒ,}|jt|idj| ƒd6ƒWdQXt|ƒ}|rtdgƒ}nt}|dks;|dkr±|r±|r±d„}|dƒ|dƒ|dƒ|dƒ|dƒ|dƒ|dƒ|dƒtj |ƒtj|ƒn$td |d!tjƒtj |ƒ|sútd"|d#j|ƒfƒ‚|std$|d#j|ƒfƒ‚dS(&s|A driver for the codegen tests. This driver assumes that a compiler ifort is present in the PATH and that ifort is (at least) a Fortran 90 compiler. The generated code is written in a temporary directory, together with a main program that validates the generated code. The test passes when the compilation and the validation run correctly. tSYMPY_TEST_CLEAN_TEMPtalwaystsuccesstneversSSYMPY_TEST_CLEAN_TEMP must be one of the following: 'always', 'success' or 'never'.s_sympy_%s_tests%s_Rtto_filess %s(%s)-(%s)t,css|]}t|ƒVqdS(N(tstr(t.0targ((s@lib/python2.7/site-packages/sympy/external/tests/test_codegen.pys ©sRRt thresholdsmain.f90tCsmain.cs2FIXME: filename extension unknown for language: %sRtt statementsNs ./test.execSs&tjj|ƒr"tj|ƒndS(N(Rtpathtisfiletremove(tfilename((s@lib/python2.7/site-packages/sympy/external/tests/test_codegen.pyt safe_removeÉss codegen.f90s codegen.cs codegen.hs codegen.osmain.ostest.exesTEST NOT REMOVED: %stfiles"failed to compile %s code with: %ss s"failed to execute %s code from: %s(R!R"R#(tuppert main_templatetAssertionErrortnumerical_test_templateRtgetenvtlowert ValueErrorttempfiletmkdtemptgetcwdtchdirRRRtwritetjointfortranize_double_constantsR&tappendt startswithtNotImplementedErrorRRRtrmdirtprinttsysR(tlabeltroutinestnumerical_teststlanguageRtfriendlytcleantworktoldworktcode_gent test_stringstfn_nametargstexpectedR)t call_stringtf_nametftcompiledtexecutedR1((s@lib/python2.7/site-packages/sympy/external/tests/test_codegen.pytrun_testsl    #      % $             csjddl‰ˆjdƒ}ˆjdƒ}‡fd†}d„}|j||ƒ}|j||ƒ}|S(s; Replaces every literal float with literal doubles iÿÿÿÿNs\d+(\.)?\d*[eE]-?\d+s\d+\.\d*(?!\d*d)csˆjdd|jdƒƒS(Ns[eE]tdi(tsubtgroup(tmatchobj(tre(s@lib/python2.7/site-packages/sympy/external/tests/test_codegen.pytsubs_expéscSsd|jdƒS(Ns%sd0i(R\(R]((s@lib/python2.7/site-packages/sympy/external/tests/test_codegen.pyt subs_floatìs(R^tcompileR[(t code_stringt pattern_expt pattern_floatR_R`((R^s@lib/python2.7/site-packages/sympy/external/tests/test_codegen.pyR@ás  cCsstdtƒ}ddddfddddfg}y'td|g|||dtƒtSWntk rntSXdS( Nttestgð?gV瞯Òsj              `         !