#include <perms.h>

                                                                //      1  %begin
#line 1 "regression-bugs-tmp/bernstein.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //      2  %externalroutinespec exit %alias "exit" (%integer rc)
#line 2 "regression-bugs-tmp/bernstein.imp"
extern void EXIT( int RC ) __asm__("exit");
                                                                //      3  %const %string (1) snl = "
#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)
#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"
{
                                                                //      7       b0 = a0
#line 7 "regression-bugs-tmp/bernstein.imp"
*B0 = A0;
                                                                //      8       b1 = a0 + a1 / 2
#line 8 "regression-bugs-tmp/bernstein.imp"
*B1 = ((A0) + (((double)((double)((double)(A1)) / (double)((float)(2))))));
                                                                //      9       b2 = a0 + a1 + a2
#line 9 "regression-bugs-tmp/bernstein.imp"
*B2 = (((double)((((double)(A0)) + (A1)))) + (A2));
                                                                //     10  %end
#line 10 "regression-bugs-tmp/bernstein.imp"
/* Remove %on %event handler here if present for this block */
return;
} // 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)
#line 13 "regression-bugs-tmp/bernstein.imp"
double EVALBERN2( double B0, double B1, double B2, double T )
#line 13 "regression-bugs-tmp/bernstein.imp"
{
                                                                //     14      %long %real s = 1.0 - t
#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
#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
#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
#line 17 "regression-bugs-tmp/bernstein.imp"
/* Remove %on %event handler here if present for this block */
return ((((((double)(S)) * (B01)))) + ((((double)(T)) * (B12))));
                                                                //     18  %end
#line 18 "regression-bugs-tmp/bernstein.imp"
} // 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)
#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"
{
                                                                //     21      b0 = a0
#line 21 "regression-bugs-tmp/bernstein.imp"
*B0 = A0;
                                                                //     22      b1 = a0 + a1 / 3
#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
#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
#line 24 "regression-bugs-tmp/bernstein.imp"
*B3 = (((double)((((double)((((double)(A0)) + (A1)))) + (A2)))) + (A3));
                                                                //     25  %end
#line 25 "regression-bugs-tmp/bernstein.imp"
/* Remove %on %event handler here if present for this block */
return;
} // 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)
#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"
{
/*promote*/                                                                //     29      %long %real s = 1 - t
#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
#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
#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
#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
#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
#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
#line 35 "regression-bugs-tmp/bernstein.imp"
/* Remove %on %event handler here if present for this block */
return ((((((double)(S)) * (B012)))) + ((((double)(T)) * (B123))));
                                                                //     36  %end
#line 36 "regression-bugs-tmp/bernstein.imp"
} // 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)
#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"
{
                                                                //     39      c0 = q0
#line 39 "regression-bugs-tmp/bernstein.imp"
*C0 = Q0;
/*promote*/                                                                //     40      c1 = q0 / 3   + q1 * 2/3
#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
#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
#line 42 "regression-bugs-tmp/bernstein.imp"
*C3 = Q2;
                                                                //     43  %end
#line 43 "regression-bugs-tmp/bernstein.imp"
/* Remove %on %event handler here if present for this block */
return;
} // 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)
#line 46 "regression-bugs-tmp/bernstein.imp"
double EVALMONO2( double A0, double A1, double A2, double T )
#line 46 "regression-bugs-tmp/bernstein.imp"
{
                                                                //     47      %result = a0 + (t * (a1 + (t * a2)))
#line 47 "regression-bugs-tmp/bernstein.imp"
/* Remove %on %event handler here if present for this block */
return ((A0) + ((double)(((T) * ((double)(((A1) + ((double)((((double)(T)) * (A2)))))))))));
                                                                //     48  %end
#line 48 "regression-bugs-tmp/bernstein.imp"
} // 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)
#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"
{
                                                                //     52      %result = a0 + (t * (a1 + (t * (a2 + (t * a3)))))
#line 52 "regression-bugs-tmp/bernstein.imp"
/* Remove %on %event handler here if present for this block */
return ((A0) + ((double)(((T) * ((double)(((A1) + ((double)(((T) * ((double)(((A2) + ((double)((((double)(T)) * (A3)))))))))))))))));
                                                                //     53  %end
#line 53 "regression-bugs-tmp/bernstein.imp"
} // End of block EVALMONO3 at level 2
                                                                //     54  
                                                                //     55      %long %real p0m, p1m, p2m, q0m, q1m, q2m, r0m, r1m, r2m, r3m
#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
#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
#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
#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
#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
#line 62 "regression-bugs-tmp/bernstein.imp"
P0M = 1;
#line 62 "regression-bugs-tmp/bernstein.imp"
P1M = 0;
#line 62 "regression-bugs-tmp/bernstein.imp"
P2M = 0;
                                                                //     63      q0m = 1; q1m = 2; q2m = 3
#line 63 "regression-bugs-tmp/bernstein.imp"
Q0M = 1;
#line 63 "regression-bugs-tmp/bernstein.imp"
Q1M = 2;
#line 63 "regression-bugs-tmp/bernstein.imp"
Q2M = 3;
                                                                //     64      r0m = 1; r1m = 2; r2m = 3; r3m = 4
#line 64 "regression-bugs-tmp/bernstein.imp"
R0M = 1;
#line 64 "regression-bugs-tmp/bernstein.imp"
R1M = 2;
#line 64 "regression-bugs-tmp/bernstein.imp"
R2M = 3;
#line 64 "regression-bugs-tmp/bernstein.imp"
R3M = 4;
                                                                //     65      
                                                                //     66      tobern2 (p0m, p1m, p2m, p0b2, p1b2, p2b2)
#line 66 "regression-bugs-tmp/bernstein.imp"
TOBERN2(P0M, P1M, P2M, &P0B2, &P1B2, &P2B2);
                                                                //     67      tobern2 (q0m, q1m, q2m, q0b2, q1b2, q2b2)
#line 67 "regression-bugs-tmp/bernstein.imp"
TOBERN2(Q0M, Q1M, Q2M, &Q0B2, &Q1B2, &Q2B2);
                                                                //     68      print string ("Subprogram (1) examples:".snl)
#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 ( ")
#line 69 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  mono ( "));
                                                                //     70      print fl (p0m, 4); print string (", ")
#line 70 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P0M, 4);
#line 70 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //     71      print fl (p1m, 4); print string (", ")
#line 71 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P1M, 4);
#line 71 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //     72      print fl (p2m, 4); print string (") --> bern ( ")
#line 72 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P2M, 4);
#line 72 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") --> bern ( "));
                                                                //     73      print fl (p0b2, 4); print string (", ")
#line 73 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P0B2, 4);
#line 73 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //     74      print fl (p1b2, 4); print string (", ")
#line 74 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P1B2, 4);
#line 74 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //     75      print fl (p2b2, 4); print string (")".snl)
#line 75 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P2B2, 4);
#line 75 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL));
                                                                //     76      print string ("  mono ( ")
#line 76 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  mono ( "));
                                                                //     77      print fl (q0m, 4); print string (", ")
#line 77 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q0M, 4);
#line 77 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //     78      print fl (q1m, 4); print string (", ")
#line 78 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q1M, 4);
#line 78 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //     79      print fl (q2m, 4); print string (") --> bern ( ")
#line 79 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q2M, 4);
#line 79 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") --> bern ( "));
                                                                //     80      print fl (q0b2, 4); print string (", ")
#line 80 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q0B2, 4);
#line 80 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //     81      print fl (q1b2, 4); print string (", ")
#line 81 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q1B2, 4);
#line 81 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //     82      print fl (q2b2, 4); print string (")".snl)
#line 82 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q2B2, 4);
#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)
#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
#line 85 "regression-bugs-tmp/bernstein.imp"
X = 0.25;
                                                                //     86      y = evalbern2 (p0b2, p1b2, p2b2, x)
#line 86 "regression-bugs-tmp/bernstein.imp"
Y = EVALBERN2(P0B2, P1B2, P2B2, X);
                                                                //     87      print string ("  p ( "); print fl (x, 4)
#line 87 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  p ( "));
#line 87 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(X, 4);
                                                                //     88      print string (") = "); print fl (y, 4)
#line 88 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") = "));
#line 88 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Y, 4);
                                                                //     89      print string ("".snl)
#line 89 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL));
                                                                //     90      x = 7.50
#line 90 "regression-bugs-tmp/bernstein.imp"
X = 7.50;
                                                                //     91      y = evalbern2 (p0b2, p1b2, p2b2, x)
#line 91 "regression-bugs-tmp/bernstein.imp"
Y = EVALBERN2(P0B2, P1B2, P2B2, X);
                                                                //     92      print string ("  p ( "); print fl (x, 4)
#line 92 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  p ( "));
#line 92 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(X, 4);
                                                                //     93      print string (") = "); print fl (y, 4)
#line 93 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") = "));
#line 93 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Y, 4);
                                                                //     94      print string ("".snl)
#line 94 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL));
                                                                //     95      x = 0.25
#line 95 "regression-bugs-tmp/bernstein.imp"
X = 0.25;
                                                                //     96      y = evalbern2 (q0b2, q1b2, q2b2, x)
#line 96 "regression-bugs-tmp/bernstein.imp"
Y = EVALBERN2(Q0B2, Q1B2, Q2B2, X);
                                                                //     97      print string ("  q ( "); print fl (x, 4)
#line 97 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  q ( "));
#line 97 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(X, 4);
                                                                //     98      print string (") = "); print fl (y, 4)
#line 98 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") = "));
#line 98 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Y, 4);
                                                                //     99      print string ("".snl)
#line 99 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL));
                                                                //    100      x = 7.50
#line 100 "regression-bugs-tmp/bernstein.imp"
X = 7.50;
                                                                //    101      y = evalbern2 (q0b2, q1b2, q2b2, x)
#line 101 "regression-bugs-tmp/bernstein.imp"
Y = EVALBERN2(Q0B2, Q1B2, Q2B2, X);
                                                                //    102      print string ("  q ( "); print fl (x, 4)
#line 102 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  q ( "));
#line 102 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(X, 4);
                                                                //    103      print string (") = "); print fl (y, 4)
#line 103 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") = "));
#line 103 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Y, 4);
                                                                //    104      print string ("".snl)
#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)
#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)
#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)
#line 108 "regression-bugs-tmp/bernstein.imp"
TOBERN3(R0M, R1M, R2M, R3M, &R0B3, &R1B3, &R2B3, &R3B3);
                                                                //    109      print string ("Subprogram (3) examples:".snl)
#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 ( ")
#line 110 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  mono ( "));
                                                                //    111      print fl (p0m, 4); print string (", ")
#line 111 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P0M, 4);
#line 111 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    112      print fl (p1m, 4); print string (", ")
#line 112 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P1M, 4);
#line 112 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    113      print fl (p2m, 4); print string (", ")
#line 113 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P2M, 4);
#line 113 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    114      print fl (0, 4); print string (") --> bern ( ")
#line 114 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(0, 4);
#line 114 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") --> bern ( "));
                                                                //    115      print fl (p0b3, 4); print string (", ")
#line 115 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P0B3, 4);
#line 115 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    116      print fl (p1b3, 4); print string (", ")
#line 116 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P1B3, 4);
#line 116 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    117      print fl (p2b3, 4); print string (", ")
#line 117 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P2B3, 4);
#line 117 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    118      print fl (p3b3, 4); print string (")".snl)
#line 118 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P3B3, 4);
#line 118 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL));
                                                                //    119      print string ("  mono ( ")
#line 119 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  mono ( "));
                                                                //    120      print fl (q0m, 4); print string (", ")
#line 120 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q0M, 4);
#line 120 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    121      print fl (q1m, 4); print string (", ")
#line 121 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q1M, 4);
#line 121 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    122      print fl (q2m, 4); print string (", ")
#line 122 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q2M, 4);
#line 122 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    123      print fl (0, 4); print string (") --> bern ( ")
#line 123 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(0, 4);
#line 123 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") --> bern ( "));
                                                                //    124      print fl (q0b3, 4); print string (", ")
#line 124 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q0B3, 4);
#line 124 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    125      print fl (q1b3, 4); print string (", ")
#line 125 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q1B3, 4);
#line 125 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    126      print fl (q2b3, 4); print string (", ")
#line 126 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q2B3, 4);
#line 126 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    127      print fl (q3b3, 4); print string (")".snl)
#line 127 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q3B3, 4);
#line 127 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL));
                                                                //    128      print string ("  mono ( ")
#line 128 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  mono ( "));
                                                                //    129      print fl (r0m, 4); print string (", ")
#line 129 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(R0M, 4);
#line 129 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    130      print fl (r1m, 4); print string (", ")
#line 130 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(R1M, 4);
#line 130 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    131      print fl (r2m, 4); print string (", ")
#line 131 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(R2M, 4);
#line 131 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    132      print fl (r3m, 4); print string (") --> bern ( ")
#line 132 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(R3M, 4);
#line 132 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") --> bern ( "));
                                                                //    133      print fl (r0b3, 4); print string (", ")
#line 133 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(R0B3, 4);
#line 133 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    134      print fl (r1b3, 4); print string (", ")
#line 134 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(R1B3, 4);
#line 134 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    135      print fl (r2b3, 4); print string (", ")
#line 135 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(R2B3, 4);
#line 135 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    136      print fl (r3b3, 4); print string (")".snl)
#line 136 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(R3B3, 4);
#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)
#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
#line 139 "regression-bugs-tmp/bernstein.imp"
X = 0.25;
                                                                //    140      y = evalbern3 (p0b3, p1b3, p2b3, p3b3, x)
#line 140 "regression-bugs-tmp/bernstein.imp"
Y = EVALBERN3(P0B3, P1B3, P2B3, P3B3, X);
                                                                //    141      print string ("  p ( "); print fl (x, 4)
#line 141 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  p ( "));
#line 141 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(X, 4);
                                                                //    142      print string (") = "); print fl (y, 4)
#line 142 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") = "));
#line 142 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Y, 4);
                                                                //    143      print string ("".snl)
#line 143 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL));
                                                                //    144      x = 7.50
#line 144 "regression-bugs-tmp/bernstein.imp"
X = 7.50;
                                                                //    145      y = evalbern3 (p0b3, p1b3, p2b3, p3b3, x)
#line 145 "regression-bugs-tmp/bernstein.imp"
Y = EVALBERN3(P0B3, P1B3, P2B3, P3B3, X);
                                                                //    146      print string ("  p ( "); print fl (x, 4)
#line 146 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  p ( "));
#line 146 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(X, 4);
                                                                //    147      print string (") = "); print fl (y, 4)
#line 147 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") = "));
#line 147 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Y, 4);
                                                                //    148      print string ("".snl)
#line 148 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL));
                                                                //    149      x = 0.25
#line 149 "regression-bugs-tmp/bernstein.imp"
X = 0.25;
                                                                //    150      y = evalbern3 (q0b3, q1b3, q2b3, q3b3, x)
#line 150 "regression-bugs-tmp/bernstein.imp"
Y = EVALBERN3(Q0B3, Q1B3, Q2B3, Q3B3, X);
                                                                //    151      print string ("  q ( "); print fl (x, 4)
#line 151 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  q ( "));
#line 151 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(X, 4);
                                                                //    152      print string (") = "); print fl (y, 4)
#line 152 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") = "));
#line 152 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Y, 4);
                                                                //    153      print string ("".snl)
#line 153 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL));
                                                                //    154      x = 7.50
#line 154 "regression-bugs-tmp/bernstein.imp"
X = 7.50;
                                                                //    155      y = evalbern3 (q0b3, q1b3, q2b3, q3b3, x)
#line 155 "regression-bugs-tmp/bernstein.imp"
Y = EVALBERN3(Q0B3, Q1B3, Q2B3, Q3B3, X);
                                                                //    156      print string ("  q ( "); print fl (x, 4)
#line 156 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  q ( "));
#line 156 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(X, 4);
                                                                //    157      print string (") = "); print fl (y, 4)
#line 157 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") = "));
#line 157 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Y, 4);
                                                                //    158      print string ("".snl)
#line 158 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL));
                                                                //    159      x = 0.25
#line 159 "regression-bugs-tmp/bernstein.imp"
X = 0.25;
                                                                //    160      y = evalbern3 (r0b3, r1b3, r2b3, r3b3, x)
#line 160 "regression-bugs-tmp/bernstein.imp"
Y = EVALBERN3(R0B3, R1B3, R2B3, R3B3, X);
                                                                //    161      print string ("  r ( "); print fl (x, 4)
#line 161 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  r ( "));
#line 161 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(X, 4);
                                                                //    162      print string (") = "); print fl (y, 4)
#line 162 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") = "));
#line 162 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Y, 4);
                                                                //    163      print string ("".snl)
#line 163 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(""),(_imp_string)SNL));
                                                                //    164      x = 7.50
#line 164 "regression-bugs-tmp/bernstein.imp"
X = 7.50;
                                                                //    165      y = evalbern3 (r0b3, r1b3, r2b3, r3b3, x)
#line 165 "regression-bugs-tmp/bernstein.imp"
Y = EVALBERN3(R0B3, R1B3, R2B3, R3B3, X);
                                                                //    166      print string ("  r ( "); print fl (x, 4)
#line 166 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  r ( "));
#line 166 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(X, 4);
                                                                //    167      print string (") = "); print fl (y, 4)
#line 167 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") = "));
#line 167 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Y, 4);
                                                                //    168      print string ("".snl)
#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)
#line 170 "regression-bugs-tmp/bernstein.imp"
BERN2TO3(P0B2, P1B2, P2B2, &PC0, &PC1, &PC2, &PC3);
                                                                //    171      bern2to3 (q0b2, q1b2, q2b2, qc0, qc1, qc2, qc3)
#line 171 "regression-bugs-tmp/bernstein.imp"
BERN2TO3(Q0B2, Q1B2, Q2B2, &QC0, &QC1, &QC2, &QC3);
                                                                //    172      print string ("Subprogram (5) examples:".snl)
#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 ( ")
#line 173 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  bern ( "));
                                                                //    174      print fl (p0b2, 4); print string (", ")
#line 174 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P0B2, 4);
#line 174 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    175      print fl (p1b2, 4); print string (", ")
#line 175 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P1B2, 4);
#line 175 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    176      print fl (p2b2, 4); print string (") --> bern ( ")
#line 176 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(P2B2, 4);
#line 176 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") --> bern ( "));
                                                                //    177      print fl (pc0, 4); print string (", ")
#line 177 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(PC0, 4);
#line 177 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    178      print fl (pc1, 4); print string (", ")
#line 178 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(PC1, 4);
#line 178 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    179      print fl (pc2, 4); print string (", ")
#line 179 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(PC2, 4);
#line 179 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    180      print fl (pc3, 4); print string (")".snl)
#line 180 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(PC3, 4);
#line 180 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL));
                                                                //    181      print string ("  bern ( ")
#line 181 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal("  bern ( "));
                                                                //    182      print fl (q0b2, 4); print string (", ")
#line 182 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q0B2, 4);
#line 182 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    183      print fl (q1b2, 4); print string (", ")
#line 183 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q1B2, 4);
#line 183 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    184      print fl (q2b2, 4); print string (") --> bern ( ")
#line 184 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(Q2B2, 4);
#line 184 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(") --> bern ( "));
                                                                //    185      print fl (qc0, 4); print string (", ")
#line 185 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(QC0, 4);
#line 185 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    186      print fl (qc1, 4); print string (", ")
#line 186 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(QC1, 4);
#line 186 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    187      print fl (qc2, 4); print string (", ")
#line 187 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(QC2, 4);
#line 187 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_str_literal(", "));
                                                                //    188      print fl (qc3, 4); print string (")".snl)
#line 188 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTFL(QC3, 4);
#line 188 "regression-bugs-tmp/bernstein.imp"
_imp_PRINTSTRING(_imp_join((_imp_string)_imp_str_literal(")"),(_imp_string)SNL));
                                                                //    189      
                                                                //    190      exit(0)
#line 190 "regression-bugs-tmp/bernstein.imp"
EXIT(0);
                                                                //    191      
                                                                //    192  %endofprogram
#line 192 "regression-bugs-tmp/bernstein.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
#line 192 "regression-bugs-tmp/bernstein.imp"
// End of file
