#include // 1 %begin #line 1 "regression-bugs-tmp/bernstein.imp" int main(int argc, char **argv) { __label__ _imp_endofblock; _imp_initialise(argc, argv); // 2 %externalroutinespec exit %alias "exit" (%integer rc) _imp_current_line = 2; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 2 "regression-bugs-tmp/bernstein.imp" extern void EXIT( int RC ) __asm__("exit"); // 3 %const %string (1) snl = " _imp_current_line = 3; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 3 "regression-bugs-tmp/bernstein.imp" const _imp_string /*%string(1)*/ SNL = _imp_str_literal("\n"); // 4 " // 5 // 6 %routine tobern2(%long %real a0, %long %real a1, %long %real a2, %long %real %name b0, %long %real %name b1, %long %real %name b2) _imp_current_line = 6; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 6 "regression-bugs-tmp/bernstein.imp" void TOBERN2( double A0, double A1, double A2, double /*name*/*B0, double /*name*/*B1, double /*name*/*B2 ) #line 6 "regression-bugs-tmp/bernstein.imp" { __label__ _imp_endofblock; // 7 b0 = a0 _imp_current_line = 7; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 7 "regression-bugs-tmp/bernstein.imp" *B0 = A0; // 8 b1 = a0 + a1 / 2 _imp_current_line = 8; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 8 "regression-bugs-tmp/bernstein.imp" *B1 = ((A0) + (((double)((double)((double)(A1)) / (double)((float)(2)))))); // 9 b2 = a0 + a1 + a2 _imp_current_line = 9; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 9 "regression-bugs-tmp/bernstein.imp" *B2 = (((double)((((double)(A0)) + (A1)))) + (A2)); // 10 %end _imp_current_line = 10; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 10 "regression-bugs-tmp/bernstein.imp" return; _imp_endofblock: ; } // End of block TOBERN2 at level 2 // 11 // 12 { uses de Casteljau’s algorithm } // 13 %long %real %fn evalbern2(%long %real b0, %long %real b1, %long %real b2, %long %real t) _imp_current_line = 13; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 13 "regression-bugs-tmp/bernstein.imp" double EVALBERN2( double B0, double B1, double B2, double T ) #line 13 "regression-bugs-tmp/bernstein.imp" { __label__ _imp_endofblock; // 14 %long %real s = 1.0 - t _imp_current_line = 14; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 14 "regression-bugs-tmp/bernstein.imp" double S; #line 14 "regression-bugs-tmp/bernstein.imp" S = (((double)(1.0)) - (T)); // 15 %long %real b01 = s * b0 + t * b1 _imp_current_line = 15; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 15 "regression-bugs-tmp/bernstein.imp" double B01; #line 15 "regression-bugs-tmp/bernstein.imp" B01 = ((((((double)(S)) * (B0)))) + ((((double)(T)) * (B1)))); // 16 %long %real b12 = s * b1 + t * b2 _imp_current_line = 16; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 16 "regression-bugs-tmp/bernstein.imp" double B12; #line 16 "regression-bugs-tmp/bernstein.imp" B12 = ((((((double)(S)) * (B1)))) + ((((double)(T)) * (B2)))); // 17 %result = s * b01 + t * b12 _imp_current_line = 17; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 17 "regression-bugs-tmp/bernstein.imp" return ((((((double)(S)) * (B01)))) + ((((double)(T)) * (B12)))); // 18 %end _imp_current_line = 18; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 18 "regression-bugs-tmp/bernstein.imp" _imp_endofblock: ; } // End of block EVALBERN2 at level 2 // 19 // 20 %routine tobern3(%long %real a0, %long %real a1, %long %real a2, %long %real a3, %long %real %name b0, %long %real %name b1, %long %real %name b2, %long %real %name b3) _imp_current_line = 20; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 20 "regression-bugs-tmp/bernstein.imp" void TOBERN3( double A0, double A1, double A2, double A3, double /*name*/*B0, double /*name*/*B1, double /*name*/*B2, double /*name*/*B3 ) #line 20 "regression-bugs-tmp/bernstein.imp" { __label__ _imp_endofblock; // 21 b0 = a0 _imp_current_line = 21; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 21 "regression-bugs-tmp/bernstein.imp" *B0 = A0; // 22 b1 = a0 + a1 / 3 _imp_current_line = 22; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 22 "regression-bugs-tmp/bernstein.imp" *B1 = ((A0) + (((double)((double)((double)(A1)) / (double)((float)(3)))))); /*promote*/ // 23 b2 = a0 + a1 * 2/3 + a2 / 3 _imp_current_line = 23; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 23 "regression-bugs-tmp/bernstein.imp" *B2 = ((((A0) + (((double)((double)((((A1) * ((double)(2))))) / (double)((float)(3))))))) + (((double)((double)((double)(A2)) / (double)((float)(3)))))); // 24 b3 = a0 + a1 + a2 + a3 _imp_current_line = 24; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 24 "regression-bugs-tmp/bernstein.imp" *B3 = (((double)((((double)((((double)(A0)) + (A1)))) + (A2)))) + (A3)); // 25 %end _imp_current_line = 25; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 25 "regression-bugs-tmp/bernstein.imp" return; _imp_endofblock: ; } // End of block TOBERN3 at level 2 // 26 // 27 { uses de Casteljau’s algorithm } // 28 %long %real %fn evalbern3(%long %real b0, %long %real b1, %long %real b2, %long %real b3, %long %real t) _imp_current_line = 28; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 28 "regression-bugs-tmp/bernstein.imp" double EVALBERN3( double B0, double B1, double B2, double B3, double T ) #line 28 "regression-bugs-tmp/bernstein.imp" { __label__ _imp_endofblock; /*promote*/ // 29 %long %real s = 1 - t _imp_current_line = 29; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 29 "regression-bugs-tmp/bernstein.imp" double S; #line 29 "regression-bugs-tmp/bernstein.imp" S = (((double)(1)) - (T)); // 30 %long %real b01 = s * b0 + t * b1 _imp_current_line = 30; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 30 "regression-bugs-tmp/bernstein.imp" double B01; #line 30 "regression-bugs-tmp/bernstein.imp" B01 = ((((((double)(S)) * (B0)))) + ((((double)(T)) * (B1)))); // 31 %long %real b12 = s * b1 + t * b2 _imp_current_line = 31; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 31 "regression-bugs-tmp/bernstein.imp" double B12; #line 31 "regression-bugs-tmp/bernstein.imp" B12 = ((((((double)(S)) * (B1)))) + ((((double)(T)) * (B2)))); // 32 %long %real b23 = s * b2 + t * b3 _imp_current_line = 32; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 32 "regression-bugs-tmp/bernstein.imp" double B23; #line 32 "regression-bugs-tmp/bernstein.imp" B23 = ((((((double)(S)) * (B2)))) + ((((double)(T)) * (B3)))); // 33 %long %real b012 = s * b01 + t * b12 _imp_current_line = 33; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 33 "regression-bugs-tmp/bernstein.imp" double B012; #line 33 "regression-bugs-tmp/bernstein.imp" B012 = ((((((double)(S)) * (B01)))) + ((((double)(T)) * (B12)))); // 34 %long %real b123 = s * b12 + t * b23 _imp_current_line = 34; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 34 "regression-bugs-tmp/bernstein.imp" double B123; #line 34 "regression-bugs-tmp/bernstein.imp" B123 = ((((((double)(S)) * (B12)))) + ((((double)(T)) * (B23)))); // 35 %result = s * b012 + t * b123 _imp_current_line = 35; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 35 "regression-bugs-tmp/bernstein.imp" return ((((((double)(S)) * (B012)))) + ((((double)(T)) * (B123)))); // 36 %end _imp_current_line = 36; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 36 "regression-bugs-tmp/bernstein.imp" _imp_endofblock: ; } // End of block EVALBERN3 at level 2 // 37 // 38 %routine bern2to3(%long %real q0, %long %real q1, %long %real q2, %long %real %name c0, %long %real %name c1, %long %real %name c2, %long %real %name c3) _imp_current_line = 38; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 38 "regression-bugs-tmp/bernstein.imp" void BERN2TO3( double Q0, double Q1, double Q2, double /*name*/*C0, double /*name*/*C1, double /*name*/*C2, double /*name*/*C3 ) #line 38 "regression-bugs-tmp/bernstein.imp" { __label__ _imp_endofblock; // 39 c0 = q0 _imp_current_line = 39; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 39 "regression-bugs-tmp/bernstein.imp" *C0 = Q0; /*promote*/ // 40 c1 = q0 / 3 + q1 * 2/3 _imp_current_line = 40; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 40 "regression-bugs-tmp/bernstein.imp" *C1 = (((((double)((double)((double)(Q0)) / (double)((float)(3)))))) + (((double)((double)((((Q1) * ((double)(2))))) / (double)((float)(3)))))); /*promote*/ // 41 c2 = q1 * 2/3 + q2 / 3 _imp_current_line = 41; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 41 "regression-bugs-tmp/bernstein.imp" *C2 = (((((double)((double)((((Q1) * ((double)(2))))) / (double)((float)(3)))))) + (((double)((double)((double)(Q2)) / (double)((float)(3)))))); // 42 c3 = q2 _imp_current_line = 42; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 42 "regression-bugs-tmp/bernstein.imp" *C3 = Q2; // 43 %end _imp_current_line = 43; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 43 "regression-bugs-tmp/bernstein.imp" return; _imp_endofblock: ; } // End of block BERN2TO3 at level 2 // 44 // 45 { uses Horner's rule } // 46 %long %real %fn evalmono2(%long %real a0, %long %real a1, %long %real a2, %long %real t) _imp_current_line = 46; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 46 "regression-bugs-tmp/bernstein.imp" double EVALMONO2( double A0, double A1, double A2, double T ) #line 46 "regression-bugs-tmp/bernstein.imp" { __label__ _imp_endofblock; // 47 %result = a0 + (t * (a1 + (t * a2))) _imp_current_line = 47; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 47 "regression-bugs-tmp/bernstein.imp" return ((A0) + ((double)(((T) * ((double)(((A1) + ((double)((((double)(T)) * (A2))))))))))); // 48 %end _imp_current_line = 48; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 48 "regression-bugs-tmp/bernstein.imp" _imp_endofblock: ; } // End of block EVALMONO2 at level 2 // 49 // 50 { uses Horner's rule } // 51 %long %real %fn evalmono3(%long %real a0, %long %real a1, %long %real a2, %long %real a3, %long %real t) _imp_current_line = 51; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 51 "regression-bugs-tmp/bernstein.imp" double EVALMONO3( double A0, double A1, double A2, double A3, double T ) #line 51 "regression-bugs-tmp/bernstein.imp" { __label__ _imp_endofblock; // 52 %result = a0 + (t * (a1 + (t * (a2 + (t * a3))))) _imp_current_line = 52; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 52 "regression-bugs-tmp/bernstein.imp" return ((A0) + ((double)(((T) * ((double)(((A1) + ((double)(((T) * ((double)(((A2) + ((double)((((double)(T)) * (A3))))))))))))))))); // 53 %end _imp_current_line = 53; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 53 "regression-bugs-tmp/bernstein.imp" _imp_endofblock: ; } // End of block EVALMONO3 at level 2 // 54 // 55 %long %real p0m, p1m, p2m, q0m, q1m, q2m, r0m, r1m, r2m, r3m _imp_current_line = 55; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 55 "regression-bugs-tmp/bernstein.imp" double P0M; #line 55 "regression-bugs-tmp/bernstein.imp" double P1M; #line 55 "regression-bugs-tmp/bernstein.imp" double P2M; #line 55 "regression-bugs-tmp/bernstein.imp" double Q0M; #line 55 "regression-bugs-tmp/bernstein.imp" double Q1M; #line 55 "regression-bugs-tmp/bernstein.imp" double Q2M; #line 55 "regression-bugs-tmp/bernstein.imp" double R0M; #line 55 "regression-bugs-tmp/bernstein.imp" double R1M; #line 55 "regression-bugs-tmp/bernstein.imp" double R2M; #line 55 "regression-bugs-tmp/bernstein.imp" double R3M; // 56 %long %real p0b2, p1b2, p2b2, q0b2, q1b2, q2b2 _imp_current_line = 56; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 56 "regression-bugs-tmp/bernstein.imp" double P0B2; #line 56 "regression-bugs-tmp/bernstein.imp" double P1B2; #line 56 "regression-bugs-tmp/bernstein.imp" double P2B2; #line 56 "regression-bugs-tmp/bernstein.imp" double Q0B2; #line 56 "regression-bugs-tmp/bernstein.imp" double Q1B2; #line 56 "regression-bugs-tmp/bernstein.imp" double Q2B2; // 57 %long %real p0b3, p1b3, p2b3, p3b3, q0b3, q1b3, q2b3, q3b3, r0b3, r1b3, r2b3, r3b3 _imp_current_line = 57; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 57 "regression-bugs-tmp/bernstein.imp" double P0B3; #line 57 "regression-bugs-tmp/bernstein.imp" double P1B3; #line 57 "regression-bugs-tmp/bernstein.imp" double P2B3; #line 57 "regression-bugs-tmp/bernstein.imp" double P3B3; #line 57 "regression-bugs-tmp/bernstein.imp" double Q0B3; #line 57 "regression-bugs-tmp/bernstein.imp" double Q1B3; #line 57 "regression-bugs-tmp/bernstein.imp" double Q2B3; #line 57 "regression-bugs-tmp/bernstein.imp" double Q3B3; #line 57 "regression-bugs-tmp/bernstein.imp" double R0B3; #line 57 "regression-bugs-tmp/bernstein.imp" double R1B3; #line 57 "regression-bugs-tmp/bernstein.imp" double R2B3; #line 57 "regression-bugs-tmp/bernstein.imp" double R3B3; // 58 %long %real pc0, pc1, pc2, pc3, qc0, qc1, qc2, qc3 _imp_current_line = 58; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 58 "regression-bugs-tmp/bernstein.imp" double PC0; #line 58 "regression-bugs-tmp/bernstein.imp" double PC1; #line 58 "regression-bugs-tmp/bernstein.imp" double PC2; #line 58 "regression-bugs-tmp/bernstein.imp" double PC3; #line 58 "regression-bugs-tmp/bernstein.imp" double QC0; #line 58 "regression-bugs-tmp/bernstein.imp" double QC1; #line 58 "regression-bugs-tmp/bernstein.imp" double QC2; #line 58 "regression-bugs-tmp/bernstein.imp" double QC3; // 59 // 60 %long %real x, y, m _imp_current_line = 60; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 60 "regression-bugs-tmp/bernstein.imp" double X; #line 60 "regression-bugs-tmp/bernstein.imp" double Y; #line 60 "regression-bugs-tmp/bernstein.imp" double M; // 61 // 62 p0m = 1; p1m = 0; p2m = 0 _imp_current_line = 62; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 62 "regression-bugs-tmp/bernstein.imp" P0M = 1; _imp_current_line = 62; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 62 "regression-bugs-tmp/bernstein.imp" P1M = 0; _imp_current_line = 62; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 62 "regression-bugs-tmp/bernstein.imp" P2M = 0; // 63 q0m = 1; q1m = 2; q2m = 3 _imp_current_line = 63; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 63 "regression-bugs-tmp/bernstein.imp" Q0M = 1; _imp_current_line = 63; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 63 "regression-bugs-tmp/bernstein.imp" Q1M = 2; _imp_current_line = 63; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 63 "regression-bugs-tmp/bernstein.imp" Q2M = 3; // 64 r0m = 1; r1m = 2; r2m = 3; r3m = 4 _imp_current_line = 64; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 64 "regression-bugs-tmp/bernstein.imp" R0M = 1; _imp_current_line = 64; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 64 "regression-bugs-tmp/bernstein.imp" R1M = 2; _imp_current_line = 64; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 64 "regression-bugs-tmp/bernstein.imp" R2M = 3; _imp_current_line = 64; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 64 "regression-bugs-tmp/bernstein.imp" R3M = 4; // 65 // 66 tobern2 (p0m, p1m, p2m, p0b2, p1b2, p2b2) _imp_current_line = 66; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 66 "regression-bugs-tmp/bernstein.imp" TOBERN2(P0M, P1M, P2M, &P0B2, &P1B2, &P2B2); // 67 tobern2 (q0m, q1m, q2m, q0b2, q1b2, q2b2) _imp_current_line = 67; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 67 "regression-bugs-tmp/bernstein.imp" TOBERN2(Q0M, Q1M, Q2M, &Q0B2, &Q1B2, &Q2B2); // 68 print string ("Subprogram (1) examples:".snl) _imp_current_line = 68; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 68 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("Subprogram (1) examples:"),(_imp_string)SNL)); // 69 print string (" mono ( ") _imp_current_line = 69; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 69 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" mono ( ")); // 70 print fl (p0m, 4); print string (", ") _imp_current_line = 70; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 70 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P0M, 4); _imp_current_line = 70; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 70 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 71 print fl (p1m, 4); print string (", ") _imp_current_line = 71; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 71 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P1M, 4); _imp_current_line = 71; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 71 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 72 print fl (p2m, 4); print string (") --> bern ( ") _imp_current_line = 72; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 72 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P2M, 4); _imp_current_line = 72; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 72 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") --> bern ( ")); // 73 print fl (p0b2, 4); print string (", ") _imp_current_line = 73; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 73 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P0B2, 4); _imp_current_line = 73; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 73 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 74 print fl (p1b2, 4); print string (", ") _imp_current_line = 74; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 74 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P1B2, 4); _imp_current_line = 74; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 74 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 75 print fl (p2b2, 4); print string (")".snl) _imp_current_line = 75; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 75 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P2B2, 4); _imp_current_line = 75; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 75 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL)); // 76 print string (" mono ( ") _imp_current_line = 76; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 76 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" mono ( ")); // 77 print fl (q0m, 4); print string (", ") _imp_current_line = 77; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 77 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q0M, 4); _imp_current_line = 77; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 77 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 78 print fl (q1m, 4); print string (", ") _imp_current_line = 78; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 78 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q1M, 4); _imp_current_line = 78; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 78 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 79 print fl (q2m, 4); print string (") --> bern ( ") _imp_current_line = 79; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 79 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q2M, 4); _imp_current_line = 79; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 79 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") --> bern ( ")); // 80 print fl (q0b2, 4); print string (", ") _imp_current_line = 80; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 80 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q0B2, 4); _imp_current_line = 80; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 80 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 81 print fl (q1b2, 4); print string (", ") _imp_current_line = 81; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 81 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q1B2, 4); _imp_current_line = 81; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 81 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 82 print fl (q2b2, 4); print string (")".snl) _imp_current_line = 82; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 82 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q2B2, 4); _imp_current_line = 82; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 82 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL)); // 83 // 84 print string ("Subprogram (2) examples:".snl) _imp_current_line = 84; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 84 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("Subprogram (2) examples:"),(_imp_string)SNL)); // 85 x = 0.25 _imp_current_line = 85; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 85 "regression-bugs-tmp/bernstein.imp" X = 0.25; // 86 y = evalbern2 (p0b2, p1b2, p2b2, x) _imp_current_line = 86; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 86 "regression-bugs-tmp/bernstein.imp" Y = EVALBERN2(P0B2, P1B2, P2B2, X); // 87 print string (" p ( "); print fl (x, 4) _imp_current_line = 87; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 87 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" p ( ")); _imp_current_line = 87; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 87 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(X, 4); // 88 print string (") = "); print fl (y, 4) _imp_current_line = 88; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 88 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") = ")); _imp_current_line = 88; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 88 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Y, 4); // 89 print string ("".snl) _imp_current_line = 89; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 89 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL)); // 90 x = 7.50 _imp_current_line = 90; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 90 "regression-bugs-tmp/bernstein.imp" X = 7.50; // 91 y = evalbern2 (p0b2, p1b2, p2b2, x) _imp_current_line = 91; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 91 "regression-bugs-tmp/bernstein.imp" Y = EVALBERN2(P0B2, P1B2, P2B2, X); // 92 print string (" p ( "); print fl (x, 4) _imp_current_line = 92; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 92 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" p ( ")); _imp_current_line = 92; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 92 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(X, 4); // 93 print string (") = "); print fl (y, 4) _imp_current_line = 93; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 93 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") = ")); _imp_current_line = 93; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 93 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Y, 4); // 94 print string ("".snl) _imp_current_line = 94; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 94 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL)); // 95 x = 0.25 _imp_current_line = 95; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 95 "regression-bugs-tmp/bernstein.imp" X = 0.25; // 96 y = evalbern2 (q0b2, q1b2, q2b2, x) _imp_current_line = 96; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 96 "regression-bugs-tmp/bernstein.imp" Y = EVALBERN2(Q0B2, Q1B2, Q2B2, X); // 97 print string (" q ( "); print fl (x, 4) _imp_current_line = 97; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 97 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" q ( ")); _imp_current_line = 97; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 97 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(X, 4); // 98 print string (") = "); print fl (y, 4) _imp_current_line = 98; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 98 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") = ")); _imp_current_line = 98; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 98 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Y, 4); // 99 print string ("".snl) _imp_current_line = 99; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 99 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL)); // 100 x = 7.50 _imp_current_line = 100; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 100 "regression-bugs-tmp/bernstein.imp" X = 7.50; // 101 y = evalbern2 (q0b2, q1b2, q2b2, x) _imp_current_line = 101; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 101 "regression-bugs-tmp/bernstein.imp" Y = EVALBERN2(Q0B2, Q1B2, Q2B2, X); // 102 print string (" q ( "); print fl (x, 4) _imp_current_line = 102; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 102 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" q ( ")); _imp_current_line = 102; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 102 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(X, 4); // 103 print string (") = "); print fl (y, 4) _imp_current_line = 103; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 103 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") = ")); _imp_current_line = 103; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 103 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Y, 4); // 104 print string ("".snl) _imp_current_line = 104; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 104 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL)); // 105 // 106 tobern3 (p0m, p1m, p2m, 0, p0b3, p1b3, p2b3, p3b3) _imp_current_line = 106; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 106 "regression-bugs-tmp/bernstein.imp" TOBERN3(P0M, P1M, P2M, 0, &P0B3, &P1B3, &P2B3, &P3B3); // 107 tobern3 (q0m, q1m, q2m, 0, q0b3, q1b3, q2b3, q3b3) _imp_current_line = 107; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 107 "regression-bugs-tmp/bernstein.imp" TOBERN3(Q0M, Q1M, Q2M, 0, &Q0B3, &Q1B3, &Q2B3, &Q3B3); // 108 tobern3 (r0m, r1m, r2m, r3m, r0b3, r1b3, r2b3, r3b3) _imp_current_line = 108; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 108 "regression-bugs-tmp/bernstein.imp" TOBERN3(R0M, R1M, R2M, R3M, &R0B3, &R1B3, &R2B3, &R3B3); // 109 print string ("Subprogram (3) examples:".snl) _imp_current_line = 109; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 109 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("Subprogram (3) examples:"),(_imp_string)SNL)); // 110 print string (" mono ( ") _imp_current_line = 110; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 110 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" mono ( ")); // 111 print fl (p0m, 4); print string (", ") _imp_current_line = 111; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 111 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P0M, 4); _imp_current_line = 111; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 111 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 112 print fl (p1m, 4); print string (", ") _imp_current_line = 112; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 112 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P1M, 4); _imp_current_line = 112; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 112 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 113 print fl (p2m, 4); print string (", ") _imp_current_line = 113; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 113 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P2M, 4); _imp_current_line = 113; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 113 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 114 print fl (0, 4); print string (") --> bern ( ") _imp_current_line = 114; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 114 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(0, 4); _imp_current_line = 114; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 114 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") --> bern ( ")); // 115 print fl (p0b3, 4); print string (", ") _imp_current_line = 115; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 115 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P0B3, 4); _imp_current_line = 115; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 115 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 116 print fl (p1b3, 4); print string (", ") _imp_current_line = 116; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 116 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P1B3, 4); _imp_current_line = 116; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 116 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 117 print fl (p2b3, 4); print string (", ") _imp_current_line = 117; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 117 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P2B3, 4); _imp_current_line = 117; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 117 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 118 print fl (p3b3, 4); print string (")".snl) _imp_current_line = 118; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 118 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P3B3, 4); _imp_current_line = 118; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 118 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL)); // 119 print string (" mono ( ") _imp_current_line = 119; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 119 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" mono ( ")); // 120 print fl (q0m, 4); print string (", ") _imp_current_line = 120; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 120 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q0M, 4); _imp_current_line = 120; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 120 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 121 print fl (q1m, 4); print string (", ") _imp_current_line = 121; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 121 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q1M, 4); _imp_current_line = 121; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 121 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 122 print fl (q2m, 4); print string (", ") _imp_current_line = 122; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 122 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q2M, 4); _imp_current_line = 122; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 122 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 123 print fl (0, 4); print string (") --> bern ( ") _imp_current_line = 123; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 123 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(0, 4); _imp_current_line = 123; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 123 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") --> bern ( ")); // 124 print fl (q0b3, 4); print string (", ") _imp_current_line = 124; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 124 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q0B3, 4); _imp_current_line = 124; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 124 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 125 print fl (q1b3, 4); print string (", ") _imp_current_line = 125; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 125 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q1B3, 4); _imp_current_line = 125; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 125 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 126 print fl (q2b3, 4); print string (", ") _imp_current_line = 126; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 126 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q2B3, 4); _imp_current_line = 126; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 126 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 127 print fl (q3b3, 4); print string (")".snl) _imp_current_line = 127; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 127 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q3B3, 4); _imp_current_line = 127; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 127 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL)); // 128 print string (" mono ( ") _imp_current_line = 128; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 128 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" mono ( ")); // 129 print fl (r0m, 4); print string (", ") _imp_current_line = 129; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 129 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(R0M, 4); _imp_current_line = 129; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 129 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 130 print fl (r1m, 4); print string (", ") _imp_current_line = 130; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 130 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(R1M, 4); _imp_current_line = 130; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 130 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 131 print fl (r2m, 4); print string (", ") _imp_current_line = 131; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 131 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(R2M, 4); _imp_current_line = 131; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 131 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 132 print fl (r3m, 4); print string (") --> bern ( ") _imp_current_line = 132; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 132 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(R3M, 4); _imp_current_line = 132; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 132 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") --> bern ( ")); // 133 print fl (r0b3, 4); print string (", ") _imp_current_line = 133; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 133 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(R0B3, 4); _imp_current_line = 133; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 133 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 134 print fl (r1b3, 4); print string (", ") _imp_current_line = 134; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 134 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(R1B3, 4); _imp_current_line = 134; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 134 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 135 print fl (r2b3, 4); print string (", ") _imp_current_line = 135; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 135 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(R2B3, 4); _imp_current_line = 135; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 135 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 136 print fl (r3b3, 4); print string (")".snl) _imp_current_line = 136; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 136 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(R3B3, 4); _imp_current_line = 136; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 136 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL)); // 137 // 138 print string ("Subprogram (4) examples:".snl) _imp_current_line = 138; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 138 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("Subprogram (4) examples:"),(_imp_string)SNL)); // 139 x = 0.25 _imp_current_line = 139; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 139 "regression-bugs-tmp/bernstein.imp" X = 0.25; // 140 y = evalbern3 (p0b3, p1b3, p2b3, p3b3, x) _imp_current_line = 140; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 140 "regression-bugs-tmp/bernstein.imp" Y = EVALBERN3(P0B3, P1B3, P2B3, P3B3, X); // 141 print string (" p ( "); print fl (x, 4) _imp_current_line = 141; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 141 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" p ( ")); _imp_current_line = 141; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 141 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(X, 4); // 142 print string (") = "); print fl (y, 4) _imp_current_line = 142; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 142 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") = ")); _imp_current_line = 142; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 142 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Y, 4); // 143 print string ("".snl) _imp_current_line = 143; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 143 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL)); // 144 x = 7.50 _imp_current_line = 144; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 144 "regression-bugs-tmp/bernstein.imp" X = 7.50; // 145 y = evalbern3 (p0b3, p1b3, p2b3, p3b3, x) _imp_current_line = 145; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 145 "regression-bugs-tmp/bernstein.imp" Y = EVALBERN3(P0B3, P1B3, P2B3, P3B3, X); // 146 print string (" p ( "); print fl (x, 4) _imp_current_line = 146; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 146 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" p ( ")); _imp_current_line = 146; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 146 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(X, 4); // 147 print string (") = "); print fl (y, 4) _imp_current_line = 147; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 147 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") = ")); _imp_current_line = 147; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 147 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Y, 4); // 148 print string ("".snl) _imp_current_line = 148; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 148 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL)); // 149 x = 0.25 _imp_current_line = 149; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 149 "regression-bugs-tmp/bernstein.imp" X = 0.25; // 150 y = evalbern3 (q0b3, q1b3, q2b3, q3b3, x) _imp_current_line = 150; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 150 "regression-bugs-tmp/bernstein.imp" Y = EVALBERN3(Q0B3, Q1B3, Q2B3, Q3B3, X); // 151 print string (" q ( "); print fl (x, 4) _imp_current_line = 151; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 151 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" q ( ")); _imp_current_line = 151; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 151 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(X, 4); // 152 print string (") = "); print fl (y, 4) _imp_current_line = 152; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 152 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") = ")); _imp_current_line = 152; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 152 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Y, 4); // 153 print string ("".snl) _imp_current_line = 153; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 153 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL)); // 154 x = 7.50 _imp_current_line = 154; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 154 "regression-bugs-tmp/bernstein.imp" X = 7.50; // 155 y = evalbern3 (q0b3, q1b3, q2b3, q3b3, x) _imp_current_line = 155; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 155 "regression-bugs-tmp/bernstein.imp" Y = EVALBERN3(Q0B3, Q1B3, Q2B3, Q3B3, X); // 156 print string (" q ( "); print fl (x, 4) _imp_current_line = 156; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 156 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" q ( ")); _imp_current_line = 156; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 156 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(X, 4); // 157 print string (") = "); print fl (y, 4) _imp_current_line = 157; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 157 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") = ")); _imp_current_line = 157; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 157 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Y, 4); // 158 print string ("".snl) _imp_current_line = 158; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 158 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL)); // 159 x = 0.25 _imp_current_line = 159; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 159 "regression-bugs-tmp/bernstein.imp" X = 0.25; // 160 y = evalbern3 (r0b3, r1b3, r2b3, r3b3, x) _imp_current_line = 160; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 160 "regression-bugs-tmp/bernstein.imp" Y = EVALBERN3(R0B3, R1B3, R2B3, R3B3, X); // 161 print string (" r ( "); print fl (x, 4) _imp_current_line = 161; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 161 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" r ( ")); _imp_current_line = 161; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 161 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(X, 4); // 162 print string (") = "); print fl (y, 4) _imp_current_line = 162; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 162 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") = ")); _imp_current_line = 162; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 162 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Y, 4); // 163 print string ("".snl) _imp_current_line = 163; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 163 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL)); // 164 x = 7.50 _imp_current_line = 164; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 164 "regression-bugs-tmp/bernstein.imp" X = 7.50; // 165 y = evalbern3 (r0b3, r1b3, r2b3, r3b3, x) _imp_current_line = 165; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 165 "regression-bugs-tmp/bernstein.imp" Y = EVALBERN3(R0B3, R1B3, R2B3, R3B3, X); // 166 print string (" r ( "); print fl (x, 4) _imp_current_line = 166; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 166 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" r ( ")); _imp_current_line = 166; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 166 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(X, 4); // 167 print string (") = "); print fl (y, 4) _imp_current_line = 167; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 167 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") = ")); _imp_current_line = 167; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 167 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Y, 4); // 168 print string ("".snl) _imp_current_line = 168; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 168 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL)); // 169 // 170 bern2to3 (p0b2, p1b2, p2b2, pc0, pc1, pc2, pc3) _imp_current_line = 170; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 170 "regression-bugs-tmp/bernstein.imp" BERN2TO3(P0B2, P1B2, P2B2, &PC0, &PC1, &PC2, &PC3); // 171 bern2to3 (q0b2, q1b2, q2b2, qc0, qc1, qc2, qc3) _imp_current_line = 171; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 171 "regression-bugs-tmp/bernstein.imp" BERN2TO3(Q0B2, Q1B2, Q2B2, &QC0, &QC1, &QC2, &QC3); // 172 print string ("Subprogram (5) examples:".snl) _imp_current_line = 172; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 172 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal("Subprogram (5) examples:"),(_imp_string)SNL)); // 173 print string (" bern ( ") _imp_current_line = 173; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 173 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" bern ( ")); // 174 print fl (p0b2, 4); print string (", ") _imp_current_line = 174; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 174 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P0B2, 4); _imp_current_line = 174; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 174 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 175 print fl (p1b2, 4); print string (", ") _imp_current_line = 175; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 175 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P1B2, 4); _imp_current_line = 175; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 175 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 176 print fl (p2b2, 4); print string (") --> bern ( ") _imp_current_line = 176; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 176 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(P2B2, 4); _imp_current_line = 176; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 176 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") --> bern ( ")); // 177 print fl (pc0, 4); print string (", ") _imp_current_line = 177; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 177 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(PC0, 4); _imp_current_line = 177; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 177 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 178 print fl (pc1, 4); print string (", ") _imp_current_line = 178; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 178 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(PC1, 4); _imp_current_line = 178; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 178 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 179 print fl (pc2, 4); print string (", ") _imp_current_line = 179; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 179 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(PC2, 4); _imp_current_line = 179; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 179 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 180 print fl (pc3, 4); print string (")".snl) _imp_current_line = 180; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 180 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(PC3, 4); _imp_current_line = 180; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 180 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL)); // 181 print string (" bern ( ") _imp_current_line = 181; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 181 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(" bern ( ")); // 182 print fl (q0b2, 4); print string (", ") _imp_current_line = 182; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 182 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q0B2, 4); _imp_current_line = 182; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 182 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 183 print fl (q1b2, 4); print string (", ") _imp_current_line = 183; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 183 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q1B2, 4); _imp_current_line = 183; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 183 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 184 print fl (q2b2, 4); print string (") --> bern ( ") _imp_current_line = 184; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 184 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(Q2B2, 4); _imp_current_line = 184; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 184 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(") --> bern ( ")); // 185 print fl (qc0, 4); print string (", ") _imp_current_line = 185; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 185 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(QC0, 4); _imp_current_line = 185; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 185 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 186 print fl (qc1, 4); print string (", ") _imp_current_line = 186; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 186 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(QC1, 4); _imp_current_line = 186; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 186 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 187 print fl (qc2, 4); print string (", ") _imp_current_line = 187; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 187 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(QC2, 4); _imp_current_line = 187; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 187 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_str_literal(", ")); // 188 print fl (qc3, 4); print string (")".snl) _imp_current_line = 188; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 188 "regression-bugs-tmp/bernstein.imp" _imp_PRINTFL(QC3, 4); _imp_current_line = 188; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 188 "regression-bugs-tmp/bernstein.imp" _imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL)); // 189 // 190 exit(0) _imp_current_line = 190; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 190 "regression-bugs-tmp/bernstein.imp" EXIT(0); // 191 // 192 %endofprogram _imp_current_line = 192; _imp_current_file = "regression-bugs-tmp/bernstein.imp"; #line 192 "regression-bugs-tmp/bernstein.imp" return 0; _imp_endofblock: ; } // End of block _imp_main at level 1 #line 192 "regression-bugs-tmp/bernstein.imp" // End of file