#include // 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