#include <perms.h>

                                                                //      1  
                                                                //      2  !*   Title      :  V    The IMP  INTEGER  Facilities
                                                                //      3  !*   Version    :  I
                                                                //      4  !*   Date       :  12 July 1984
                                                                //      5  !*   Description:  Tests initialisation, coercion, SIZE OF, precedence.
                                                                //      6  
                                                                //      7  %Begin
#line 7 "regression-run-tmp/test0004-intarith.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //      8  
                                                                //      9     %Integer J = 23 + 77 - 50    { i.e. 50
#line 9 "regression-run-tmp/test0004-intarith.imp"
int J;
#line 9 "regression-run-tmp/test0004-intarith.imp"
J = 50;
                                                                //     10     %Integer K = J - 40          { i.e. 10
#line 10 "regression-run-tmp/test0004-intarith.imp"
int K;
#line 10 "regression-run-tmp/test0004-intarith.imp"
K = (((int)(J)) - (40));
                                                                //     11     %Integer M
#line 11 "regression-run-tmp/test0004-intarith.imp"
int M;
                                                                //     12     %Integer N
#line 12 "regression-run-tmp/test0004-intarith.imp"
int N;
                                                                //     13     %Integer R
#line 13 "regression-run-tmp/test0004-intarith.imp"
int R;
                                                                //     14     %Integer P
#line 14 "regression-run-tmp/test0004-intarith.imp"
int P;
                                                                //     15     %Integer NL     { Try to redefine the permanent procedures.
#line 15 "regression-run-tmp/test0004-intarith.imp"
int NL;
                                                                //     16     %Integer Spaces
#line 16 "regression-run-tmp/test0004-intarith.imp"
int SPACES;
                                                                //     17  
                                                                //     18     %Byte  %Integer  B = 'F'
#line 18 "regression-run-tmp/test0004-intarith.imp"
unsigned char B;
#line 18 "regression-run-tmp/test0004-intarith.imp"
B = 70;
                                                                //     19     %Short %Integer  S
#line 19 "regression-run-tmp/test0004-intarith.imp"
short S;
                                                                //     20     %Short %Integer  T
#line 20 "regression-run-tmp/test0004-intarith.imp"
short T;
                                                                //     21  
                                                                //     22  ! The test below fails as initially written because it evaluates 2147483600 * 2 as an integer
                                                                //     23  ! which is then assigned to the long integer.
                                                                //     24  
                                                                //     25  !  %Long  %Integer  L = 2147483600 * 2    { Two to the power of 32.
                                                                //     26  
                                                                //     27  ! However this version evaluates 2^^32 correctly:
                                                                //     28     %Long  %Integer  L = 2147483600 {* 2} ; L = L * 2    { Two to the power of 32.
#line 28 "regression-run-tmp/test0004-intarith.imp"
long long int L;
#line 28 "regression-run-tmp/test0004-intarith.imp"
L = 2147483600;
#line 28 "regression-run-tmp/test0004-intarith.imp"
L = ((L) * ((long long)(2)));
                                                                //     29  
                                                                //     30     %Constant %Byte %Integer  CB1 = 255
                                                                //     31     %Constant %Byte %Integer  CB2 = 0
                                                                //     32  
                                                                //     33     %Constant %Integer  CInt1 = CB1 + 3 * 4
                                                                //     34     %Constant %Integer  CInt2 = CInt1 + CB2 + 321
                                                                //     35     %Constant %Integer  CInt4 = 3
                                                                //     36     %Constant %Integer  MInt1 = M'X'
                                                                //     37     %Constant %Integer  MInt2 = M'IMP'
                                                                //     38  
                                                                //     39  
                                                                //     40  
                                                                //     41           
                                                                //     42  %owninteger failures=0
#line 42 "regression-run-tmp/test0004-intarith.imp"
static int FAILURES = 0;
                                                                //     43  
                                                                //     44  %routine pass
#line 44 "regression-run-tmp/test0004-intarith.imp"
void PASS( void )
#line 44 "regression-run-tmp/test0004-intarith.imp"
{
                                                                //     45    printstring("Pass: ")
#line 45 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Pass: "));
                                                                //     46  %end
#line 46 "regression-run-tmp/test0004-intarith.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PASS at level 2
                                                                //     47  %routine fail
#line 47 "regression-run-tmp/test0004-intarith.imp"
void FAIL( void )
#line 47 "regression-run-tmp/test0004-intarith.imp"
{
                                                                //     48    printstring("FAIL: ")
#line 48 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("FAIL: "));
                                                                //     49    failures = failures+1
#line 49 "regression-run-tmp/test0004-intarith.imp"
FAILURES = (((int)(FAILURES)) + (1));
                                                                //     50  %end
#line 50 "regression-run-tmp/test0004-intarith.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block FAIL at level 2
                                                                //     51  
                                                                //     52           
                                                                //     53  
                                                                //     54        
                                                                //     55  
                                                                //     56     %Integer %Function  F
#line 56 "regression-run-tmp/test0004-intarith.imp"
int F( void )
#line 56 "regression-run-tmp/test0004-intarith.imp"
{
                                                                //     57  
                                                                //     58       !*  An extremely simple integer function that merely
                                                                //     59       !*  returns the number THREE.  Note that this function 
                                                                //     60       !*  does not presuppose parameter passing or expression
                                                                //     61       !*  evaluation within functions.  It merely tests the
                                                                //     62       !*  ability to encorporate functions within expressions. 
                                                                //     63                                                             
                                                                //     64       %Result = 3
#line 64 "regression-run-tmp/test0004-intarith.imp"
/* Remove %on %event handler here if present for this block */
return 3;
                                                                //     65  
                                                                //     66      %End
#line 66 "regression-run-tmp/test0004-intarith.imp"
} // End of block F at level 2
                                                                //     67  
                                                                //     68  
                                                                //     69  
                                                                //     70  
                                                                //     71  !   Open Output (2, "Journal")
                                                                //     72  !   Select Output (2)
                                                                //     73  
                                                                //     74  
                                                                //     75  
                                                                //     76     New Lines(2)
#line 76 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //     77     Print String ("INTEGER Arithmetic Validation");   New Line
#line 77 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("INTEGER Arithmetic Validation"));
#line 77 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //     78     Print String ("=============================");   New Lines (2)
#line 78 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("============================="));
#line 78 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //     79  
                                                                //     80  
                                                                //     81     Print String ("Entities:");  New Line
#line 81 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Entities:"));
#line 81 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //     82     Print String ("-------- ");  New Lines (2)
#line 82 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("-------- "));
#line 82 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //     83     
                                                                //     84     Print String ("Constants:                      ");  New Line
#line 84 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Constants:                      "));
#line 84 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //     85     Print String ("---------                       ");  New Line
#line 85 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("---------                       "));
#line 85 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //     86     Print String ("%Byte %Integer  CB1 = 255       ");  New Line
#line 86 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Byte %Integer  CB1 = 255       "));
#line 86 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //     87     Print String ("%Byte %Integer  CB2 = 0         ");  New Lines (2)
#line 87 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Byte %Integer  CB2 = 0         "));
#line 87 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //     88     Print String ("%Integer  CInt1 = CB1 + 3 * 4      ");  New Line
#line 88 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer  CInt1 = CB1 + 3 * 4      "));
#line 88 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //     89     Print String ("%Integer  CInt2 = CInt1 + CB2 + 321");  New Line
#line 89 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer  CInt2 = CInt1 + CB2 + 321"));
#line 89 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //     90     Print String ("%Integer  CInt4 = 3                ");  New Lines (2)
#line 90 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer  CInt4 = 3                "));
#line 90 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //     91     Print String ("%Integer  MInt1 = M'X'             ");  New Line
#line 91 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer  MInt1 = M'X'             "));
#line 91 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //     92     Print String ("%Integer  MInt2 = M'IMP'           ");  New Lines (2)
#line 92 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer  MInt2 = M'IMP'           "));
#line 92 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //     93     
                                                                //     94     New Lines (3)
#line 94 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(3);
                                                                //     95  
                                                                //     96     Print String ("Variables:               ");    New Line
#line 96 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Variables:               "));
#line 96 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //     97     Print String ("---------                ");  New Line
#line 97 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("---------                "));
#line 97 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //     98     Print String ("%Integer J = 23 + 77 - 50");  New Line
#line 98 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer J = 23 + 77 - 50"));
#line 98 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //     99     Print String ("%Integer K = J - 40      ");  New Line
#line 99 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer K = J - 40      "));
#line 99 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    100     Print String ("%Integer M               ");  New Line
#line 100 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer M               "));
#line 100 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    101     Print String ("%Integer N               ");  New Line
#line 101 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer N               "));
#line 101 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    102     Print String ("%Integer R               ");  New Line
#line 102 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer R               "));
#line 102 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    103     Print String ("%Integer P               ");  New Lines (2)
#line 103 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer P               "));
#line 103 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    104     Print String ("%Integer NL              ");  New Line
#line 104 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer NL              "));
#line 104 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    105     Print String ("%Integer Spaces          ");  New Lines (2)
#line 105 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Integer Spaces          "));
#line 105 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    106     Print String ("%Byte  %Integer B = 'F'  ");  New Lines (2)
#line 106 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Byte  %Integer B = 'F'  "));
#line 106 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    107     Print String ("%Short %Integer S        ");  New Line
#line 107 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Short %Integer S        "));
#line 107 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    108     Print String ("%Short %Integer T        ");  New Lines (2)
#line 108 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Short %Integer T        "));
#line 108 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    109     Print String ("%Long  %Integer L = 2147483600 * 2");  New Lines (2)
#line 109 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("%Long  %Integer L = 2147483600 * 2"));
#line 109 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    110  
                                                                //    111  
                                                                //    112     New Lines (5)
#line 112 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(5);
                                                                //    113  
                                                                //    114  
                                                                //    115     Print String ("Test Simple Assignment of Integer Values"); New Line
#line 115 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Test Simple Assignment of Integer Values"));
#line 115 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    116     Print String ("----------------------------------------"); New Lines (2)
#line 116 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("----------------------------------------"));
#line 116 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    117  
                                                                //    118  
                                                                //    119     %If J = 50 %then pass %else fail
#line 119 "regression-run-tmp/test0004-intarith.imp"
if (((J) != (50))) goto L_0002;
#line 119 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 119 "regression-run-tmp/test0004-intarith.imp"
goto L_0003;
#line 119 "regression-run-tmp/test0004-intarith.imp"
L_0002:;
#line 119 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 119 "regression-run-tmp/test0004-intarith.imp"
L_0003:;
                                                                //    120     Print String ("Initialisation of J = 50")
#line 120 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Initialisation of J = 50"));
                                                                //    121     New Line
#line 121 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    122  
                                                                //    123  
                                                                //    124     %If K = 10 %then pass %else fail
#line 124 "regression-run-tmp/test0004-intarith.imp"
if (((K) != (10))) goto L_0004;
#line 124 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 124 "regression-run-tmp/test0004-intarith.imp"
goto L_0005;
#line 124 "regression-run-tmp/test0004-intarith.imp"
L_0004:;
#line 124 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 124 "regression-run-tmp/test0004-intarith.imp"
L_0005:;
                                                                //    125     Print String ("Initialisation of K = J - 40")
#line 125 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Initialisation of K = J - 40"));
                                                                //    126     New Line
#line 126 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    127  
                                                                //    128  
                                                                //    129     %If CInt1 = 267 %then pass %else fail
#line 129 "regression-run-tmp/test0004-intarith.imp"
if (((267) != (267))) goto L_0006;
#line 129 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 129 "regression-run-tmp/test0004-intarith.imp"
goto L_0007;
#line 129 "regression-run-tmp/test0004-intarith.imp"
L_0006:;
#line 129 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 129 "regression-run-tmp/test0004-intarith.imp"
L_0007:;
                                                                //    130     Print String ("Value of constant CInt1")
#line 130 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Value of constant CInt1"));
                                                                //    131     New Line
#line 131 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    132  
                                                                //    133     %If MInt1 = 'X' %then pass %else fail
#line 133 "regression-run-tmp/test0004-intarith.imp"
if (((88) != (88))) goto L_0008;
#line 133 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 133 "regression-run-tmp/test0004-intarith.imp"
goto L_0009;
#line 133 "regression-run-tmp/test0004-intarith.imp"
L_0008:;
#line 133 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 133 "regression-run-tmp/test0004-intarith.imp"
L_0009:;
                                                                //    134     Print String ("Value of constant MInt1")
#line 134 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Value of constant MInt1"));
                                                                //    135     New Line
#line 135 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    136  
                                                                //    137     %If MInt2 = ((('I' << 8) + 'M') << 8) + 'P' %then pass %else fail
#line 137 "regression-run-tmp/test0004-intarith.imp"
if (((4803920) != ((((int)((((((int)(((73) << (8)))) + (77))) << (8)))) + (80))))) goto L_000a;
#line 137 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 137 "regression-run-tmp/test0004-intarith.imp"
goto L_000b;
#line 137 "regression-run-tmp/test0004-intarith.imp"
L_000a:;
#line 137 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 137 "regression-run-tmp/test0004-intarith.imp"
L_000b:;
                                                                //    138     Print String ("Value of constant MInt2   (for Offset = 8).")
#line 138 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Value of constant MInt2   (for Offset = 8)."));
                                                                //    139     New Line
#line 139 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    140  
                                                                //    141     %If CInt2 = 588 %then pass %else fail
#line 141 "regression-run-tmp/test0004-intarith.imp"
if (((588) != (588))) goto L_000c;
#line 141 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 141 "regression-run-tmp/test0004-intarith.imp"
goto L_000d;
#line 141 "regression-run-tmp/test0004-intarith.imp"
L_000c:;
#line 141 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 141 "regression-run-tmp/test0004-intarith.imp"
L_000d:;
                                                                //    142     Print String ("Value of constant CInt2")
#line 142 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Value of constant CInt2"));
                                                                //    143     New Lines (3)
#line 143 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(3);
                                                                //    144  
                                                                //    145  
                                                                //    146  
                                                                //    147  
                                                                //    148  
                                                                //    149     Print String ("Test the  SIZE OF  Function.");  New Line
#line 149 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Test the  SIZE OF  Function."));
#line 149 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    150     Print String ("----------------------------");  New Lines (2)
#line 150 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("----------------------------"));
#line 150 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    151  
                                                                //    152     Print String ("Size of %LONG    =");  Write (Size of (L), 1);  New Line
#line 152 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Size of %LONG    ="));
#line 152 "regression-run-tmp/test0004-intarith.imp"
_imp_WRITE(_imp_SIZEOF(&L), 1);
#line 152 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    153     Print String ("Size of %INTEGER =");  Write (Size of (J), 1);  New Line
#line 153 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Size of %INTEGER ="));
#line 153 "regression-run-tmp/test0004-intarith.imp"
_imp_WRITE(_imp_SIZEOF(&J), 1);
#line 153 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    154     Print String ("Size of %SHORT   =");  Write (Size of (S), 1);  New Line
#line 154 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Size of %SHORT   ="));
#line 154 "regression-run-tmp/test0004-intarith.imp"
_imp_WRITE(_imp_SIZEOF(&S), 1);
#line 154 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    155     Print String ("Size of %BYTE    =");  Write (Size of (B), 1);  New Line
#line 155 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Size of %BYTE    ="));
#line 155 "regression-run-tmp/test0004-intarith.imp"
_imp_WRITE(_imp_SIZEOF(&B), 1);
#line 155 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    156  
                                                                //    157     
                                                                //    158     New Line
#line 158 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    159     %If L = 4294967200 %then Print String ("Can")   %c
#line 159 "regression-run-tmp/test0004-intarith.imp"
if (((L) != (4294967200))) goto L_000e;
#line 159 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Can"));
#line 159 "regression-run-tmp/test0004-intarith.imp"
goto L_000f;
#line 159 "regression-run-tmp/test0004-intarith.imp"
L_000e:;
#line 159 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Cannot"));
#line 159 "regression-run-tmp/test0004-intarith.imp"
L_000f:;
                                                                //    160                        %else Print String ("Cannot")
                                                                //    161     Print String (" hold a %LONG %INTEGER greater than %INTEGER precision.")
#line 161 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal(" hold a %LONG %INTEGER greater than %INTEGER precision."));
                                                                //    162  
                                                                //    163  
                                                                //    164  
                                                                //    165  
                                                                //    166  
                                                                //    167     New Lines (4)
#line 167 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(4);
                                                                //    168   
                                                                //    169     Print String ("Test Re-Assignment of Predeclared Procedures");  New Line
#line 169 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Test Re-Assignment of Predeclared Procedures"));
#line 169 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    170     Print String ("--------------------------------------------");  New Lines (2)
#line 170 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("--------------------------------------------"));
#line 170 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    171   
                                                                //    172     Print String ("Let:  NL     = 100");  New Line
#line 172 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Let:  NL     = 100"));
#line 172 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    173     Print String ("---   Spaces = 50 ");  New Lines (2)
#line 173 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("---   Spaces = 50 "));
#line 173 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    174  
                                                                //    175     NL     = 100
#line 175 "regression-run-tmp/test0004-intarith.imp"
NL = 100;
                                                                //    176     Spaces = 50
#line 176 "regression-run-tmp/test0004-intarith.imp"
SPACES = 50;
                                                                //    177     
                                                                //    178     %If NL = 100 %then pass %else fail
#line 178 "regression-run-tmp/test0004-intarith.imp"
if (((NL) != (100))) goto L_0010;
#line 178 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 178 "regression-run-tmp/test0004-intarith.imp"
goto L_0011;
#line 178 "regression-run-tmp/test0004-intarith.imp"
L_0010:;
#line 178 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 178 "regression-run-tmp/test0004-intarith.imp"
L_0011:;
                                                                //    179     Print String ("NL = 100")
#line 179 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("NL = 100"));
                                                                //    180     New Line
#line 180 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    181  
                                                                //    182     %If Spaces = 50 %then pass %else fail
#line 182 "regression-run-tmp/test0004-intarith.imp"
if (((SPACES) != (50))) goto L_0012;
#line 182 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 182 "regression-run-tmp/test0004-intarith.imp"
goto L_0013;
#line 182 "regression-run-tmp/test0004-intarith.imp"
L_0012:;
#line 182 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 182 "regression-run-tmp/test0004-intarith.imp"
L_0013:;
                                                                //    183     Print String ("Spaces = 50")
#line 183 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Spaces = 50"));
                                                                //    184  
                                                                //    185  
                                                                //    186  
                                                                //    187     New Lines (6)
#line 187 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(6);
                                                                //    188  
                                                                //    189     Print String ("Test the Handling of Integer Expressions");  New Line
#line 189 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Test the Handling of Integer Expressions"));
#line 189 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    190     Print String ("----------------------------------------");  New Lines (3)
#line 190 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("----------------------------------------"));
#line 190 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(3);
                                                                //    191  
                                                                //    192     Print String ("Let:    M = 3");   New Line
#line 192 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Let:    M = 3"));
#line 192 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    193     Print String ("---          ");   New Line
#line 193 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("---          "));
#line 193 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    194  
                                                                //    195     M = 3
#line 195 "regression-run-tmp/test0004-intarith.imp"
M = 3;
                                                                //    196  
                                                                //    197     J = 3 + CInt4 + M + F
#line 197 "regression-run-tmp/test0004-intarith.imp"
J = (((int)((((int)(6)) + (M)))) + (F()));
                                                                //    198  
                                                                //    199     %If J = 12 %then pass %else fail
#line 199 "regression-run-tmp/test0004-intarith.imp"
if (((J) != (12))) goto L_0014;
#line 199 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 199 "regression-run-tmp/test0004-intarith.imp"
goto L_0015;
#line 199 "regression-run-tmp/test0004-intarith.imp"
L_0014:;
#line 199 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 199 "regression-run-tmp/test0004-intarith.imp"
L_0015:;
                                                                //    200     Print String ("J = 3 + CInt4 + M + F")
#line 200 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("J = 3 + CInt4 + M + F"));
                                                                //    201     New Line
#line 201 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    202  
                                                                //    203  
                                                                //    204     
                                                                //    205     New Lines (2)
#line 205 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    206     Print String ("Let:    J = 3");   New Line
#line 206 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Let:    J = 3"));
#line 206 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    207     Print String ("---     K = 2");   New Line
#line 207 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("---     K = 2"));
#line 207 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    208     Print String ("        M = 30");  New Line
#line 208 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("        M = 30"));
#line 208 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    209     Print String ("        N = 5") ;  New Lines (3)
#line 209 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("        N = 5"));
#line 209 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(3);
                                                                //    210  
                                                                //    211     J = 3
#line 211 "regression-run-tmp/test0004-intarith.imp"
J = 3;
                                                                //    212     K = 2
#line 212 "regression-run-tmp/test0004-intarith.imp"
K = 2;
                                                                //    213     M = 30
#line 213 "regression-run-tmp/test0004-intarith.imp"
M = 30;
                                                                //    214     N = 5
#line 214 "regression-run-tmp/test0004-intarith.imp"
N = 5;
                                                                //    215  
                                                                //    216     
                                                                //    217  
                                                                //    218     P = -1 ^^ 3
#line 218 "regression-run-tmp/test0004-intarith.imp"
P = (-(_imp_IEXP(1, 3)));
                                                                //    219   
                                                                //    220     %If P = -1 %then pass %else fail
#line 220 "regression-run-tmp/test0004-intarith.imp"
if (((P) != ((-1)))) goto L_0016;
#line 220 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 220 "regression-run-tmp/test0004-intarith.imp"
goto L_0017;
#line 220 "regression-run-tmp/test0004-intarith.imp"
L_0016:;
#line 220 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 220 "regression-run-tmp/test0004-intarith.imp"
L_0017:;
                                                                //    221     Print String ("P = -1 ^^ 3")
#line 221 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("P = -1 ^^ 3"));
                                                                //    222     New Line
#line 222 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    223  
                                                                //    224     P = (-1) ^^ 2
#line 224 "regression-run-tmp/test0004-intarith.imp"
P = _imp_IEXP((-1), 2);
                                                                //    225  
                                                                //    226     %If P = 1 %then pass %else fail
#line 226 "regression-run-tmp/test0004-intarith.imp"
if (((P) != (1))) goto L_0018;
#line 226 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 226 "regression-run-tmp/test0004-intarith.imp"
goto L_0019;
#line 226 "regression-run-tmp/test0004-intarith.imp"
L_0018:;
#line 226 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 226 "regression-run-tmp/test0004-intarith.imp"
L_0019:;
                                                                //    227     Print String ("(-1) ^^ 2")
#line 227 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("(-1) ^^ 2"));
                                                                //    228     New Line
#line 228 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    229  
                                                                //    230     P = 2 ^^ 2 ^^ 3
#line 230 "regression-run-tmp/test0004-intarith.imp"
P = _imp_IEXP(_imp_IEXP(2, 2), 3);
                                                                //    231  
                                                                //    232     %If P = 64 %then pass %else fail
#line 232 "regression-run-tmp/test0004-intarith.imp"
if (((P) != (64))) goto L_001a;
#line 232 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 232 "regression-run-tmp/test0004-intarith.imp"
goto L_001b;
#line 232 "regression-run-tmp/test0004-intarith.imp"
L_001a:;
#line 232 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 232 "regression-run-tmp/test0004-intarith.imp"
L_001b:;
                                                                //    233     Print String ("P = 2 ^^ 2 ^^ 3")
#line 233 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("P = 2 ^^ 2 ^^ 3"));
                                                                //    234     New Line
#line 234 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    235  
                                                                //    236     P = 2 + 3 * 5 ^^ 3 - 1
#line 236 "regression-run-tmp/test0004-intarith.imp"
P = (((int)(((2) + ((int)(((3) * ((int)(_imp_IEXP(5, 3))))))))) - (1));
                                                                //    237  
                                                                //    238     %If P = 376 %then pass %else fail
#line 238 "regression-run-tmp/test0004-intarith.imp"
if (((P) != (376))) goto L_001c;
#line 238 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 238 "regression-run-tmp/test0004-intarith.imp"
goto L_001d;
#line 238 "regression-run-tmp/test0004-intarith.imp"
L_001c:;
#line 238 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 238 "regression-run-tmp/test0004-intarith.imp"
L_001d:;
                                                                //    239     Print String ("P = 2 + 3 * 5 ^^ 3 - 1")
#line 239 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("P = 2 + 3 * 5 ^^ 3 - 1"));
                                                                //    240     New Line
#line 240 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    241  
                                                                //    242     P = 2 + (-3)
#line 242 "regression-run-tmp/test0004-intarith.imp"
P = (-1);
                                                                //    243  
                                                                //    244     %If P = -1 %then pass %else fail
#line 244 "regression-run-tmp/test0004-intarith.imp"
if (((P) != ((-1)))) goto L_001e;
#line 244 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 244 "regression-run-tmp/test0004-intarith.imp"
goto L_001f;
#line 244 "regression-run-tmp/test0004-intarith.imp"
L_001e:;
#line 244 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 244 "regression-run-tmp/test0004-intarith.imp"
L_001f:;
                                                                //    245     Print String ("P = 2 + (-3)")
#line 245 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("P = 2 + (-3)"));
                                                                //    246     New Line
#line 246 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    247  
                                                                //    248     P = J - (-K)
#line 248 "regression-run-tmp/test0004-intarith.imp"
P = ((J) - ((-(K))));
                                                                //    249  
                                                                //    250     %If P = 5 %then pass %else fail
#line 250 "regression-run-tmp/test0004-intarith.imp"
if (((P) != (5))) goto L_0020;
#line 250 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 250 "regression-run-tmp/test0004-intarith.imp"
goto L_0021;
#line 250 "regression-run-tmp/test0004-intarith.imp"
L_0020:;
#line 250 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 250 "regression-run-tmp/test0004-intarith.imp"
L_0021:;
                                                                //    251     Print String ("P = J - (-K)")
#line 251 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("P = J - (-K)"));
                                                                //    252     New Line
#line 252 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    253  
                                                                //    254     P = J * K + M // N - 6
#line 254 "regression-run-tmp/test0004-intarith.imp"
P = (((int)((((((int)(J)) * (K))) + (((long)((long)((int)(M)) / (long)((int)(_Z(N))))))))) - (6));
                                                                //    255  
                                                                //    256     %If P = 6 %then pass %else fail
#line 256 "regression-run-tmp/test0004-intarith.imp"
if (((P) != (6))) goto L_0022;
#line 256 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 256 "regression-run-tmp/test0004-intarith.imp"
goto L_0023;
#line 256 "regression-run-tmp/test0004-intarith.imp"
L_0022:;
#line 256 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 256 "regression-run-tmp/test0004-intarith.imp"
L_0023:;
                                                                //    257     Print String ("P = J * K + M // N - 6")
#line 257 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("P = J * K + M // N - 6"));
                                                                //    258     New Line
#line 258 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    259  
                                                                //    260     P = J * (K + M) // N - 6
#line 260 "regression-run-tmp/test0004-intarith.imp"
P = ((((long)((long)((((J) * ((int)((((int)(K)) + (M))))))) / (long)((int)(_Z(N)))))) - (6));
                                                                //    261  
                                                                //    262     %If P = 13 %then pass %else fail
#line 262 "regression-run-tmp/test0004-intarith.imp"
if (((P) != (13))) goto L_0024;
#line 262 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 262 "regression-run-tmp/test0004-intarith.imp"
goto L_0025;
#line 262 "regression-run-tmp/test0004-intarith.imp"
L_0024:;
#line 262 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 262 "regression-run-tmp/test0004-intarith.imp"
L_0025:;
                                                                //    263     Print String ("P = J * (K + M) // N - 6")
#line 263 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("P = J * (K + M) // N - 6"));
                                                                //    264     New Line
#line 264 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    265  
                                                                //    266     P = (J * K) + M // (N - 6)
#line 266 "regression-run-tmp/test0004-intarith.imp"
P = (((((int)(J)) * (K))) + (((long)((long)((int)(M)) / (long)((_Z((((int)(N)) - (6)))))))));
                                                                //    267  
                                                                //    268     %If P = -24 %then pass %else fail
#line 268 "regression-run-tmp/test0004-intarith.imp"
if (((P) != ((-24)))) goto L_0026;
#line 268 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 268 "regression-run-tmp/test0004-intarith.imp"
goto L_0027;
#line 268 "regression-run-tmp/test0004-intarith.imp"
L_0026:;
#line 268 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 268 "regression-run-tmp/test0004-intarith.imp"
L_0027:;
                                                                //    269     Print String ("P = (J * K) + M // (N - 6)")
#line 269 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("P = (J * K) + M // (N - 6)"));
                                                                //    270     New Line
#line 270 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    271  
                                                                //    272  
                                                                //    273     P = J * (K + M // N - 6)
#line 273 "regression-run-tmp/test0004-intarith.imp"
P = ((J) * ((int)((((int)(((K) + (((long)((long)((int)(M)) / (long)((int)(_Z(N))))))))) - (6)))));
                                                                //    274  
                                                                //    275     %If P = 6 %then pass %else fail
#line 275 "regression-run-tmp/test0004-intarith.imp"
if (((P) != (6))) goto L_0028;
#line 275 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 275 "regression-run-tmp/test0004-intarith.imp"
goto L_0029;
#line 275 "regression-run-tmp/test0004-intarith.imp"
L_0028:;
#line 275 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 275 "regression-run-tmp/test0004-intarith.imp"
L_0029:;
                                                                //    276     Print String ("P = J * (K + M // N - 6)")
#line 276 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("P = J * (K + M // N - 6)"));
                                                                //    277     New Line
#line 277 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    278  
                                                                //    279     
                                                                //    280  
                                                                //    281     
                                                                //    282     %If (-J) * (-K) = K * J  %then pass %else fail
#line 282 "regression-run-tmp/test0004-intarith.imp"
if (((((((-(J)))) * ((-(K))))) != ((((int)(K)) * (J))))) goto L_002a;
#line 282 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 282 "regression-run-tmp/test0004-intarith.imp"
goto L_002b;
#line 282 "regression-run-tmp/test0004-intarith.imp"
L_002a:;
#line 282 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 282 "regression-run-tmp/test0004-intarith.imp"
L_002b:;
                                                                //    283     Print String ("(-J) * (-K) = K * J")
#line 283 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("(-J) * (-K) = K * J"));
                                                                //    284     New Line
#line 284 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    285  
                                                                //    286     %If (((((J * K) + (M // N)) - 6))) = M // N + K * J - 6 %c
#line 286 "regression-run-tmp/test0004-intarith.imp"
if ((((((int)((((((int)(J)) * (K))) + (((long)((long)((int)(M)) / (long)((int)(_Z(N))))))))) - (6))) != (((((((long)((long)((int)(M)) / (long)((int)(_Z(N)))))) + ((((int)(K)) * (J))))) - (6))))) goto L_002c;
#line 286 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 286 "regression-run-tmp/test0004-intarith.imp"
goto L_002d;
#line 286 "regression-run-tmp/test0004-intarith.imp"
L_002c:;
#line 286 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 286 "regression-run-tmp/test0004-intarith.imp"
L_002d:;
                                                                //    287             %then pass %else fail
                                                                //    288     Print String (" (((((J * K) + (M // N)) - 6))) = M // N + K * J - 6")
#line 288 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal(" (((((J * K) + (M // N)) - 6))) = M // N + K * J - 6"));
                                                                //    289     New Line
#line 289 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    290  
                                                                //    291    
                                                                //    292     J = | (CInt4 + F^^3) * (234 - (CInt1 - 500) ^^ K // 30) * 3 - 1000 // (-F) |
#line 292 "regression-run-tmp/test0004-intarith.imp"
J = _imp_IMOD((((((int)((((((3) + ((int)(_imp_IEXP(F(), 3)))))) * (((234) - (((long)((long)((_imp_IEXP((-233), K))) / (long)((int)(30)))))))))) * (3))) - (((long)((long)((int)(1000)) / (long)((_Z((-(F()))))))))));
                                                                //    293  
                                                                //    294     %If J = 141417 %then pass %else fail
#line 294 "regression-run-tmp/test0004-intarith.imp"
if (((J) != (141417))) goto L_002e;
#line 294 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 294 "regression-run-tmp/test0004-intarith.imp"
goto L_002f;
#line 294 "regression-run-tmp/test0004-intarith.imp"
L_002e:;
#line 294 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 294 "regression-run-tmp/test0004-intarith.imp"
L_002f:;
                                                                //    295     Print String ("| (CInt4 + F^^3) * (234 - (CInt1 - 500) ^^ K // 30)")
#line 295 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("| (CInt4 + F^^3) * (234 - (CInt1 - 500) ^^ K // 30)"));
                                                                //    296     Print String (" * 3 - 1000 // (-F) |")
#line 296 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal(" * 3 - 1000 // (-F) |"));
                                                                //    297  
                                                                //    298  
                                                                //    299  
                                                                //    300  
                                                                //    301  
                                                                //    302     New Lines (4)
#line 302 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(4);
                                                                //    303   
                                                                //    304     Print String ("Test Coercion Between the Various Types");  New Line
#line 304 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Test Coercion Between the Various Types"));
#line 304 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    305     Print String ("---------------------------------------");  New Lines (2)
#line 305 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("---------------------------------------"));
#line 305 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    306  
                                                                //    307     Print String ("Let:  S =  B");   New Line
#line 307 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("Let:  S =  B"));
#line 307 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    308     Print String ("---   T = -B");   New Line
#line 308 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("---   T = -B"));
#line 308 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    309     Print String ("      J =  B");   New Line
#line 309 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("      J =  B"));
#line 309 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    310     Print String ("      K = -B");   New Line
#line 310 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("      K = -B"));
#line 310 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    311     Print String ("      M = CB1");  New Line
#line 311 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("      M = CB1"));
#line 311 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    312     Print String ("      N = -CB1"); New Line
#line 312 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("      N = -CB1"));
#line 312 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    313     Print String ("      P =  S");   New Line
#line 313 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("      P =  S"));
#line 313 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    314     Print String ("      R = -S");   New Lines (2)
#line 314 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("      R = -S"));
#line 314 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINES(2);
                                                                //    315  
                                                                //    316  
                                                                //    317     B = 'F'       { Just make sure no corruption.  (ASCII = 70)
#line 317 "regression-run-tmp/test0004-intarith.imp"
B = 70;
                                                                //    318     S =  B
#line 318 "regression-run-tmp/test0004-intarith.imp"
S = B;
                                                                //    319     T = -B
#line 319 "regression-run-tmp/test0004-intarith.imp"
T = (-(B));
                                                                //    320     J = B
#line 320 "regression-run-tmp/test0004-intarith.imp"
J = B;
                                                                //    321     K = -B
#line 321 "regression-run-tmp/test0004-intarith.imp"
K = (-(B));
                                                                //    322     M = CB1
#line 322 "regression-run-tmp/test0004-intarith.imp"
M = 255;
                                                                //    323     N = -CB1
#line 323 "regression-run-tmp/test0004-intarith.imp"
N = (-255);
                                                                //    324     P = S
#line 324 "regression-run-tmp/test0004-intarith.imp"
P = S;
                                                                //    325     R = -S
#line 325 "regression-run-tmp/test0004-intarith.imp"
R = (-(S));
                                                                //    326  
                                                                //    327     %If S = 70 %then pass %else fail
#line 327 "regression-run-tmp/test0004-intarith.imp"
if (((S) != (70))) goto L_0030;
#line 327 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 327 "regression-run-tmp/test0004-intarith.imp"
goto L_0031;
#line 327 "regression-run-tmp/test0004-intarith.imp"
L_0030:;
#line 327 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 327 "regression-run-tmp/test0004-intarith.imp"
L_0031:;
                                                                //    328     Print String ("S = B")
#line 328 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("S = B"));
                                                                //    329     New Line
#line 329 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    330  
                                                                //    331     %If T = -70 %then pass %else fail
#line 331 "regression-run-tmp/test0004-intarith.imp"
if (((T) != ((-70)))) goto L_0032;
#line 331 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 331 "regression-run-tmp/test0004-intarith.imp"
goto L_0033;
#line 331 "regression-run-tmp/test0004-intarith.imp"
L_0032:;
#line 331 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 331 "regression-run-tmp/test0004-intarith.imp"
L_0033:;
                                                                //    332     Print String ("T = -B")
#line 332 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("T = -B"));
                                                                //    333     New Line
#line 333 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    334  
                                                                //    335     %If J = 70 %then pass %else fail
#line 335 "regression-run-tmp/test0004-intarith.imp"
if (((J) != (70))) goto L_0034;
#line 335 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 335 "regression-run-tmp/test0004-intarith.imp"
goto L_0035;
#line 335 "regression-run-tmp/test0004-intarith.imp"
L_0034:;
#line 335 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 335 "regression-run-tmp/test0004-intarith.imp"
L_0035:;
                                                                //    336     Print String ("J = B")
#line 336 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("J = B"));
                                                                //    337     New Line
#line 337 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    338  
                                                                //    339     %If K = -70 %then pass %else fail
#line 339 "regression-run-tmp/test0004-intarith.imp"
if (((K) != ((-70)))) goto L_0036;
#line 339 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 339 "regression-run-tmp/test0004-intarith.imp"
goto L_0037;
#line 339 "regression-run-tmp/test0004-intarith.imp"
L_0036:;
#line 339 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 339 "regression-run-tmp/test0004-intarith.imp"
L_0037:;
                                                                //    340     Print String ("K = -B")
#line 340 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("K = -B"));
                                                                //    341     New Line
#line 341 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    342  
                                                                //    343     %If M = 255 %then pass %else fail
#line 343 "regression-run-tmp/test0004-intarith.imp"
if (((M) != (255))) goto L_0038;
#line 343 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 343 "regression-run-tmp/test0004-intarith.imp"
goto L_0039;
#line 343 "regression-run-tmp/test0004-intarith.imp"
L_0038:;
#line 343 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 343 "regression-run-tmp/test0004-intarith.imp"
L_0039:;
                                                                //    344     Print String ("M = CB1")
#line 344 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("M = CB1"));
                                                                //    345     New Line
#line 345 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    346  
                                                                //    347     %If N = -255 %then pass %else fail
#line 347 "regression-run-tmp/test0004-intarith.imp"
if (((N) != ((-255)))) goto L_003a;
#line 347 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 347 "regression-run-tmp/test0004-intarith.imp"
goto L_003b;
#line 347 "regression-run-tmp/test0004-intarith.imp"
L_003a:;
#line 347 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 347 "regression-run-tmp/test0004-intarith.imp"
L_003b:;
                                                                //    348     Print String ("N = -CB1")
#line 348 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("N = -CB1"));
                                                                //    349     New Line
#line 349 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    350  
                                                                //    351     %If P = 70 %then pass %else fail
#line 351 "regression-run-tmp/test0004-intarith.imp"
if (((P) != (70))) goto L_003c;
#line 351 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 351 "regression-run-tmp/test0004-intarith.imp"
goto L_003d;
#line 351 "regression-run-tmp/test0004-intarith.imp"
L_003c:;
#line 351 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 351 "regression-run-tmp/test0004-intarith.imp"
L_003d:;
                                                                //    352     Print String ("P = S")
#line 352 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("P = S"));
                                                                //    353     New Line
#line 353 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    354  
                                                                //    355     %If R = -70 %then pass %else fail
#line 355 "regression-run-tmp/test0004-intarith.imp"
if (((R) != ((-70)))) goto L_003e;
#line 355 "regression-run-tmp/test0004-intarith.imp"
PASS();
#line 355 "regression-run-tmp/test0004-intarith.imp"
goto L_003f;
#line 355 "regression-run-tmp/test0004-intarith.imp"
L_003e:;
#line 355 "regression-run-tmp/test0004-intarith.imp"
FAIL();
#line 355 "regression-run-tmp/test0004-intarith.imp"
L_003f:;
                                                                //    356     Print String ("R = -S")
#line 356 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal("R = -S"));
                                                                //    357     New Line
#line 357 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    358  
                                                                //    359  
                                                                //    360  
                                                                //    361  select output(0)
#line 361 "regression-run-tmp/test0004-intarith.imp"
_imp_SELECTOUTPUT(0);
                                                                //    362  write(failures,1);  printstring(" failure(s)");  newline
#line 362 "regression-run-tmp/test0004-intarith.imp"
_imp_WRITE(FAILURES, 1);
#line 362 "regression-run-tmp/test0004-intarith.imp"
_imp_PRINTSTRING(_imp_str_literal(" failure(s)"));
#line 362 "regression-run-tmp/test0004-intarith.imp"
_imp_NEWLINE();
                                                                //    363  %End %of %Program
#line 363 "regression-run-tmp/test0004-intarith.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
#line 363 "regression-run-tmp/test0004-intarith.imp"
// End of file
