![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to eq.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / lcc / ph|
Return to eq.c CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / ph |
1.1 ! root 1: /* The Plum Hall Validation Suite for C ! 2: * Unpublished copyright (c) 1986-1991, Chiron Systems Inc and Plum Hall Inc. ! 3: * VERSION: 4 ! 4: * DATE: 1993-01-01 ! 5: * The "ANSI" mode of the Suite corresponds to the official ANSI C, X3.159-1989. ! 6: * As per your license agreement, your distribution is not to be moved or copied outside the Designated Site ! 7: * without specific permission from Plum Hall Inc. ! 8: */ ! 9: ! 10: #define ANSI 1 /* This file follows ANSI arithmetic rules, which may not work in non-ANSI modes */ ! 11: #include "types.h" ! 12: int main() ! 13: { ! 14: extern char *Filename; ! 15: auto CHAR Bc = 7; ! 16: auto CHAR *pBc = &Bc; ! 17: #if ANSI ! 18: auto SCHAR Bsc = 8; ! 19: auto SCHAR *pBsc = &Bsc; ! 20: #endif ! 21: auto SHORT Bs = 9; ! 22: auto SHORT *pBs = &Bs; ! 23: auto INT Bi = 10; ! 24: auto INT *pBi = &Bi; ! 25: auto UCHAR Buc = 11; ! 26: auto UCHAR *pBuc = &Buc; ! 27: auto USHORT Bus = 12; ! 28: auto USHORT *pBus = &Bus; ! 29: auto UINT Bui = 13; ! 30: auto UINT *pBui = &Bui; ! 31: auto LONG Bl = 14; ! 32: auto LONG *pBl = &Bl; ! 33: auto ULONG Bul = 15; ! 34: auto ULONG *pBul = &Bul; ! 35: auto FLOAT Bf = 16; ! 36: auto FLOAT *pBf = &Bf; ! 37: auto DOUBLE Bd = 17; ! 38: auto DOUBLE *pBd = &Bd; ! 39: #if ANSI ! 40: auto LDOUBLE Bld = 18; ! 41: auto LDOUBLE *pBld = &Bld; ! 42: #endif ! 43: { ! 44: auto CHAR Ic[12]; ! 45: int x_0 = 0; ! 46: #if ANSI ! 47: auto SCHAR Isc[12]; ! 48: int x_1 = 1; ! 49: #endif ! 50: auto SHORT Is[12]; ! 51: int x_2 = 2; ! 52: auto INT Ii[12]; ! 53: int x_3 = 3; ! 54: auto UCHAR Iuc[12]; ! 55: int x_4 = 4; ! 56: auto USHORT Ius[12]; ! 57: int x_5 = 5; ! 58: auto UINT Iui[12]; ! 59: int x_6 = 6; ! 60: auto LONG Il[12]; ! 61: int x_7 = 7; ! 62: auto ULONG Iul[12]; ! 63: int x_8 = 8; ! 64: auto FLOAT If[12]; ! 65: int x_9 = 9; ! 66: auto DOUBLE Id[12]; ! 67: int x_10 = 10; ! 68: #if ANSI ! 69: auto LDOUBLE Ild[12]; ! 70: int x_11 = 11; ! 71: #endif ! 72: Ic[x_0] = 7; ! 73: #if ANSI ! 74: Isc[x_1] = 8; ! 75: #endif ! 76: Is[x_2] = 9; ! 77: Ii[x_3] = 10; ! 78: Iuc[x_4] = 11; ! 79: Ius[x_5] = 12; ! 80: Iui[x_6] = 13; ! 81: Il[x_7] = 14; ! 82: Iul[x_8] = 15; ! 83: If[x_9] = 16; ! 84: Id[x_10] = 17; ! 85: #if ANSI ! 86: Ild[x_11] = 18; ! 87: #endif ! 88: { ! 89: int true = 1, false = 0; ! 90: Filename = " auto pscalar1 auto array1 eq "; ! 91: iequals(__LINE__, *pBc == Ic[x_0], 1); ! 92: iequals(__LINE__, Ic[x_0] == *pBc, 1); ! 93: if (*pBc == Ic[x_0]); else complain(__LINE__); ! 94: if (Ic[x_0] == *pBc); else complain(__LINE__); ! 95: #if ANSI ! 96: iequals(__LINE__, *pBc == Isc[x_1], 0); ! 97: iequals(__LINE__, Isc[x_1] == *pBc, 0); ! 98: if (*pBc == Isc[x_1]) complain(__LINE__); ! 99: if (Isc[x_1] == *pBc) complain(__LINE__); ! 100: #endif ! 101: iequals(__LINE__, *pBc == Is[x_2], 0); ! 102: iequals(__LINE__, Is[x_2] == *pBc, 0); ! 103: if (*pBc == Is[x_2]) complain(__LINE__); ! 104: if (Is[x_2] == *pBc) complain(__LINE__); ! 105: iequals(__LINE__, *pBc == Ii[x_3], 0); ! 106: iequals(__LINE__, Ii[x_3] == *pBc, 0); ! 107: if (*pBc == Ii[x_3]) complain(__LINE__); ! 108: if (Ii[x_3] == *pBc) complain(__LINE__); ! 109: iequals(__LINE__, *pBc == Iuc[x_4], 0); ! 110: iequals(__LINE__, Iuc[x_4] == *pBc, 0); ! 111: if (*pBc == Iuc[x_4]) complain(__LINE__); ! 112: if (Iuc[x_4] == *pBc) complain(__LINE__); ! 113: iequals(__LINE__, *pBc == Ius[x_5], 0); ! 114: iequals(__LINE__, Ius[x_5] == *pBc, 0); ! 115: if (*pBc == Ius[x_5]) complain(__LINE__); ! 116: if (Ius[x_5] == *pBc) complain(__LINE__); ! 117: iequals(__LINE__, *pBc == Iui[x_6], 0); ! 118: iequals(__LINE__, Iui[x_6] == *pBc, 0); ! 119: if (*pBc == Iui[x_6]) complain(__LINE__); ! 120: if (Iui[x_6] == *pBc) complain(__LINE__); ! 121: iequals(__LINE__, *pBc == Il[x_7], 0); ! 122: iequals(__LINE__, Il[x_7] == *pBc, 0); ! 123: if (*pBc == Il[x_7]) complain(__LINE__); ! 124: if (Il[x_7] == *pBc) complain(__LINE__); ! 125: iequals(__LINE__, *pBc == Iul[x_8], 0); ! 126: iequals(__LINE__, Iul[x_8] == *pBc, 0); ! 127: if (*pBc == Iul[x_8]) complain(__LINE__); ! 128: if (Iul[x_8] == *pBc) complain(__LINE__); ! 129: iequals(__LINE__, *pBc == If[x_9], 0); ! 130: iequals(__LINE__, If[x_9] == *pBc, 0); ! 131: if (*pBc == If[x_9]) complain(__LINE__); ! 132: if (If[x_9] == *pBc) complain(__LINE__); ! 133: iequals(__LINE__, *pBc == Id[x_10], 0); ! 134: iequals(__LINE__, Id[x_10] == *pBc, 0); ! 135: if (*pBc == Id[x_10]) complain(__LINE__); ! 136: if (Id[x_10] == *pBc) complain(__LINE__); ! 137: #if ANSI ! 138: iequals(__LINE__, *pBc == Ild[x_11], 0); ! 139: iequals(__LINE__, Ild[x_11] == *pBc, 0); ! 140: if (*pBc == Ild[x_11]) complain(__LINE__); ! 141: if (Ild[x_11] == *pBc) complain(__LINE__); ! 142: #endif ! 143: #if ANSI ! 144: iequals(__LINE__, *pBsc == Ic[x_0], 0); ! 145: iequals(__LINE__, Ic[x_0] == *pBsc, 0); ! 146: if (*pBsc == Ic[x_0]) complain(__LINE__); ! 147: if (Ic[x_0] == *pBsc) complain(__LINE__); ! 148: #endif ! 149: #if ANSI ! 150: iequals(__LINE__, *pBsc == Isc[x_1], 1); ! 151: iequals(__LINE__, Isc[x_1] == *pBsc, 1); ! 152: if (*pBsc == Isc[x_1]); else complain(__LINE__); ! 153: if (Isc[x_1] == *pBsc); else complain(__LINE__); ! 154: #endif ! 155: #if ANSI ! 156: iequals(__LINE__, *pBsc == Is[x_2], 0); ! 157: iequals(__LINE__, Is[x_2] == *pBsc, 0); ! 158: if (*pBsc == Is[x_2]) complain(__LINE__); ! 159: if (Is[x_2] == *pBsc) complain(__LINE__); ! 160: #endif ! 161: #if ANSI ! 162: iequals(__LINE__, *pBsc == Ii[x_3], 0); ! 163: iequals(__LINE__, Ii[x_3] == *pBsc, 0); ! 164: if (*pBsc == Ii[x_3]) complain(__LINE__); ! 165: if (Ii[x_3] == *pBsc) complain(__LINE__); ! 166: #endif ! 167: #if ANSI ! 168: iequals(__LINE__, *pBsc == Iuc[x_4], 0); ! 169: iequals(__LINE__, Iuc[x_4] == *pBsc, 0); ! 170: if (*pBsc == Iuc[x_4]) complain(__LINE__); ! 171: if (Iuc[x_4] == *pBsc) complain(__LINE__); ! 172: #endif ! 173: #if ANSI ! 174: iequals(__LINE__, *pBsc == Ius[x_5], 0); ! 175: iequals(__LINE__, Ius[x_5] == *pBsc, 0); ! 176: if (*pBsc == Ius[x_5]) complain(__LINE__); ! 177: if (Ius[x_5] == *pBsc) complain(__LINE__); ! 178: #endif ! 179: #if ANSI ! 180: iequals(__LINE__, *pBsc == Iui[x_6], 0); ! 181: iequals(__LINE__, Iui[x_6] == *pBsc, 0); ! 182: if (*pBsc == Iui[x_6]) complain(__LINE__); ! 183: if (Iui[x_6] == *pBsc) complain(__LINE__); ! 184: #endif ! 185: #if ANSI ! 186: iequals(__LINE__, *pBsc == Il[x_7], 0); ! 187: iequals(__LINE__, Il[x_7] == *pBsc, 0); ! 188: if (*pBsc == Il[x_7]) complain(__LINE__); ! 189: if (Il[x_7] == *pBsc) complain(__LINE__); ! 190: #endif ! 191: #if ANSI ! 192: iequals(__LINE__, *pBsc == Iul[x_8], 0); ! 193: iequals(__LINE__, Iul[x_8] == *pBsc, 0); ! 194: if (*pBsc == Iul[x_8]) complain(__LINE__); ! 195: if (Iul[x_8] == *pBsc) complain(__LINE__); ! 196: #endif ! 197: #if ANSI ! 198: iequals(__LINE__, *pBsc == If[x_9], 0); ! 199: iequals(__LINE__, If[x_9] == *pBsc, 0); ! 200: if (*pBsc == If[x_9]) complain(__LINE__); ! 201: if (If[x_9] == *pBsc) complain(__LINE__); ! 202: #endif ! 203: #if ANSI ! 204: iequals(__LINE__, *pBsc == Id[x_10], 0); ! 205: iequals(__LINE__, Id[x_10] == *pBsc, 0); ! 206: if (*pBsc == Id[x_10]) complain(__LINE__); ! 207: if (Id[x_10] == *pBsc) complain(__LINE__); ! 208: #endif ! 209: #if ANSI ! 210: iequals(__LINE__, *pBsc == Ild[x_11], 0); ! 211: iequals(__LINE__, Ild[x_11] == *pBsc, 0); ! 212: if (*pBsc == Ild[x_11]) complain(__LINE__); ! 213: if (Ild[x_11] == *pBsc) complain(__LINE__); ! 214: #endif ! 215: iequals(__LINE__, *pBs == Ic[x_0], 0); ! 216: iequals(__LINE__, Ic[x_0] == *pBs, 0); ! 217: if (*pBs == Ic[x_0]) complain(__LINE__); ! 218: if (Ic[x_0] == *pBs) complain(__LINE__); ! 219: #if ANSI ! 220: iequals(__LINE__, *pBs == Isc[x_1], 0); ! 221: iequals(__LINE__, Isc[x_1] == *pBs, 0); ! 222: if (*pBs == Isc[x_1]) complain(__LINE__); ! 223: if (Isc[x_1] == *pBs) complain(__LINE__); ! 224: #endif ! 225: iequals(__LINE__, *pBs == Is[x_2], 1); ! 226: iequals(__LINE__, Is[x_2] == *pBs, 1); ! 227: if (*pBs == Is[x_2]); else complain(__LINE__); ! 228: if (Is[x_2] == *pBs); else complain(__LINE__); ! 229: iequals(__LINE__, *pBs == Ii[x_3], 0); ! 230: iequals(__LINE__, Ii[x_3] == *pBs, 0); ! 231: if (*pBs == Ii[x_3]) complain(__LINE__); ! 232: if (Ii[x_3] == *pBs) complain(__LINE__); ! 233: iequals(__LINE__, *pBs == Iuc[x_4], 0); ! 234: iequals(__LINE__, Iuc[x_4] == *pBs, 0); ! 235: if (*pBs == Iuc[x_4]) complain(__LINE__); ! 236: if (Iuc[x_4] == *pBs) complain(__LINE__); ! 237: iequals(__LINE__, *pBs == Ius[x_5], 0); ! 238: iequals(__LINE__, Ius[x_5] == *pBs, 0); ! 239: if (*pBs == Ius[x_5]) complain(__LINE__); ! 240: if (Ius[x_5] == *pBs) complain(__LINE__); ! 241: iequals(__LINE__, *pBs == Iui[x_6], 0); ! 242: iequals(__LINE__, Iui[x_6] == *pBs, 0); ! 243: if (*pBs == Iui[x_6]) complain(__LINE__); ! 244: if (Iui[x_6] == *pBs) complain(__LINE__); ! 245: iequals(__LINE__, *pBs == Il[x_7], 0); ! 246: iequals(__LINE__, Il[x_7] == *pBs, 0); ! 247: if (*pBs == Il[x_7]) complain(__LINE__); ! 248: if (Il[x_7] == *pBs) complain(__LINE__); ! 249: iequals(__LINE__, *pBs == Iul[x_8], 0); ! 250: iequals(__LINE__, Iul[x_8] == *pBs, 0); ! 251: if (*pBs == Iul[x_8]) complain(__LINE__); ! 252: if (Iul[x_8] == *pBs) complain(__LINE__); ! 253: iequals(__LINE__, *pBs == If[x_9], 0); ! 254: iequals(__LINE__, If[x_9] == *pBs, 0); ! 255: if (*pBs == If[x_9]) complain(__LINE__); ! 256: if (If[x_9] == *pBs) complain(__LINE__); ! 257: iequals(__LINE__, *pBs == Id[x_10], 0); ! 258: iequals(__LINE__, Id[x_10] == *pBs, 0); ! 259: if (*pBs == Id[x_10]) complain(__LINE__); ! 260: if (Id[x_10] == *pBs) complain(__LINE__); ! 261: #if ANSI ! 262: iequals(__LINE__, *pBs == Ild[x_11], 0); ! 263: iequals(__LINE__, Ild[x_11] == *pBs, 0); ! 264: if (*pBs == Ild[x_11]) complain(__LINE__); ! 265: if (Ild[x_11] == *pBs) complain(__LINE__); ! 266: #endif ! 267: iequals(__LINE__, *pBi == Ic[x_0], 0); ! 268: iequals(__LINE__, Ic[x_0] == *pBi, 0); ! 269: if (*pBi == Ic[x_0]) complain(__LINE__); ! 270: if (Ic[x_0] == *pBi) complain(__LINE__); ! 271: #if ANSI ! 272: iequals(__LINE__, *pBi == Isc[x_1], 0); ! 273: iequals(__LINE__, Isc[x_1] == *pBi, 0); ! 274: if (*pBi == Isc[x_1]) complain(__LINE__); ! 275: if (Isc[x_1] == *pBi) complain(__LINE__); ! 276: #endif ! 277: iequals(__LINE__, *pBi == Is[x_2], 0); ! 278: iequals(__LINE__, Is[x_2] == *pBi, 0); ! 279: if (*pBi == Is[x_2]) complain(__LINE__); ! 280: if (Is[x_2] == *pBi) complain(__LINE__); ! 281: iequals(__LINE__, *pBi == Ii[x_3], 1); ! 282: iequals(__LINE__, Ii[x_3] == *pBi, 1); ! 283: if (*pBi == Ii[x_3]); else complain(__LINE__); ! 284: if (Ii[x_3] == *pBi); else complain(__LINE__); ! 285: iequals(__LINE__, *pBi == Iuc[x_4], 0); ! 286: iequals(__LINE__, Iuc[x_4] == *pBi, 0); ! 287: if (*pBi == Iuc[x_4]) complain(__LINE__); ! 288: if (Iuc[x_4] == *pBi) complain(__LINE__); ! 289: iequals(__LINE__, *pBi == Ius[x_5], 0); ! 290: iequals(__LINE__, Ius[x_5] == *pBi, 0); ! 291: if (*pBi == Ius[x_5]) complain(__LINE__); ! 292: if (Ius[x_5] == *pBi) complain(__LINE__); ! 293: iequals(__LINE__, *pBi == Iui[x_6], 0); ! 294: iequals(__LINE__, Iui[x_6] == *pBi, 0); ! 295: if (*pBi == Iui[x_6]) complain(__LINE__); ! 296: if (Iui[x_6] == *pBi) complain(__LINE__); ! 297: iequals(__LINE__, *pBi == Il[x_7], 0); ! 298: iequals(__LINE__, Il[x_7] == *pBi, 0); ! 299: if (*pBi == Il[x_7]) complain(__LINE__); ! 300: if (Il[x_7] == *pBi) complain(__LINE__); ! 301: iequals(__LINE__, *pBi == Iul[x_8], 0); ! 302: iequals(__LINE__, Iul[x_8] == *pBi, 0); ! 303: if (*pBi == Iul[x_8]) complain(__LINE__); ! 304: if (Iul[x_8] == *pBi) complain(__LINE__); ! 305: iequals(__LINE__, *pBi == If[x_9], 0); ! 306: iequals(__LINE__, If[x_9] == *pBi, 0); ! 307: if (*pBi == If[x_9]) complain(__LINE__); ! 308: if (If[x_9] == *pBi) complain(__LINE__); ! 309: iequals(__LINE__, *pBi == Id[x_10], 0); ! 310: iequals(__LINE__, Id[x_10] == *pBi, 0); ! 311: if (*pBi == Id[x_10]) complain(__LINE__); ! 312: if (Id[x_10] == *pBi) complain(__LINE__); ! 313: #if ANSI ! 314: iequals(__LINE__, *pBi == Ild[x_11], 0); ! 315: iequals(__LINE__, Ild[x_11] == *pBi, 0); ! 316: if (*pBi == Ild[x_11]) complain(__LINE__); ! 317: if (Ild[x_11] == *pBi) complain(__LINE__); ! 318: #endif ! 319: iequals(__LINE__, *pBuc == Ic[x_0], 0); ! 320: iequals(__LINE__, Ic[x_0] == *pBuc, 0); ! 321: if (*pBuc == Ic[x_0]) complain(__LINE__); ! 322: if (Ic[x_0] == *pBuc) complain(__LINE__); ! 323: #if ANSI ! 324: iequals(__LINE__, *pBuc == Isc[x_1], 0); ! 325: iequals(__LINE__, Isc[x_1] == *pBuc, 0); ! 326: if (*pBuc == Isc[x_1]) complain(__LINE__); ! 327: if (Isc[x_1] == *pBuc) complain(__LINE__); ! 328: #endif ! 329: iequals(__LINE__, *pBuc == Is[x_2], 0); ! 330: iequals(__LINE__, Is[x_2] == *pBuc, 0); ! 331: if (*pBuc == Is[x_2]) complain(__LINE__); ! 332: if (Is[x_2] == *pBuc) complain(__LINE__); ! 333: iequals(__LINE__, *pBuc == Ii[x_3], 0); ! 334: iequals(__LINE__, Ii[x_3] == *pBuc, 0); ! 335: if (*pBuc == Ii[x_3]) complain(__LINE__); ! 336: if (Ii[x_3] == *pBuc) complain(__LINE__); ! 337: iequals(__LINE__, *pBuc == Iuc[x_4], 1); ! 338: iequals(__LINE__, Iuc[x_4] == *pBuc, 1); ! 339: if (*pBuc == Iuc[x_4]); else complain(__LINE__); ! 340: if (Iuc[x_4] == *pBuc); else complain(__LINE__); ! 341: iequals(__LINE__, *pBuc == Ius[x_5], 0); ! 342: iequals(__LINE__, Ius[x_5] == *pBuc, 0); ! 343: if (*pBuc == Ius[x_5]) complain(__LINE__); ! 344: if (Ius[x_5] == *pBuc) complain(__LINE__); ! 345: iequals(__LINE__, *pBuc == Iui[x_6], 0); ! 346: iequals(__LINE__, Iui[x_6] == *pBuc, 0); ! 347: if (*pBuc == Iui[x_6]) complain(__LINE__); ! 348: if (Iui[x_6] == *pBuc) complain(__LINE__); ! 349: iequals(__LINE__, *pBuc == Il[x_7], 0); ! 350: iequals(__LINE__, Il[x_7] == *pBuc, 0); ! 351: if (*pBuc == Il[x_7]) complain(__LINE__); ! 352: if (Il[x_7] == *pBuc) complain(__LINE__); ! 353: iequals(__LINE__, *pBuc == Iul[x_8], 0); ! 354: iequals(__LINE__, Iul[x_8] == *pBuc, 0); ! 355: if (*pBuc == Iul[x_8]) complain(__LINE__); ! 356: if (Iul[x_8] == *pBuc) complain(__LINE__); ! 357: iequals(__LINE__, *pBuc == If[x_9], 0); ! 358: iequals(__LINE__, If[x_9] == *pBuc, 0); ! 359: if (*pBuc == If[x_9]) complain(__LINE__); ! 360: if (If[x_9] == *pBuc) complain(__LINE__); ! 361: iequals(__LINE__, *pBuc == Id[x_10], 0); ! 362: iequals(__LINE__, Id[x_10] == *pBuc, 0); ! 363: if (*pBuc == Id[x_10]) complain(__LINE__); ! 364: if (Id[x_10] == *pBuc) complain(__LINE__); ! 365: #if ANSI ! 366: iequals(__LINE__, *pBuc == Ild[x_11], 0); ! 367: iequals(__LINE__, Ild[x_11] == *pBuc, 0); ! 368: if (*pBuc == Ild[x_11]) complain(__LINE__); ! 369: if (Ild[x_11] == *pBuc) complain(__LINE__); ! 370: #endif ! 371: iequals(__LINE__, *pBus == Ic[x_0], 0); ! 372: iequals(__LINE__, Ic[x_0] == *pBus, 0); ! 373: if (*pBus == Ic[x_0]) complain(__LINE__); ! 374: if (Ic[x_0] == *pBus) complain(__LINE__); ! 375: #if ANSI ! 376: iequals(__LINE__, *pBus == Isc[x_1], 0); ! 377: iequals(__LINE__, Isc[x_1] == *pBus, 0); ! 378: if (*pBus == Isc[x_1]) complain(__LINE__); ! 379: if (Isc[x_1] == *pBus) complain(__LINE__); ! 380: #endif ! 381: iequals(__LINE__, *pBus == Is[x_2], 0); ! 382: iequals(__LINE__, Is[x_2] == *pBus, 0); ! 383: if (*pBus == Is[x_2]) complain(__LINE__); ! 384: if (Is[x_2] == *pBus) complain(__LINE__); ! 385: iequals(__LINE__, *pBus == Ii[x_3], 0); ! 386: iequals(__LINE__, Ii[x_3] == *pBus, 0); ! 387: if (*pBus == Ii[x_3]) complain(__LINE__); ! 388: if (Ii[x_3] == *pBus) complain(__LINE__); ! 389: iequals(__LINE__, *pBus == Iuc[x_4], 0); ! 390: iequals(__LINE__, Iuc[x_4] == *pBus, 0); ! 391: if (*pBus == Iuc[x_4]) complain(__LINE__); ! 392: if (Iuc[x_4] == *pBus) complain(__LINE__); ! 393: iequals(__LINE__, *pBus == Ius[x_5], 1); ! 394: iequals(__LINE__, Ius[x_5] == *pBus, 1); ! 395: if (*pBus == Ius[x_5]); else complain(__LINE__); ! 396: if (Ius[x_5] == *pBus); else complain(__LINE__); ! 397: iequals(__LINE__, *pBus == Iui[x_6], 0); ! 398: iequals(__LINE__, Iui[x_6] == *pBus, 0); ! 399: if (*pBus == Iui[x_6]) complain(__LINE__); ! 400: if (Iui[x_6] == *pBus) complain(__LINE__); ! 401: iequals(__LINE__, *pBus == Il[x_7], 0); ! 402: iequals(__LINE__, Il[x_7] == *pBus, 0); ! 403: if (*pBus == Il[x_7]) complain(__LINE__); ! 404: if (Il[x_7] == *pBus) complain(__LINE__); ! 405: iequals(__LINE__, *pBus == Iul[x_8], 0); ! 406: iequals(__LINE__, Iul[x_8] == *pBus, 0); ! 407: if (*pBus == Iul[x_8]) complain(__LINE__); ! 408: if (Iul[x_8] == *pBus) complain(__LINE__); ! 409: iequals(__LINE__, *pBus == If[x_9], 0); ! 410: iequals(__LINE__, If[x_9] == *pBus, 0); ! 411: if (*pBus == If[x_9]) complain(__LINE__); ! 412: if (If[x_9] == *pBus) complain(__LINE__); ! 413: iequals(__LINE__, *pBus == Id[x_10], 0); ! 414: iequals(__LINE__, Id[x_10] == *pBus, 0); ! 415: if (*pBus == Id[x_10]) complain(__LINE__); ! 416: if (Id[x_10] == *pBus) complain(__LINE__); ! 417: #if ANSI ! 418: iequals(__LINE__, *pBus == Ild[x_11], 0); ! 419: iequals(__LINE__, Ild[x_11] == *pBus, 0); ! 420: if (*pBus == Ild[x_11]) complain(__LINE__); ! 421: if (Ild[x_11] == *pBus) complain(__LINE__); ! 422: #endif ! 423: iequals(__LINE__, *pBui == Ic[x_0], 0); ! 424: iequals(__LINE__, Ic[x_0] == *pBui, 0); ! 425: if (*pBui == Ic[x_0]) complain(__LINE__); ! 426: if (Ic[x_0] == *pBui) complain(__LINE__); ! 427: #if ANSI ! 428: iequals(__LINE__, *pBui == Isc[x_1], 0); ! 429: iequals(__LINE__, Isc[x_1] == *pBui, 0); ! 430: if (*pBui == Isc[x_1]) complain(__LINE__); ! 431: if (Isc[x_1] == *pBui) complain(__LINE__); ! 432: #endif ! 433: iequals(__LINE__, *pBui == Is[x_2], 0); ! 434: iequals(__LINE__, Is[x_2] == *pBui, 0); ! 435: if (*pBui == Is[x_2]) complain(__LINE__); ! 436: if (Is[x_2] == *pBui) complain(__LINE__); ! 437: iequals(__LINE__, *pBui == Ii[x_3], 0); ! 438: iequals(__LINE__, Ii[x_3] == *pBui, 0); ! 439: if (*pBui == Ii[x_3]) complain(__LINE__); ! 440: if (Ii[x_3] == *pBui) complain(__LINE__); ! 441: iequals(__LINE__, *pBui == Iuc[x_4], 0); ! 442: iequals(__LINE__, Iuc[x_4] == *pBui, 0); ! 443: if (*pBui == Iuc[x_4]) complain(__LINE__); ! 444: if (Iuc[x_4] == *pBui) complain(__LINE__); ! 445: iequals(__LINE__, *pBui == Ius[x_5], 0); ! 446: iequals(__LINE__, Ius[x_5] == *pBui, 0); ! 447: if (*pBui == Ius[x_5]) complain(__LINE__); ! 448: if (Ius[x_5] == *pBui) complain(__LINE__); ! 449: iequals(__LINE__, *pBui == Iui[x_6], 1); ! 450: iequals(__LINE__, Iui[x_6] == *pBui, 1); ! 451: if (*pBui == Iui[x_6]); else complain(__LINE__); ! 452: if (Iui[x_6] == *pBui); else complain(__LINE__); ! 453: iequals(__LINE__, *pBui == Il[x_7], 0); ! 454: iequals(__LINE__, Il[x_7] == *pBui, 0); ! 455: if (*pBui == Il[x_7]) complain(__LINE__); ! 456: if (Il[x_7] == *pBui) complain(__LINE__); ! 457: iequals(__LINE__, *pBui == Iul[x_8], 0); ! 458: iequals(__LINE__, Iul[x_8] == *pBui, 0); ! 459: if (*pBui == Iul[x_8]) complain(__LINE__); ! 460: if (Iul[x_8] == *pBui) complain(__LINE__); ! 461: iequals(__LINE__, *pBui == If[x_9], 0); ! 462: iequals(__LINE__, If[x_9] == *pBui, 0); ! 463: if (*pBui == If[x_9]) complain(__LINE__); ! 464: if (If[x_9] == *pBui) complain(__LINE__); ! 465: iequals(__LINE__, *pBui == Id[x_10], 0); ! 466: iequals(__LINE__, Id[x_10] == *pBui, 0); ! 467: if (*pBui == Id[x_10]) complain(__LINE__); ! 468: if (Id[x_10] == *pBui) complain(__LINE__); ! 469: #if ANSI ! 470: iequals(__LINE__, *pBui == Ild[x_11], 0); ! 471: iequals(__LINE__, Ild[x_11] == *pBui, 0); ! 472: if (*pBui == Ild[x_11]) complain(__LINE__); ! 473: if (Ild[x_11] == *pBui) complain(__LINE__); ! 474: #endif ! 475: iequals(__LINE__, *pBl == Ic[x_0], 0); ! 476: iequals(__LINE__, Ic[x_0] == *pBl, 0); ! 477: if (*pBl == Ic[x_0]) complain(__LINE__); ! 478: if (Ic[x_0] == *pBl) complain(__LINE__); ! 479: #if ANSI ! 480: iequals(__LINE__, *pBl == Isc[x_1], 0); ! 481: iequals(__LINE__, Isc[x_1] == *pBl, 0); ! 482: if (*pBl == Isc[x_1]) complain(__LINE__); ! 483: if (Isc[x_1] == *pBl) complain(__LINE__); ! 484: #endif ! 485: iequals(__LINE__, *pBl == Is[x_2], 0); ! 486: iequals(__LINE__, Is[x_2] == *pBl, 0); ! 487: if (*pBl == Is[x_2]) complain(__LINE__); ! 488: if (Is[x_2] == *pBl) complain(__LINE__); ! 489: iequals(__LINE__, *pBl == Ii[x_3], 0); ! 490: iequals(__LINE__, Ii[x_3] == *pBl, 0); ! 491: if (*pBl == Ii[x_3]) complain(__LINE__); ! 492: if (Ii[x_3] == *pBl) complain(__LINE__); ! 493: iequals(__LINE__, *pBl == Iuc[x_4], 0); ! 494: iequals(__LINE__, Iuc[x_4] == *pBl, 0); ! 495: if (*pBl == Iuc[x_4]) complain(__LINE__); ! 496: if (Iuc[x_4] == *pBl) complain(__LINE__); ! 497: iequals(__LINE__, *pBl == Ius[x_5], 0); ! 498: iequals(__LINE__, Ius[x_5] == *pBl, 0); ! 499: if (*pBl == Ius[x_5]) complain(__LINE__); ! 500: if (Ius[x_5] == *pBl) complain(__LINE__); ! 501: iequals(__LINE__, *pBl == Iui[x_6], 0); ! 502: iequals(__LINE__, Iui[x_6] == *pBl, 0); ! 503: if (*pBl == Iui[x_6]) complain(__LINE__); ! 504: if (Iui[x_6] == *pBl) complain(__LINE__); ! 505: iequals(__LINE__, *pBl == Il[x_7], 1); ! 506: iequals(__LINE__, Il[x_7] == *pBl, 1); ! 507: if (*pBl == Il[x_7]); else complain(__LINE__); ! 508: if (Il[x_7] == *pBl); else complain(__LINE__); ! 509: iequals(__LINE__, *pBl == Iul[x_8], 0); ! 510: iequals(__LINE__, Iul[x_8] == *pBl, 0); ! 511: if (*pBl == Iul[x_8]) complain(__LINE__); ! 512: if (Iul[x_8] == *pBl) complain(__LINE__); ! 513: iequals(__LINE__, *pBl == If[x_9], 0); ! 514: iequals(__LINE__, If[x_9] == *pBl, 0); ! 515: if (*pBl == If[x_9]) complain(__LINE__); ! 516: if (If[x_9] == *pBl) complain(__LINE__); ! 517: iequals(__LINE__, *pBl == Id[x_10], 0); ! 518: iequals(__LINE__, Id[x_10] == *pBl, 0); ! 519: if (*pBl == Id[x_10]) complain(__LINE__); ! 520: if (Id[x_10] == *pBl) complain(__LINE__); ! 521: #if ANSI ! 522: iequals(__LINE__, *pBl == Ild[x_11], 0); ! 523: iequals(__LINE__, Ild[x_11] == *pBl, 0); ! 524: if (*pBl == Ild[x_11]) complain(__LINE__); ! 525: if (Ild[x_11] == *pBl) complain(__LINE__); ! 526: #endif ! 527: iequals(__LINE__, *pBul == Ic[x_0], 0); ! 528: iequals(__LINE__, Ic[x_0] == *pBul, 0); ! 529: if (*pBul == Ic[x_0]) complain(__LINE__); ! 530: if (Ic[x_0] == *pBul) complain(__LINE__); ! 531: #if ANSI ! 532: iequals(__LINE__, *pBul == Isc[x_1], 0); ! 533: iequals(__LINE__, Isc[x_1] == *pBul, 0); ! 534: if (*pBul == Isc[x_1]) complain(__LINE__); ! 535: if (Isc[x_1] == *pBul) complain(__LINE__); ! 536: #endif ! 537: iequals(__LINE__, *pBul == Is[x_2], 0); ! 538: iequals(__LINE__, Is[x_2] == *pBul, 0); ! 539: if (*pBul == Is[x_2]) complain(__LINE__); ! 540: if (Is[x_2] == *pBul) complain(__LINE__); ! 541: iequals(__LINE__, *pBul == Ii[x_3], 0); ! 542: iequals(__LINE__, Ii[x_3] == *pBul, 0); ! 543: if (*pBul == Ii[x_3]) complain(__LINE__); ! 544: if (Ii[x_3] == *pBul) complain(__LINE__); ! 545: iequals(__LINE__, *pBul == Iuc[x_4], 0); ! 546: iequals(__LINE__, Iuc[x_4] == *pBul, 0); ! 547: if (*pBul == Iuc[x_4]) complain(__LINE__); ! 548: if (Iuc[x_4] == *pBul) complain(__LINE__); ! 549: iequals(__LINE__, *pBul == Ius[x_5], 0); ! 550: iequals(__LINE__, Ius[x_5] == *pBul, 0); ! 551: if (*pBul == Ius[x_5]) complain(__LINE__); ! 552: if (Ius[x_5] == *pBul) complain(__LINE__); ! 553: iequals(__LINE__, *pBul == Iui[x_6], 0); ! 554: iequals(__LINE__, Iui[x_6] == *pBul, 0); ! 555: if (*pBul == Iui[x_6]) complain(__LINE__); ! 556: if (Iui[x_6] == *pBul) complain(__LINE__); ! 557: iequals(__LINE__, *pBul == Il[x_7], 0); ! 558: iequals(__LINE__, Il[x_7] == *pBul, 0); ! 559: if (*pBul == Il[x_7]) complain(__LINE__); ! 560: if (Il[x_7] == *pBul) complain(__LINE__); ! 561: iequals(__LINE__, *pBul == Iul[x_8], 1); ! 562: iequals(__LINE__, Iul[x_8] == *pBul, 1); ! 563: if (*pBul == Iul[x_8]); else complain(__LINE__); ! 564: if (Iul[x_8] == *pBul); else complain(__LINE__); ! 565: iequals(__LINE__, *pBul == If[x_9], 0); ! 566: iequals(__LINE__, If[x_9] == *pBul, 0); ! 567: if (*pBul == If[x_9]) complain(__LINE__); ! 568: if (If[x_9] == *pBul) complain(__LINE__); ! 569: iequals(__LINE__, *pBul == Id[x_10], 0); ! 570: iequals(__LINE__, Id[x_10] == *pBul, 0); ! 571: if (*pBul == Id[x_10]) complain(__LINE__); ! 572: if (Id[x_10] == *pBul) complain(__LINE__); ! 573: #if ANSI ! 574: iequals(__LINE__, *pBul == Ild[x_11], 0); ! 575: iequals(__LINE__, Ild[x_11] == *pBul, 0); ! 576: if (*pBul == Ild[x_11]) complain(__LINE__); ! 577: if (Ild[x_11] == *pBul) complain(__LINE__); ! 578: #endif ! 579: iequals(__LINE__, *pBf == Ic[x_0], 0); ! 580: iequals(__LINE__, Ic[x_0] == *pBf, 0); ! 581: if (*pBf == Ic[x_0]) complain(__LINE__); ! 582: if (Ic[x_0] == *pBf) complain(__LINE__); ! 583: #if ANSI ! 584: iequals(__LINE__, *pBf == Isc[x_1], 0); ! 585: iequals(__LINE__, Isc[x_1] == *pBf, 0); ! 586: if (*pBf == Isc[x_1]) complain(__LINE__); ! 587: if (Isc[x_1] == *pBf) complain(__LINE__); ! 588: #endif ! 589: iequals(__LINE__, *pBf == Is[x_2], 0); ! 590: iequals(__LINE__, Is[x_2] == *pBf, 0); ! 591: if (*pBf == Is[x_2]) complain(__LINE__); ! 592: if (Is[x_2] == *pBf) complain(__LINE__); ! 593: iequals(__LINE__, *pBf == Ii[x_3], 0); ! 594: iequals(__LINE__, Ii[x_3] == *pBf, 0); ! 595: if (*pBf == Ii[x_3]) complain(__LINE__); ! 596: if (Ii[x_3] == *pBf) complain(__LINE__); ! 597: iequals(__LINE__, *pBf == Iuc[x_4], 0); ! 598: iequals(__LINE__, Iuc[x_4] == *pBf, 0); ! 599: if (*pBf == Iuc[x_4]) complain(__LINE__); ! 600: if (Iuc[x_4] == *pBf) complain(__LINE__); ! 601: iequals(__LINE__, *pBf == Ius[x_5], 0); ! 602: iequals(__LINE__, Ius[x_5] == *pBf, 0); ! 603: if (*pBf == Ius[x_5]) complain(__LINE__); ! 604: if (Ius[x_5] == *pBf) complain(__LINE__); ! 605: iequals(__LINE__, *pBf == Iui[x_6], 0); ! 606: iequals(__LINE__, Iui[x_6] == *pBf, 0); ! 607: if (*pBf == Iui[x_6]) complain(__LINE__); ! 608: if (Iui[x_6] == *pBf) complain(__LINE__); ! 609: iequals(__LINE__, *pBf == Il[x_7], 0); ! 610: iequals(__LINE__, Il[x_7] == *pBf, 0); ! 611: if (*pBf == Il[x_7]) complain(__LINE__); ! 612: if (Il[x_7] == *pBf) complain(__LINE__); ! 613: iequals(__LINE__, *pBf == Iul[x_8], 0); ! 614: iequals(__LINE__, Iul[x_8] == *pBf, 0); ! 615: if (*pBf == Iul[x_8]) complain(__LINE__); ! 616: if (Iul[x_8] == *pBf) complain(__LINE__); ! 617: iequals(__LINE__, *pBf == If[x_9], 1); ! 618: iequals(__LINE__, If[x_9] == *pBf, 1); ! 619: if (*pBf == If[x_9]); else complain(__LINE__); ! 620: if (If[x_9] == *pBf); else complain(__LINE__); ! 621: iequals(__LINE__, *pBf == Id[x_10], 0); ! 622: iequals(__LINE__, Id[x_10] == *pBf, 0); ! 623: if (*pBf == Id[x_10]) complain(__LINE__); ! 624: if (Id[x_10] == *pBf) complain(__LINE__); ! 625: #if ANSI ! 626: iequals(__LINE__, *pBf == Ild[x_11], 0); ! 627: iequals(__LINE__, Ild[x_11] == *pBf, 0); ! 628: if (*pBf == Ild[x_11]) complain(__LINE__); ! 629: if (Ild[x_11] == *pBf) complain(__LINE__); ! 630: #endif ! 631: iequals(__LINE__, *pBd == Ic[x_0], 0); ! 632: iequals(__LINE__, Ic[x_0] == *pBd, 0); ! 633: if (*pBd == Ic[x_0]) complain(__LINE__); ! 634: if (Ic[x_0] == *pBd) complain(__LINE__); ! 635: #if ANSI ! 636: iequals(__LINE__, *pBd == Isc[x_1], 0); ! 637: iequals(__LINE__, Isc[x_1] == *pBd, 0); ! 638: if (*pBd == Isc[x_1]) complain(__LINE__); ! 639: if (Isc[x_1] == *pBd) complain(__LINE__); ! 640: #endif ! 641: iequals(__LINE__, *pBd == Is[x_2], 0); ! 642: iequals(__LINE__, Is[x_2] == *pBd, 0); ! 643: if (*pBd == Is[x_2]) complain(__LINE__); ! 644: if (Is[x_2] == *pBd) complain(__LINE__); ! 645: iequals(__LINE__, *pBd == Ii[x_3], 0); ! 646: iequals(__LINE__, Ii[x_3] == *pBd, 0); ! 647: if (*pBd == Ii[x_3]) complain(__LINE__); ! 648: if (Ii[x_3] == *pBd) complain(__LINE__); ! 649: iequals(__LINE__, *pBd == Iuc[x_4], 0); ! 650: iequals(__LINE__, Iuc[x_4] == *pBd, 0); ! 651: if (*pBd == Iuc[x_4]) complain(__LINE__); ! 652: if (Iuc[x_4] == *pBd) complain(__LINE__); ! 653: iequals(__LINE__, *pBd == Ius[x_5], 0); ! 654: iequals(__LINE__, Ius[x_5] == *pBd, 0); ! 655: if (*pBd == Ius[x_5]) complain(__LINE__); ! 656: if (Ius[x_5] == *pBd) complain(__LINE__); ! 657: iequals(__LINE__, *pBd == Iui[x_6], 0); ! 658: iequals(__LINE__, Iui[x_6] == *pBd, 0); ! 659: if (*pBd == Iui[x_6]) complain(__LINE__); ! 660: if (Iui[x_6] == *pBd) complain(__LINE__); ! 661: iequals(__LINE__, *pBd == Il[x_7], 0); ! 662: iequals(__LINE__, Il[x_7] == *pBd, 0); ! 663: if (*pBd == Il[x_7]) complain(__LINE__); ! 664: if (Il[x_7] == *pBd) complain(__LINE__); ! 665: iequals(__LINE__, *pBd == Iul[x_8], 0); ! 666: iequals(__LINE__, Iul[x_8] == *pBd, 0); ! 667: if (*pBd == Iul[x_8]) complain(__LINE__); ! 668: if (Iul[x_8] == *pBd) complain(__LINE__); ! 669: iequals(__LINE__, *pBd == If[x_9], 0); ! 670: iequals(__LINE__, If[x_9] == *pBd, 0); ! 671: if (*pBd == If[x_9]) complain(__LINE__); ! 672: if (If[x_9] == *pBd) complain(__LINE__); ! 673: iequals(__LINE__, *pBd == Id[x_10], 1); ! 674: iequals(__LINE__, Id[x_10] == *pBd, 1); ! 675: if (*pBd == Id[x_10]); else complain(__LINE__); ! 676: if (Id[x_10] == *pBd); else complain(__LINE__); ! 677: #if ANSI ! 678: iequals(__LINE__, *pBd == Ild[x_11], 0); ! 679: iequals(__LINE__, Ild[x_11] == *pBd, 0); ! 680: if (*pBd == Ild[x_11]) complain(__LINE__); ! 681: if (Ild[x_11] == *pBd) complain(__LINE__); ! 682: #endif ! 683: #if ANSI ! 684: iequals(__LINE__, *pBld == Ic[x_0], 0); ! 685: iequals(__LINE__, Ic[x_0] == *pBld, 0); ! 686: if (*pBld == Ic[x_0]) complain(__LINE__); ! 687: if (Ic[x_0] == *pBld) complain(__LINE__); ! 688: #endif ! 689: #if ANSI ! 690: iequals(__LINE__, *pBld == Isc[x_1], 0); ! 691: iequals(__LINE__, Isc[x_1] == *pBld, 0); ! 692: if (*pBld == Isc[x_1]) complain(__LINE__); ! 693: if (Isc[x_1] == *pBld) complain(__LINE__); ! 694: #endif ! 695: #if ANSI ! 696: iequals(__LINE__, *pBld == Is[x_2], 0); ! 697: iequals(__LINE__, Is[x_2] == *pBld, 0); ! 698: if (*pBld == Is[x_2]) complain(__LINE__); ! 699: if (Is[x_2] == *pBld) complain(__LINE__); ! 700: #endif ! 701: #if ANSI ! 702: iequals(__LINE__, *pBld == Ii[x_3], 0); ! 703: iequals(__LINE__, Ii[x_3] == *pBld, 0); ! 704: if (*pBld == Ii[x_3]) complain(__LINE__); ! 705: if (Ii[x_3] == *pBld) complain(__LINE__); ! 706: #endif ! 707: #if ANSI ! 708: iequals(__LINE__, *pBld == Iuc[x_4], 0); ! 709: iequals(__LINE__, Iuc[x_4] == *pBld, 0); ! 710: if (*pBld == Iuc[x_4]) complain(__LINE__); ! 711: if (Iuc[x_4] == *pBld) complain(__LINE__); ! 712: #endif ! 713: #if ANSI ! 714: iequals(__LINE__, *pBld == Ius[x_5], 0); ! 715: iequals(__LINE__, Ius[x_5] == *pBld, 0); ! 716: if (*pBld == Ius[x_5]) complain(__LINE__); ! 717: if (Ius[x_5] == *pBld) complain(__LINE__); ! 718: #endif ! 719: #if ANSI ! 720: iequals(__LINE__, *pBld == Iui[x_6], 0); ! 721: iequals(__LINE__, Iui[x_6] == *pBld, 0); ! 722: if (*pBld == Iui[x_6]) complain(__LINE__); ! 723: if (Iui[x_6] == *pBld) complain(__LINE__); ! 724: #endif ! 725: #if ANSI ! 726: iequals(__LINE__, *pBld == Il[x_7], 0); ! 727: iequals(__LINE__, Il[x_7] == *pBld, 0); ! 728: if (*pBld == Il[x_7]) complain(__LINE__); ! 729: if (Il[x_7] == *pBld) complain(__LINE__); ! 730: #endif ! 731: #if ANSI ! 732: iequals(__LINE__, *pBld == Iul[x_8], 0); ! 733: iequals(__LINE__, Iul[x_8] == *pBld, 0); ! 734: if (*pBld == Iul[x_8]) complain(__LINE__); ! 735: if (Iul[x_8] == *pBld) complain(__LINE__); ! 736: #endif ! 737: #if ANSI ! 738: iequals(__LINE__, *pBld == If[x_9], 0); ! 739: iequals(__LINE__, If[x_9] == *pBld, 0); ! 740: if (*pBld == If[x_9]) complain(__LINE__); ! 741: if (If[x_9] == *pBld) complain(__LINE__); ! 742: #endif ! 743: #if ANSI ! 744: iequals(__LINE__, *pBld == Id[x_10], 0); ! 745: iequals(__LINE__, Id[x_10] == *pBld, 0); ! 746: if (*pBld == Id[x_10]) complain(__LINE__); ! 747: if (Id[x_10] == *pBld) complain(__LINE__); ! 748: #endif ! 749: #if ANSI ! 750: iequals(__LINE__, *pBld == Ild[x_11], 1); ! 751: iequals(__LINE__, Ild[x_11] == *pBld, 1); ! 752: if (*pBld == Ild[x_11]); else complain(__LINE__); ! 753: if (Ild[x_11] == *pBld); else complain(__LINE__); ! 754: #endif ! 755: }} ! 756: return report(Filename); ! 757: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.