![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to diveq1.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 diveq1.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 Ac = 7; ! 16: #if ANSI ! 17: auto SCHAR Asc = 8; ! 18: #endif ! 19: auto SHORT As = 9; ! 20: auto INT Ai = 10; ! 21: auto UCHAR Auc = 11; ! 22: auto USHORT Aus = 12; ! 23: auto UINT Aui = 13; ! 24: auto LONG Al = 14; ! 25: auto ULONG Aul = 15; ! 26: auto FLOAT Af = 16; ! 27: auto DOUBLE Ad = 17; ! 28: #if ANSI ! 29: auto LDOUBLE Ald = 18; ! 30: #endif ! 31: { ! 32: static int x[12] = {0,1,2,3,4,5,6,7,8,9,10,11}; ! 33: auto CHAR Pc[12]; ! 34: int x_0 = 0; ! 35: #if ANSI ! 36: auto SCHAR Psc[12]; ! 37: int x_1 = 1; ! 38: #endif ! 39: auto SHORT Ps[12]; ! 40: int x_2 = 2; ! 41: auto INT Pi[12]; ! 42: int x_3 = 3; ! 43: auto UCHAR Puc[12]; ! 44: int x_4 = 4; ! 45: auto USHORT Pus[12]; ! 46: int x_5 = 5; ! 47: auto UINT Pui[12]; ! 48: int x_6 = 6; ! 49: auto LONG Pl[12]; ! 50: int x_7 = 7; ! 51: auto ULONG Pul[12]; ! 52: int x_8 = 8; ! 53: auto FLOAT Pf[12]; ! 54: int x_9 = 9; ! 55: auto DOUBLE Pd[12]; ! 56: int x_10 = 10; ! 57: #if ANSI ! 58: auto LDOUBLE Pld[12]; ! 59: int x_11 = 11; ! 60: #endif ! 61: Pc[x[x_0]] = 7; ! 62: #if ANSI ! 63: Psc[x[x_1]] = 8; ! 64: #endif ! 65: Ps[x[x_2]] = 9; ! 66: Pi[x[x_3]] = 10; ! 67: Puc[x[x_4]] = 11; ! 68: Pus[x[x_5]] = 12; ! 69: Pui[x[x_6]] = 13; ! 70: Pl[x[x_7]] = 14; ! 71: Pul[x[x_8]] = 15; ! 72: Pf[x[x_9]] = 16; ! 73: Pd[x[x_10]] = 17; ! 74: #if ANSI ! 75: Pld[x[x_11]] = 18; ! 76: #endif ! 77: { ! 78: int true = 1, false = 0; ! 79: Filename = " auto scalar auto arrarr diveq1 "; ! 80: Ac = 14; ! 81: Pc[x[x_0]] = 7;Ac /= Pc[x[x_0]]; ! 82: iequals(__LINE__, Ac, (CHAR)2); ! 83: Ac = 14; ! 84: iequals(__LINE__, Ac /= Pc[x[x_0]], (CHAR)2); ! 85: Pc[x[x_0]] = 14; ! 86: Ac = 7;Pc[x[x_0]] /= Ac; ! 87: iequals(__LINE__, Pc[x[x_0]], (CHAR)2); ! 88: Pc[x[x_0]] = 14; ! 89: iequals(__LINE__, Pc[x[x_0]] /= Ac, (CHAR)2); ! 90: #if ANSI ! 91: Ac = 16; ! 92: Psc[x[x_1]] = 8;Ac /= Psc[x[x_1]]; ! 93: iequals(__LINE__, Ac, (CHAR)2); ! 94: Ac = 16; ! 95: iequals(__LINE__, Ac /= Psc[x[x_1]], (CHAR)2); ! 96: Psc[x[x_1]] = 14; ! 97: Ac = 7;Psc[x[x_1]] /= Ac; ! 98: iequals(__LINE__, Psc[x[x_1]], (SCHAR)2); ! 99: Psc[x[x_1]] = 14; ! 100: iequals(__LINE__, Psc[x[x_1]] /= Ac, (SCHAR)2); ! 101: #endif ! 102: Ac = 18; ! 103: Ps[x[x_2]] = 9;Ac /= Ps[x[x_2]]; ! 104: iequals(__LINE__, Ac, (CHAR)2); ! 105: Ac = 18; ! 106: iequals(__LINE__, Ac /= Ps[x[x_2]], (CHAR)2); ! 107: Ps[x[x_2]] = 14; ! 108: Ac = 7;Ps[x[x_2]] /= Ac; ! 109: iequals(__LINE__, Ps[x[x_2]], (SHORT)2); ! 110: Ps[x[x_2]] = 14; ! 111: iequals(__LINE__, Ps[x[x_2]] /= Ac, (SHORT)2); ! 112: Ac = 20; ! 113: Pi[x[x_3]] = 10;Ac /= Pi[x[x_3]]; ! 114: iequals(__LINE__, Ac, (CHAR)2); ! 115: Ac = 20; ! 116: iequals(__LINE__, Ac /= Pi[x[x_3]], (CHAR)2); ! 117: Pi[x[x_3]] = 14; ! 118: Ac = 7;Pi[x[x_3]] /= Ac; ! 119: iequals(__LINE__, Pi[x[x_3]], (INT)2); ! 120: Pi[x[x_3]] = 14; ! 121: iequals(__LINE__, Pi[x[x_3]] /= Ac, (INT)2); ! 122: Ac = 22; ! 123: Puc[x[x_4]] = 11;Ac /= Puc[x[x_4]]; ! 124: iequals(__LINE__, Ac, (CHAR)2); ! 125: Ac = 22; ! 126: iequals(__LINE__, Ac /= Puc[x[x_4]], (CHAR)2); ! 127: Puc[x[x_4]] = 14; ! 128: Ac = 7;Puc[x[x_4]] /= Ac; ! 129: iequals(__LINE__, Puc[x[x_4]], (UCHAR)2); ! 130: Puc[x[x_4]] = 14; ! 131: iequals(__LINE__, Puc[x[x_4]] /= Ac, (UCHAR)2); ! 132: Ac = 24; ! 133: Pus[x[x_5]] = 12;Ac /= Pus[x[x_5]]; ! 134: iequals(__LINE__, Ac, (CHAR)2); ! 135: Ac = 24; ! 136: iequals(__LINE__, Ac /= Pus[x[x_5]], (CHAR)2); ! 137: Pus[x[x_5]] = 14; ! 138: Ac = 7;Pus[x[x_5]] /= Ac; ! 139: iequals(__LINE__, Pus[x[x_5]], (USHORT)2); ! 140: Pus[x[x_5]] = 14; ! 141: iequals(__LINE__, Pus[x[x_5]] /= Ac, (USHORT)2); ! 142: Ac = 26; ! 143: Pui[x[x_6]] = 13;Ac /= Pui[x[x_6]]; ! 144: iequals(__LINE__, Ac, (CHAR)2); ! 145: Ac = 26; ! 146: iequals(__LINE__, Ac /= Pui[x[x_6]], (CHAR)2); ! 147: Pui[x[x_6]] = 14; ! 148: Ac = 7;Pui[x[x_6]] /= Ac; ! 149: iequals(__LINE__, Pui[x[x_6]], (UINT)2); ! 150: Pui[x[x_6]] = 14; ! 151: iequals(__LINE__, Pui[x[x_6]] /= Ac, (UINT)2); ! 152: Ac = 28; ! 153: Pl[x[x_7]] = 14;Ac /= Pl[x[x_7]]; ! 154: iequals(__LINE__, Ac, (CHAR)2); ! 155: Ac = 28; ! 156: iequals(__LINE__, Ac /= Pl[x[x_7]], (CHAR)2); ! 157: Pl[x[x_7]] = 14; ! 158: Ac = 7;Pl[x[x_7]] /= Ac; ! 159: lequals(__LINE__, Pl[x[x_7]], (LONG)2L); ! 160: Pl[x[x_7]] = 14; ! 161: lequals(__LINE__, Pl[x[x_7]] /= Ac, (LONG)2L); ! 162: Ac = 30; ! 163: Pul[x[x_8]] = 15;Ac /= Pul[x[x_8]]; ! 164: iequals(__LINE__, Ac, (CHAR)2); ! 165: Ac = 30; ! 166: iequals(__LINE__, Ac /= Pul[x[x_8]], (CHAR)2); ! 167: Pul[x[x_8]] = 14; ! 168: Ac = 7;Pul[x[x_8]] /= Ac; ! 169: lequals(__LINE__, Pul[x[x_8]], (ULONG)2L); ! 170: Pul[x[x_8]] = 14; ! 171: lequals(__LINE__, Pul[x[x_8]] /= Ac, (ULONG)2L); ! 172: Ac = 32; ! 173: Pf[x[x_9]] = 16;Ac /= Pf[x[x_9]]; ! 174: iequals(__LINE__, Ac, (CHAR)2); ! 175: Ac = 32; ! 176: iequals(__LINE__, Ac /= Pf[x[x_9]], (CHAR)2); ! 177: Pf[x[x_9]] = 14; ! 178: Ac = 7;Pf[x[x_9]] /= Ac; ! 179: dequals(__LINE__, Pf[x[x_9]], (FLOAT)2.); ! 180: Pf[x[x_9]] = 14; ! 181: dequals(__LINE__, Pf[x[x_9]] /= Ac, (FLOAT)2.); ! 182: Ac = 34; ! 183: Pd[x[x_10]] = 17;Ac /= Pd[x[x_10]]; ! 184: iequals(__LINE__, Ac, (CHAR)2); ! 185: Ac = 34; ! 186: iequals(__LINE__, Ac /= Pd[x[x_10]], (CHAR)2); ! 187: Pd[x[x_10]] = 14; ! 188: Ac = 7;Pd[x[x_10]] /= Ac; ! 189: dequals(__LINE__, Pd[x[x_10]], (DOUBLE)2.); ! 190: Pd[x[x_10]] = 14; ! 191: dequals(__LINE__, Pd[x[x_10]] /= Ac, (DOUBLE)2.); ! 192: #if ANSI ! 193: Ac = 36; ! 194: Pld[x[x_11]] = 18;Ac /= Pld[x[x_11]]; ! 195: iequals(__LINE__, Ac, (CHAR)2); ! 196: Ac = 36; ! 197: iequals(__LINE__, Ac /= Pld[x[x_11]], (CHAR)2); ! 198: Pld[x[x_11]] = 14; ! 199: Ac = 7;Pld[x[x_11]] /= Ac; ! 200: ldequals(__LINE__, Pld[x[x_11]], (LDOUBLE)2.L); ! 201: Pld[x[x_11]] = 14; ! 202: ldequals(__LINE__, Pld[x[x_11]] /= Ac, (LDOUBLE)2.L); ! 203: #endif ! 204: #if ANSI ! 205: Asc = 14; ! 206: Pc[x[x_0]] = 7;Asc /= Pc[x[x_0]]; ! 207: iequals(__LINE__, Asc, (SCHAR)2); ! 208: Asc = 14; ! 209: iequals(__LINE__, Asc /= Pc[x[x_0]], (SCHAR)2); ! 210: Pc[x[x_0]] = 16; ! 211: Asc = 8;Pc[x[x_0]] /= Asc; ! 212: iequals(__LINE__, Pc[x[x_0]], (CHAR)2); ! 213: Pc[x[x_0]] = 16; ! 214: iequals(__LINE__, Pc[x[x_0]] /= Asc, (CHAR)2); ! 215: #endif ! 216: #if ANSI ! 217: Asc = 16; ! 218: Psc[x[x_1]] = 8;Asc /= Psc[x[x_1]]; ! 219: iequals(__LINE__, Asc, (SCHAR)2); ! 220: Asc = 16; ! 221: iequals(__LINE__, Asc /= Psc[x[x_1]], (SCHAR)2); ! 222: Psc[x[x_1]] = 16; ! 223: Asc = 8;Psc[x[x_1]] /= Asc; ! 224: iequals(__LINE__, Psc[x[x_1]], (SCHAR)2); ! 225: Psc[x[x_1]] = 16; ! 226: iequals(__LINE__, Psc[x[x_1]] /= Asc, (SCHAR)2); ! 227: #endif ! 228: #if ANSI ! 229: Asc = 18; ! 230: Ps[x[x_2]] = 9;Asc /= Ps[x[x_2]]; ! 231: iequals(__LINE__, Asc, (SCHAR)2); ! 232: Asc = 18; ! 233: iequals(__LINE__, Asc /= Ps[x[x_2]], (SCHAR)2); ! 234: Ps[x[x_2]] = 16; ! 235: Asc = 8;Ps[x[x_2]] /= Asc; ! 236: iequals(__LINE__, Ps[x[x_2]], (SHORT)2); ! 237: Ps[x[x_2]] = 16; ! 238: iequals(__LINE__, Ps[x[x_2]] /= Asc, (SHORT)2); ! 239: #endif ! 240: #if ANSI ! 241: Asc = 20; ! 242: Pi[x[x_3]] = 10;Asc /= Pi[x[x_3]]; ! 243: iequals(__LINE__, Asc, (SCHAR)2); ! 244: Asc = 20; ! 245: iequals(__LINE__, Asc /= Pi[x[x_3]], (SCHAR)2); ! 246: Pi[x[x_3]] = 16; ! 247: Asc = 8;Pi[x[x_3]] /= Asc; ! 248: iequals(__LINE__, Pi[x[x_3]], (INT)2); ! 249: Pi[x[x_3]] = 16; ! 250: iequals(__LINE__, Pi[x[x_3]] /= Asc, (INT)2); ! 251: #endif ! 252: #if ANSI ! 253: Asc = 22; ! 254: Puc[x[x_4]] = 11;Asc /= Puc[x[x_4]]; ! 255: iequals(__LINE__, Asc, (SCHAR)2); ! 256: Asc = 22; ! 257: iequals(__LINE__, Asc /= Puc[x[x_4]], (SCHAR)2); ! 258: Puc[x[x_4]] = 16; ! 259: Asc = 8;Puc[x[x_4]] /= Asc; ! 260: iequals(__LINE__, Puc[x[x_4]], (UCHAR)2); ! 261: Puc[x[x_4]] = 16; ! 262: iequals(__LINE__, Puc[x[x_4]] /= Asc, (UCHAR)2); ! 263: #endif ! 264: #if ANSI ! 265: Asc = 24; ! 266: Pus[x[x_5]] = 12;Asc /= Pus[x[x_5]]; ! 267: iequals(__LINE__, Asc, (SCHAR)2); ! 268: Asc = 24; ! 269: iequals(__LINE__, Asc /= Pus[x[x_5]], (SCHAR)2); ! 270: Pus[x[x_5]] = 16; ! 271: Asc = 8;Pus[x[x_5]] /= Asc; ! 272: iequals(__LINE__, Pus[x[x_5]], (USHORT)2); ! 273: Pus[x[x_5]] = 16; ! 274: iequals(__LINE__, Pus[x[x_5]] /= Asc, (USHORT)2); ! 275: #endif ! 276: #if ANSI ! 277: Asc = 26; ! 278: Pui[x[x_6]] = 13;Asc /= Pui[x[x_6]]; ! 279: iequals(__LINE__, Asc, (SCHAR)2); ! 280: Asc = 26; ! 281: iequals(__LINE__, Asc /= Pui[x[x_6]], (SCHAR)2); ! 282: Pui[x[x_6]] = 16; ! 283: Asc = 8;Pui[x[x_6]] /= Asc; ! 284: iequals(__LINE__, Pui[x[x_6]], (UINT)2); ! 285: Pui[x[x_6]] = 16; ! 286: iequals(__LINE__, Pui[x[x_6]] /= Asc, (UINT)2); ! 287: #endif ! 288: #if ANSI ! 289: Asc = 28; ! 290: Pl[x[x_7]] = 14;Asc /= Pl[x[x_7]]; ! 291: iequals(__LINE__, Asc, (SCHAR)2); ! 292: Asc = 28; ! 293: iequals(__LINE__, Asc /= Pl[x[x_7]], (SCHAR)2); ! 294: Pl[x[x_7]] = 16; ! 295: Asc = 8;Pl[x[x_7]] /= Asc; ! 296: lequals(__LINE__, Pl[x[x_7]], (LONG)2L); ! 297: Pl[x[x_7]] = 16; ! 298: lequals(__LINE__, Pl[x[x_7]] /= Asc, (LONG)2L); ! 299: #endif ! 300: #if ANSI ! 301: Asc = 30; ! 302: Pul[x[x_8]] = 15;Asc /= Pul[x[x_8]]; ! 303: iequals(__LINE__, Asc, (SCHAR)2); ! 304: Asc = 30; ! 305: iequals(__LINE__, Asc /= Pul[x[x_8]], (SCHAR)2); ! 306: Pul[x[x_8]] = 16; ! 307: Asc = 8;Pul[x[x_8]] /= Asc; ! 308: lequals(__LINE__, Pul[x[x_8]], (ULONG)2L); ! 309: Pul[x[x_8]] = 16; ! 310: lequals(__LINE__, Pul[x[x_8]] /= Asc, (ULONG)2L); ! 311: #endif ! 312: #if ANSI ! 313: Asc = 32; ! 314: Pf[x[x_9]] = 16;Asc /= Pf[x[x_9]]; ! 315: iequals(__LINE__, Asc, (SCHAR)2); ! 316: Asc = 32; ! 317: iequals(__LINE__, Asc /= Pf[x[x_9]], (SCHAR)2); ! 318: Pf[x[x_9]] = 16; ! 319: Asc = 8;Pf[x[x_9]] /= Asc; ! 320: dequals(__LINE__, Pf[x[x_9]], (FLOAT)2.); ! 321: Pf[x[x_9]] = 16; ! 322: dequals(__LINE__, Pf[x[x_9]] /= Asc, (FLOAT)2.); ! 323: #endif ! 324: #if ANSI ! 325: Asc = 34; ! 326: Pd[x[x_10]] = 17;Asc /= Pd[x[x_10]]; ! 327: iequals(__LINE__, Asc, (SCHAR)2); ! 328: Asc = 34; ! 329: iequals(__LINE__, Asc /= Pd[x[x_10]], (SCHAR)2); ! 330: Pd[x[x_10]] = 16; ! 331: Asc = 8;Pd[x[x_10]] /= Asc; ! 332: dequals(__LINE__, Pd[x[x_10]], (DOUBLE)2.); ! 333: Pd[x[x_10]] = 16; ! 334: dequals(__LINE__, Pd[x[x_10]] /= Asc, (DOUBLE)2.); ! 335: #endif ! 336: #if ANSI ! 337: Asc = 36; ! 338: Pld[x[x_11]] = 18;Asc /= Pld[x[x_11]]; ! 339: iequals(__LINE__, Asc, (SCHAR)2); ! 340: Asc = 36; ! 341: iequals(__LINE__, Asc /= Pld[x[x_11]], (SCHAR)2); ! 342: Pld[x[x_11]] = 16; ! 343: Asc = 8;Pld[x[x_11]] /= Asc; ! 344: ldequals(__LINE__, Pld[x[x_11]], (LDOUBLE)2.L); ! 345: Pld[x[x_11]] = 16; ! 346: ldequals(__LINE__, Pld[x[x_11]] /= Asc, (LDOUBLE)2.L); ! 347: #endif ! 348: As = 14; ! 349: Pc[x[x_0]] = 7;As /= Pc[x[x_0]]; ! 350: iequals(__LINE__, As, (SHORT)2); ! 351: As = 14; ! 352: iequals(__LINE__, As /= Pc[x[x_0]], (SHORT)2); ! 353: Pc[x[x_0]] = 18; ! 354: As = 9;Pc[x[x_0]] /= As; ! 355: iequals(__LINE__, Pc[x[x_0]], (CHAR)2); ! 356: Pc[x[x_0]] = 18; ! 357: iequals(__LINE__, Pc[x[x_0]] /= As, (CHAR)2); ! 358: #if ANSI ! 359: As = 16; ! 360: Psc[x[x_1]] = 8;As /= Psc[x[x_1]]; ! 361: iequals(__LINE__, As, (SHORT)2); ! 362: As = 16; ! 363: iequals(__LINE__, As /= Psc[x[x_1]], (SHORT)2); ! 364: Psc[x[x_1]] = 18; ! 365: As = 9;Psc[x[x_1]] /= As; ! 366: iequals(__LINE__, Psc[x[x_1]], (SCHAR)2); ! 367: Psc[x[x_1]] = 18; ! 368: iequals(__LINE__, Psc[x[x_1]] /= As, (SCHAR)2); ! 369: #endif ! 370: As = 18; ! 371: Ps[x[x_2]] = 9;As /= Ps[x[x_2]]; ! 372: iequals(__LINE__, As, (SHORT)2); ! 373: As = 18; ! 374: iequals(__LINE__, As /= Ps[x[x_2]], (SHORT)2); ! 375: Ps[x[x_2]] = 18; ! 376: As = 9;Ps[x[x_2]] /= As; ! 377: iequals(__LINE__, Ps[x[x_2]], (SHORT)2); ! 378: Ps[x[x_2]] = 18; ! 379: iequals(__LINE__, Ps[x[x_2]] /= As, (SHORT)2); ! 380: As = 20; ! 381: Pi[x[x_3]] = 10;As /= Pi[x[x_3]]; ! 382: iequals(__LINE__, As, (SHORT)2); ! 383: As = 20; ! 384: iequals(__LINE__, As /= Pi[x[x_3]], (SHORT)2); ! 385: Pi[x[x_3]] = 18; ! 386: As = 9;Pi[x[x_3]] /= As; ! 387: iequals(__LINE__, Pi[x[x_3]], (INT)2); ! 388: Pi[x[x_3]] = 18; ! 389: iequals(__LINE__, Pi[x[x_3]] /= As, (INT)2); ! 390: As = 22; ! 391: Puc[x[x_4]] = 11;As /= Puc[x[x_4]]; ! 392: iequals(__LINE__, As, (SHORT)2); ! 393: As = 22; ! 394: iequals(__LINE__, As /= Puc[x[x_4]], (SHORT)2); ! 395: Puc[x[x_4]] = 18; ! 396: As = 9;Puc[x[x_4]] /= As; ! 397: iequals(__LINE__, Puc[x[x_4]], (UCHAR)2); ! 398: Puc[x[x_4]] = 18; ! 399: iequals(__LINE__, Puc[x[x_4]] /= As, (UCHAR)2); ! 400: As = 24; ! 401: Pus[x[x_5]] = 12;As /= Pus[x[x_5]]; ! 402: iequals(__LINE__, As, (SHORT)2); ! 403: As = 24; ! 404: iequals(__LINE__, As /= Pus[x[x_5]], (SHORT)2); ! 405: Pus[x[x_5]] = 18; ! 406: As = 9;Pus[x[x_5]] /= As; ! 407: iequals(__LINE__, Pus[x[x_5]], (USHORT)2); ! 408: Pus[x[x_5]] = 18; ! 409: iequals(__LINE__, Pus[x[x_5]] /= As, (USHORT)2); ! 410: }} ! 411: return report(Filename); ! 412: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.