#include // 1 !* Program Name : ICOMP // 2 // 3 !* Title : IV.a The IMP INTEGER Facilities // 4 !* Version : II // 5 !* Date : 24 August 1985 // 6 !* Description: Tests all the INTEGER comparison operators. // 7 // 8 %Begin int main(int argc, char **argv) { _imp_initialise(argc, argv); // 9 // 10 %string(255) param {Used to get input from CLI} _imp_string /*%string(255)*/ PARAM; // 11 // 12 %Integer J int J; // 13 %Integer K int K; // 14 // 15 %Constant %Integer CInt3 = 10 // 16 %Constant %Integer CInt4 = 3 // 17 // 18 %owninteger failures=0 static int FAILURES = 0; // 19 // 20 %routine pass void PASS( void ) { // 21 printstring("Pass") _imp_PRINTSTRING(_imp_str_literal("Pass")); // 22 New Line _imp_NEWLINE(); // 23 %end /* Remove %on %event handler here if present for this block */ return; } // End of block PASS at level 2 // 24 %routine fail void FAIL( void ) { // 25 printstring("FAIL") _imp_PRINTSTRING(_imp_str_literal("FAIL")); // 26 New Line _imp_NEWLINE(); // 27 failures = failures+1 FAILURES = (((int)(FAILURES)) + (1)); // 28 %end /* Remove %on %event handler here if present for this block */ return; } // End of block FAIL at level 2 // 29 // 30 %Integer %Function F int F( void ) { // 31 // 32 !* An extremely simple integer function that merely // 33 !* returns the number THREE. Note that this function // 34 !* does not presuppose parameter passing or expression // 35 !* evaluation within functions. It merely tests the // 36 !* ability to encorporate functions within expressions. // 37 // 38 %Result = 3 /* Remove %on %event handler here if present for this block */ return 3; // 39 // 40 %End } // End of block F at level 2 // 41 // 42 ! Code to find out where the output is to be sent // 43 ! ----------------------------------------------- // 44 ! Where the output goes to depends on the parameter after the // 45 ! name used to run the program. // 46 ! Parameter | Result // 47 ! ------------|------------- // 48 ! No parameter | No output // 49 ! "s" | The screen // 50 ! "j" | "journal" // 51 ! anything else | file name entered // 52 // 53 ! NOTE THAT THIS CODE USES STRING COMPARISONS, WHICH MAY NOT HAVE BEEN // 54 ! TESTED YET. IF THE PROGRAM FAILS CHECK IT WAS NOT IN THIS PART. // 55 // 56 param=cliparam PARAM = _imp_CLIPARAM(); // 57 %if param = "" %then select output (2) %c if ((_imp_strcmp(PARAM, _imp_str_literal("")) != 0)) goto L_0002; _imp_SELECTOUTPUT(2); goto L_0003; L_0002:; if ((_imp_strcmp(PARAM, _imp_str_literal("s")) == 0)) goto L_0004; if ((_imp_strcmp(PARAM, _imp_str_literal("S")) != 0)) goto L_0005; L_0004:; _imp_SELECTOUTPUT(1); goto L_0003; L_0005:; if ((_imp_strcmp(PARAM, _imp_str_literal("j")) == 0)) goto L_0006; if ((_imp_strcmp(PARAM, _imp_str_literal("J")) != 0)) goto L_0007; L_0006:; _imp_OPENOUTPUT(2, _imp_str_literal("journal")); _imp_SELECTOUTPUT(2); goto L_0003; L_0007:; _imp_OPENOUTPUT(2, PARAM); _imp_SELECTOUTPUT(2); L_0003:; // 58 %else %if param="s" %or param="S" %then select output(1) %c // 59 %else %if param="j" %or param="J" %then %c // 60 open output(2,"journal") %and select output (2) %c // 61 %else open output(2,param) %and select output (2) // 62 // 63 // 64 // 65 New Lines(2) _imp_NEWLINES(2); // 66 Print String("INTEGER Arithmetic Validation"); New Line _imp_PRINTSTRING(_imp_str_literal("INTEGER Arithmetic Validation")); _imp_NEWLINE(); // 67 Print String("============================="); New Lines (3) _imp_PRINTSTRING(_imp_str_literal("=============================")); _imp_NEWLINES(3); // 68 // 69 Print String("Test the Six Simple Relational Comparators"); New Line _imp_PRINTSTRING(_imp_str_literal("Test the Six Simple Relational Comparators")); _imp_NEWLINE(); // 70 Print String("------------------------------------------"); New Lines (3) _imp_PRINTSTRING(_imp_str_literal("------------------------------------------")); _imp_NEWLINES(3); // 71 // 72 // 73 // 74 !* Test the simple relational operations between Integers // 75 // 76 // 77 // 78 // 79 New Line _imp_NEWLINE(); // 80 Print String("Test for Integer Equality") _imp_PRINTSTRING(_imp_str_literal("Test for Integer Equality")); // 81 New Line _imp_NEWLINE(); // 82 Print String("-------------------------") _imp_PRINTSTRING(_imp_str_literal("-------------------------")); // 83 New Line _imp_NEWLINE(); // 84 // 85 %If 3 = 3 %then pass %else fail if (((3) != (3))) goto L_0008; PASS(); goto L_0009; L_0008:; FAIL(); L_0009:; // 86 %If CInt4 = 3 %then pass %else fail if (((3) != (3))) goto L_000a; PASS(); goto L_000b; L_000a:; FAIL(); L_000b:; // 87 %If 3 = CInt4 %then pass %else fail if (((3) != (3))) goto L_000c; PASS(); goto L_000d; L_000c:; FAIL(); L_000d:; // 88 %If CInt4 = CInt4 %then pass %else fail if (((3) != (3))) goto L_000e; PASS(); goto L_000f; L_000e:; FAIL(); L_000f:; // 89 // 90 J = CInt4 J = 3; // 91 K = CInt4 K = 3; // 92 // 93 %If J = CInt4 %then pass %else fail if (((J) != (3))) goto L_0010; PASS(); goto L_0011; L_0010:; FAIL(); L_0011:; // 94 %If CInt4 = J %then pass %else fail if (((3) != (J))) goto L_0012; PASS(); goto L_0013; L_0012:; FAIL(); L_0013:; // 95 %If J = K %then pass %else fail if (((J) != (K))) goto L_0014; PASS(); goto L_0015; L_0014:; FAIL(); L_0015:; // 96 %If J = J %then pass %else fail if (((J) != (J))) goto L_0016; PASS(); goto L_0017; L_0016:; FAIL(); L_0017:; // 97 %If J = 3 %then pass %else fail if (((J) != (3))) goto L_0018; PASS(); goto L_0019; L_0018:; FAIL(); L_0019:; // 98 %If 3 = J %then pass %else fail if (((3) != (J))) goto L_001a; PASS(); goto L_001b; L_001a:; FAIL(); L_001b:; // 99 %If 3 = F %then pass %else fail if (((3) != (F()))) goto L_001c; PASS(); goto L_001d; L_001c:; FAIL(); L_001d:; // 100 %If F = 3 %then pass %else fail if (((F()) != (3))) goto L_001e; PASS(); goto L_001f; L_001e:; FAIL(); L_001f:; // 101 %If F * 3 + 10 = F * F + 5 * 2 %then pass %else fail if ((((((int)((((int)(F())) * (3)))) + (10))) != (((((((int)(F())) * (F())))) + ((((int)(5)) * (2))))))) goto L_0020; PASS(); goto L_0021; L_0020:; FAIL(); L_0021:; // 102 // 103 // 104 // 105 New Line _imp_NEWLINE(); // 106 Print String("Test for Integer Inequality ") _imp_PRINTSTRING(_imp_str_literal("Test for Integer Inequality ")); // 107 New Line _imp_NEWLINE(); // 108 Print String("---------------------------") _imp_PRINTSTRING(_imp_str_literal("---------------------------")); // 109 New Line _imp_NEWLINE(); // 110 // 111 %If 3 # 3 %then fail %else pass if (((3) == (3))) goto L_0022; FAIL(); goto L_0023; L_0022:; PASS(); L_0023:; // 112 %If CInt4 # 3 %then fail %else pass if (((3) == (3))) goto L_0024; FAIL(); goto L_0025; L_0024:; PASS(); L_0025:; // 113 %If 3 # CInt4 %then fail %else pass if (((3) == (3))) goto L_0026; FAIL(); goto L_0027; L_0026:; PASS(); L_0027:; // 114 %If CInt4 # CInt4 %then fail %else pass if (((3) == (3))) goto L_0028; FAIL(); goto L_0029; L_0028:; PASS(); L_0029:; // 115 %If J # CInt4 %then fail %else pass if (((J) == (3))) goto L_002a; FAIL(); goto L_002b; L_002a:; PASS(); L_002b:; // 116 %If CInt4 # J %then fail %else pass if (((3) == (J))) goto L_002c; FAIL(); goto L_002d; L_002c:; PASS(); L_002d:; // 117 %If J # K %then fail %else pass if (((J) == (K))) goto L_002e; FAIL(); goto L_002f; L_002e:; PASS(); L_002f:; // 118 %If J # J %then fail %else pass if (((J) == (J))) goto L_0030; FAIL(); goto L_0031; L_0030:; PASS(); L_0031:; // 119 %If J # 3 %then fail %else pass if (((J) == (3))) goto L_0032; FAIL(); goto L_0033; L_0032:; PASS(); L_0033:; // 120 %If 3 # J %then fail %else pass if (((3) == (J))) goto L_0034; FAIL(); goto L_0035; L_0034:; PASS(); L_0035:; // 121 %If 3 # F %then fail %else pass if (((3) == (F()))) goto L_0036; FAIL(); goto L_0037; L_0036:; PASS(); L_0037:; // 122 %If F # 3 %then fail %else pass if (((F()) == (3))) goto L_0038; FAIL(); goto L_0039; L_0038:; PASS(); L_0039:; // 123 // 124 // 125 // 126 New Line _imp_NEWLINE(); // 127 Print String("Test for LESS THAN in Integers ") _imp_PRINTSTRING(_imp_str_literal("Test for LESS THAN in Integers ")); // 128 New Line _imp_NEWLINE(); // 129 Print String("------------------------------") _imp_PRINTSTRING(_imp_str_literal("------------------------------")); // 130 New Line _imp_NEWLINE(); // 131 // 132 J = CInt4 J = 3; // 133 // 134 %If 3 < 3 %then fail %else pass if (((3) >= (3))) goto L_003a; FAIL(); goto L_003b; L_003a:; PASS(); L_003b:; // 135 %If 3 < J %then fail %else pass if (((3) >= (J))) goto L_003c; FAIL(); goto L_003d; L_003c:; PASS(); L_003d:; // 136 %If J < 3 %then fail %else pass if (((J) >= (3))) goto L_003e; FAIL(); goto L_003f; L_003e:; PASS(); L_003f:; // 137 %If 3 < CInt4 %then fail %else pass if (((3) >= (3))) goto L_0040; FAIL(); goto L_0041; L_0040:; PASS(); L_0041:; // 138 %If CInt4 < 3 %then fail %else pass if (((3) >= (3))) goto L_0042; FAIL(); goto L_0043; L_0042:; PASS(); L_0043:; // 139 %If J < CInt4 %then fail %else pass if (((J) >= (3))) goto L_0044; FAIL(); goto L_0045; L_0044:; PASS(); L_0045:; // 140 %If CInt4 < J %then fail %else pass if (((3) >= (J))) goto L_0046; FAIL(); goto L_0047; L_0046:; PASS(); L_0047:; // 141 %If CInt4 < CInt4 %then fail %else pass if (((3) >= (3))) goto L_0048; FAIL(); goto L_0049; L_0048:; PASS(); L_0049:; // 142 %If J < J %then fail %else pass if (((J) >= (J))) goto L_004a; FAIL(); goto L_004b; L_004a:; PASS(); L_004b:; // 143 %If F < 3 %then fail %else pass if (((F()) >= (3))) goto L_004c; FAIL(); goto L_004d; L_004c:; PASS(); L_004d:; // 144 // 145 // 146 // 147 New Line _imp_NEWLINE(); // 148 Print String ("Test for LESS THAN OR EQUALS in Integers ") _imp_PRINTSTRING(_imp_str_literal("Test for LESS THAN OR EQUALS in Integers ")); // 149 New Line _imp_NEWLINE(); // 150 Print String("----------------------------------------") _imp_PRINTSTRING(_imp_str_literal("----------------------------------------")); // 151 New Line _imp_NEWLINE(); // 152 // 153 J = CInt4 J = 3; // 154 // 155 %If 3 <= 3 %then pass %else fail if (((3) > (3))) goto L_004e; PASS(); goto L_004f; L_004e:; FAIL(); L_004f:; // 156 %If 3 <= J %then pass %else fail if (((3) > (J))) goto L_0050; PASS(); goto L_0051; L_0050:; FAIL(); L_0051:; // 157 %If J <= 3 %then pass %else fail if (((J) > (3))) goto L_0052; PASS(); goto L_0053; L_0052:; FAIL(); L_0053:; // 158 %If 3 <= CInt4 %then pass %else fail if (((3) > (3))) goto L_0054; PASS(); goto L_0055; L_0054:; FAIL(); L_0055:; // 159 %If CInt4 <= 3 %then pass %else fail if (((3) > (3))) goto L_0056; PASS(); goto L_0057; L_0056:; FAIL(); L_0057:; // 160 %If J <= CInt4 %then pass %else fail if (((J) > (3))) goto L_0058; PASS(); goto L_0059; L_0058:; FAIL(); L_0059:; // 161 %If CInt4 <= J %then pass %else fail if (((3) > (J))) goto L_005a; PASS(); goto L_005b; L_005a:; FAIL(); L_005b:; // 162 %If CInt4 <= CInt4 %then pass %else fail if (((3) > (3))) goto L_005c; PASS(); goto L_005d; L_005c:; FAIL(); L_005d:; // 163 %If J <= J %then pass %else fail if (((J) > (J))) goto L_005e; PASS(); goto L_005f; L_005e:; FAIL(); L_005f:; // 164 %If F <= 3 %then pass %else fail if (((F()) > (3))) goto L_0060; PASS(); goto L_0061; L_0060:; FAIL(); L_0061:; // 165 // 166 // 167 // 168 New Line _imp_NEWLINE(); // 169 Print String("Test for GREATER THAN in Integers ") _imp_PRINTSTRING(_imp_str_literal("Test for GREATER THAN in Integers ")); // 170 New Line _imp_NEWLINE(); // 171 Print String("---------------------------------") _imp_PRINTSTRING(_imp_str_literal("---------------------------------")); // 172 New Line _imp_NEWLINE(); // 173 // 174 J = CInt4 J = 3; // 175 // 176 %If 3 > 3 %then fail %else pass if (((3) <= (3))) goto L_0062; FAIL(); goto L_0063; L_0062:; PASS(); L_0063:; // 177 %If 3 > J %then fail %else pass if (((3) <= (J))) goto L_0064; FAIL(); goto L_0065; L_0064:; PASS(); L_0065:; // 178 %If J > 3 %then fail %else pass if (((J) <= (3))) goto L_0066; FAIL(); goto L_0067; L_0066:; PASS(); L_0067:; // 179 %If CInt4 > 3 %then fail %else pass if (((3) <= (3))) goto L_0068; FAIL(); goto L_0069; L_0068:; PASS(); L_0069:; // 180 %If J > CInt4 %then fail %else pass if (((J) <= (3))) goto L_006a; FAIL(); goto L_006b; L_006a:; PASS(); L_006b:; // 181 %If CInt4 > J %then fail %else pass if (((3) <= (J))) goto L_006c; FAIL(); goto L_006d; L_006c:; PASS(); L_006d:; // 182 %If CInt4 > CInt4 %then fail %else pass if (((3) <= (3))) goto L_006e; FAIL(); goto L_006f; L_006e:; PASS(); L_006f:; // 183 %If J > J %then fail %else pass if (((J) <= (J))) goto L_0070; FAIL(); goto L_0071; L_0070:; PASS(); L_0071:; // 184 %If F > 3 %then fail %else pass if (((F()) <= (3))) goto L_0072; FAIL(); goto L_0073; L_0072:; PASS(); L_0073:; // 185 // 186 // 187 // 188 New Line _imp_NEWLINE(); // 189 Print String("Test for GREATER THAN OR EQUALS in Integers ") _imp_PRINTSTRING(_imp_str_literal("Test for GREATER THAN OR EQUALS in Integers ")); // 190 New line _imp_NEWLINE(); // 191 Print String("-------------------------------------------") _imp_PRINTSTRING(_imp_str_literal("-------------------------------------------")); // 192 New Line _imp_NEWLINE(); // 193 // 194 J = CInt4 J = 3; // 195 // 196 %If 3 >= 3 %then pass %else fail if (((3) < (3))) goto L_0074; PASS(); goto L_0075; L_0074:; FAIL(); L_0075:; // 197 %If 3 >= J %then pass %else fail if (((3) < (J))) goto L_0076; PASS(); goto L_0077; L_0076:; FAIL(); L_0077:; // 198 %If J >= 3 %then pass %else fail if (((J) < (3))) goto L_0078; PASS(); goto L_0079; L_0078:; FAIL(); L_0079:; // 199 %If 3 >= CInt4 %then pass %else fail if (((3) < (3))) goto L_007a; PASS(); goto L_007b; L_007a:; FAIL(); L_007b:; // 200 %If CInt4 >= 3 %then pass %else fail if (((3) < (3))) goto L_007c; PASS(); goto L_007d; L_007c:; FAIL(); L_007d:; // 201 %If J >= CInt4 %then pass %else fail if (((J) < (3))) goto L_007e; PASS(); goto L_007f; L_007e:; FAIL(); L_007f:; // 202 %If CInt4 >= J %then pass %else fail if (((3) < (J))) goto L_0080; PASS(); goto L_0081; L_0080:; FAIL(); L_0081:; // 203 %If CInt4 >= CInt4 %then pass %else fail if (((3) < (3))) goto L_0082; PASS(); goto L_0083; L_0082:; FAIL(); L_0083:; // 204 %If J >= J %then pass %else fail if (((J) < (J))) goto L_0084; PASS(); goto L_0085; L_0084:; FAIL(); L_0085:; // 205 %If F >= 3 %then pass %else fail if (((F()) < (3))) goto L_0086; PASS(); goto L_0087; L_0086:; FAIL(); L_0087:; // 206 // 207 // 208 // 209 New Line _imp_NEWLINE(); // 210 Print String("Second test for Integer Equality ") _imp_PRINTSTRING(_imp_str_literal("Second test for Integer Equality ")); // 211 New Line _imp_NEWLINE(); // 212 Print String("--------------------------------") _imp_PRINTSTRING(_imp_str_literal("--------------------------------")); // 213 New Line _imp_NEWLINE(); // 214 // 215 %If 3 = 10 %then fail %else pass if (((3) != (10))) goto L_0088; FAIL(); goto L_0089; L_0088:; PASS(); L_0089:; // 216 %If CInt4 = 10 %then fail %else pass if (((3) != (10))) goto L_008a; FAIL(); goto L_008b; L_008a:; PASS(); L_008b:; // 217 %If 10 = CInt4 %then fail %else pass if (((10) != (3))) goto L_008c; FAIL(); goto L_008d; L_008c:; PASS(); L_008d:; // 218 %If CInt4 = CInt3 %then fail %else pass if (((3) != (10))) goto L_008e; FAIL(); goto L_008f; L_008e:; PASS(); L_008f:; // 219 // 220 J = CInt4 J = 3; // 221 K = CInt3 K = 10; // 222 // 223 %If J = CInt3 %then fail %else pass if (((J) != (10))) goto L_0090; FAIL(); goto L_0091; L_0090:; PASS(); L_0091:; // 224 %If CInt3 = J %then fail %else pass if (((10) != (J))) goto L_0092; FAIL(); goto L_0093; L_0092:; PASS(); L_0093:; // 225 %If J = K %then fail %else pass if (((J) != (K))) goto L_0094; FAIL(); goto L_0095; L_0094:; PASS(); L_0095:; // 226 %If J = 10 %then fail %else pass if (((J) != (10))) goto L_0096; FAIL(); goto L_0097; L_0096:; PASS(); L_0097:; // 227 %If 10 = J %then fail %else pass if (((10) != (J))) goto L_0098; FAIL(); goto L_0099; L_0098:; PASS(); L_0099:; // 228 // 229 // 230 // 231 New Line _imp_NEWLINE(); // 232 Print String("Second test for Integer Inequality ") _imp_PRINTSTRING(_imp_str_literal("Second test for Integer Inequality ")); // 233 New Line _imp_NEWLINE(); // 234 Print String("----------------------------------") _imp_PRINTSTRING(_imp_str_literal("----------------------------------")); // 235 New Line _imp_NEWLINE(); // 236 // 237 %If 3 # 10 %then pass %else fail if (((3) == (10))) goto L_009a; PASS(); goto L_009b; L_009a:; FAIL(); L_009b:; // 238 %If CInt4 # 10 %then pass %else fail if (((3) == (10))) goto L_009c; PASS(); goto L_009d; L_009c:; FAIL(); L_009d:; // 239 %If 10 # CInt4 %then pass %else fail if (((10) == (3))) goto L_009e; PASS(); goto L_009f; L_009e:; FAIL(); L_009f:; // 240 %If CInt4 # CInt3 %then pass %else fail if (((3) == (10))) goto L_00a0; PASS(); goto L_00a1; L_00a0:; FAIL(); L_00a1:; // 241 %If J # CInt3 %then pass %else fail if (((J) == (10))) goto L_00a2; PASS(); goto L_00a3; L_00a2:; FAIL(); L_00a3:; // 242 %If CInt3 # J %then pass %else fail if (((10) == (J))) goto L_00a4; PASS(); goto L_00a5; L_00a4:; FAIL(); L_00a5:; // 243 %If J # K %then pass %else fail if (((J) == (K))) goto L_00a6; PASS(); goto L_00a7; L_00a6:; FAIL(); L_00a7:; // 244 %If J # 10 %then pass %else fail if (((J) == (10))) goto L_00a8; PASS(); goto L_00a9; L_00a8:; FAIL(); L_00a9:; // 245 %If 10 # J %then pass %else fail if (((10) == (J))) goto L_00aa; PASS(); goto L_00ab; L_00aa:; FAIL(); L_00ab:; // 246 // 247 // 248 // 249 New Line _imp_NEWLINE(); // 250 Print String ("Second test for LESS THAN in Integers ") _imp_PRINTSTRING(_imp_str_literal("Second test for LESS THAN in Integers ")); // 251 New Line _imp_NEWLINE(); // 252 Print String("-------------------------------------") _imp_PRINTSTRING(_imp_str_literal("-------------------------------------")); // 253 New Line _imp_NEWLINE(); // 254 // 255 %If 3 < 10 %then pass %else fail if (((3) >= (10))) goto L_00ac; PASS(); goto L_00ad; L_00ac:; FAIL(); L_00ad:; // 256 %If 10 < J %then fail %else pass if (((10) >= (J))) goto L_00ae; FAIL(); goto L_00af; L_00ae:; PASS(); L_00af:; // 257 %If J < 10 %then pass %else fail if (((J) >= (10))) goto L_00b0; PASS(); goto L_00b1; L_00b0:; FAIL(); L_00b1:; // 258 %If 10 < CInt4 %then fail %else pass if (((10) >= (3))) goto L_00b2; FAIL(); goto L_00b3; L_00b2:; PASS(); L_00b3:; // 259 %If CInt4 < 10 %then pass %else fail if (((3) >= (10))) goto L_00b4; PASS(); goto L_00b5; L_00b4:; FAIL(); L_00b5:; // 260 %If J < CInt3 %then pass %else fail if (((J) >= (10))) goto L_00b6; PASS(); goto L_00b7; L_00b6:; FAIL(); L_00b7:; // 261 %If CInt3 < J %then fail %else pass if (((10) >= (J))) goto L_00b8; FAIL(); goto L_00b9; L_00b8:; PASS(); L_00b9:; // 262 %If CInt4 < CInt3 %then pass %else fail if (((3) >= (10))) goto L_00ba; PASS(); goto L_00bb; L_00ba:; FAIL(); L_00bb:; // 263 // 264 // 265 // 266 New Line _imp_NEWLINE(); // 267 Print String("Second test for LESS THAN OR EQUALS in Integers ") _imp_PRINTSTRING(_imp_str_literal("Second test for LESS THAN OR EQUALS in Integers ")); // 268 New Line _imp_NEWLINE(); // 269 Print String("-----------------------------------------------") _imp_PRINTSTRING(_imp_str_literal("-----------------------------------------------")); // 270 New Line _imp_NEWLINE(); // 271 // 272 %If 3 <= 10 %then pass %else fail if (((3) > (10))) goto L_00bc; PASS(); goto L_00bd; L_00bc:; FAIL(); L_00bd:; // 273 %If 10 <= J %then fail %else pass if (((10) > (J))) goto L_00be; FAIL(); goto L_00bf; L_00be:; PASS(); L_00bf:; // 274 %If J <= 10 %then pass %else fail if (((J) > (10))) goto L_00c0; PASS(); goto L_00c1; L_00c0:; FAIL(); L_00c1:; // 275 %If 10 <= CInt4 %then fail %else pass if (((10) > (3))) goto L_00c2; FAIL(); goto L_00c3; L_00c2:; PASS(); L_00c3:; // 276 %If CInt4 <= 10 %then pass %else fail if (((3) > (10))) goto L_00c4; PASS(); goto L_00c5; L_00c4:; FAIL(); L_00c5:; // 277 %If J <= CInt3 %then pass %else fail if (((J) > (10))) goto L_00c6; PASS(); goto L_00c7; L_00c6:; FAIL(); L_00c7:; // 278 %If CInt3 <= J %then fail %else pass if (((10) > (J))) goto L_00c8; FAIL(); goto L_00c9; L_00c8:; PASS(); L_00c9:; // 279 %If CInt4 <= CInt3 %then pass %else fail if (((3) > (10))) goto L_00ca; PASS(); goto L_00cb; L_00ca:; FAIL(); L_00cb:; // 280 %If J <= J %then pass %else fail if (((J) > (J))) goto L_00cc; PASS(); goto L_00cd; L_00cc:; FAIL(); L_00cd:; // 281 // 282 // 283 // 284 New Line _imp_NEWLINE(); // 285 Print String("Second test for GREATER THAN in Integers ") _imp_PRINTSTRING(_imp_str_literal("Second test for GREATER THAN in Integers ")); // 286 New Line _imp_NEWLINE(); // 287 Print String("----------------------------------------") _imp_PRINTSTRING(_imp_str_literal("----------------------------------------")); // 288 New Line _imp_NEWLINE(); // 289 // 290 %If 3 > 10 %then fail %else pass if (((3) <= (10))) goto L_00ce; FAIL(); goto L_00cf; L_00ce:; PASS(); L_00cf:; // 291 %If 10 > J %then pass %else fail if (((10) <= (J))) goto L_00d0; PASS(); goto L_00d1; L_00d0:; FAIL(); L_00d1:; // 292 %If J > 10 %then fail %else pass if (((J) <= (10))) goto L_00d2; FAIL(); goto L_00d3; L_00d2:; PASS(); L_00d3:; // 293 %If 3 > CInt3 %then fail %else pass if (((3) <= (10))) goto L_00d4; FAIL(); goto L_00d5; L_00d4:; PASS(); L_00d5:; // 294 %If CInt4 > 10 %then fail %else pass if (((3) <= (10))) goto L_00d6; FAIL(); goto L_00d7; L_00d6:; PASS(); L_00d7:; // 295 %If J > CInt3 %then fail %else pass if (((J) <= (10))) goto L_00d8; FAIL(); goto L_00d9; L_00d8:; PASS(); L_00d9:; // 296 %If CInt3 > J %then pass %else fail if (((10) <= (J))) goto L_00da; PASS(); goto L_00db; L_00da:; FAIL(); L_00db:; // 297 %If CInt4 > CInt3 %then fail %else pass if (((3) <= (10))) goto L_00dc; FAIL(); goto L_00dd; L_00dc:; PASS(); L_00dd:; // 298 // 299 // 300 // 301 New Line _imp_NEWLINE(); // 302 Print String("Second test for GREATER THAN OR EQUALS in Integers ") _imp_PRINTSTRING(_imp_str_literal("Second test for GREATER THAN OR EQUALS in Integers ")); // 303 New Line _imp_NEWLINE(); // 304 Print String("--------------------------------------------------") _imp_PRINTSTRING(_imp_str_literal("--------------------------------------------------")); // 305 New Line _imp_NEWLINE(); // 306 // 307 %If 10 >= 3 %then pass %else fail if (((10) < (3))) goto L_00de; PASS(); goto L_00df; L_00de:; FAIL(); L_00df:; // 308 %If 10 >= J %then pass %else fail if (((10) < (J))) goto L_00e0; PASS(); goto L_00e1; L_00e0:; FAIL(); L_00e1:; // 309 %If J >= 10 %then fail %else pass if (((J) < (10))) goto L_00e2; FAIL(); goto L_00e3; L_00e2:; PASS(); L_00e3:; // 310 %If 10 >= CInt4 %then pass %else fail if (((10) < (3))) goto L_00e4; PASS(); goto L_00e5; L_00e4:; FAIL(); L_00e5:; // 311 %If CInt3 >= 3 %then pass %else fail if (((10) < (3))) goto L_00e6; PASS(); goto L_00e7; L_00e6:; FAIL(); L_00e7:; // 312 %If J >= CInt3 %then fail %else pass if (((J) < (10))) goto L_00e8; FAIL(); goto L_00e9; L_00e8:; PASS(); L_00e9:; // 313 %If CInt3 >= J %then pass %else fail if (((10) < (J))) goto L_00ea; PASS(); goto L_00eb; L_00ea:; FAIL(); L_00eb:; // 314 %If CInt3 >= CInt4 %then pass %else fail if (((10) < (3))) goto L_00ec; PASS(); goto L_00ed; L_00ec:; FAIL(); L_00ed:; // 315 // 316 // 317 select output(1) _imp_SELECTOUTPUT(1); // 318 write(failures,1); printstring(" failure(s)"); newline _imp_WRITE(FAILURES, 1); _imp_PRINTSTRING(_imp_str_literal(" failure(s)")); _imp_NEWLINE(); // 319 // 320 %End %of %Program /* Remove %on %event handler here if present for this block */ return 0; } // End of block _imp_main at level 1 // End of file