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