File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -2681,6 +2681,40 @@ assert stdout =~ exact_pattern(<<'EOF')
26812681& p_q**(-2) + p_q**(-1) + p_q + p_q**2
26822682EOF
26832683*--#] Issue460_4 :
2684+ *--#[ Issue468 :
2685+ #-
2686+
2687+ #: MaxTermSize 200K
2688+ #: SortIOSize 200K
2689+ #: SubSortIOSize 200K
2690+
2691+ #: SubSmallSize 100K
2692+ #: SubSmallExtension 200K
2693+ #: SubTermsInSmall 5K
2694+
2695+ #define N " 30"
2696+
2697+ Symbol a,b,c,d,e;
2698+ CFunction prf;
2699+
2700+ Local test =
2701+ + prf((a+b+c+d)^`N'+1,(a+b+c+d)^`N')
2702+ - prf((a+b+c+d)^`N'-1,(a+b+c+d)^`N')
2703+ ;
2704+ .sort
2705+
2706+ #message Enable prf
2707+ PolyRatFun prf;
2708+ .sort
2709+
2710+ Multiply prf((a+b+c+d)^`N',1);
2711+
2712+ Print;
2713+ .end
2714+ #require wordsize >= 4
2715+ assert succeeded?
2716+ assert result(" test" ) =~ expr(" prf(2,1)" )
2717+ *--#] Issue468 :
26842718*--#[ Issue486 :
26852719On codes;
26862720Symbol x,y;
You can’t perform that action at this time.
0 commit comments