git.sur5r.net Git - cc65/blob - test/val/cq714b.c

   1 /*
   2   !!DESCRIPTION!! C-Manual Chapter 9: Statements
   3   !!ORIGIN!!      LCC 4.1 Testsuite
   4   !!LICENCE!!     own, freely distributeable for non-profit. read CPYRIGHT.LCC
   5 */
   6
   7 struct defs {
   8      int cbits;          /* No. of bits per char           */
   9      int ibits;          /*                 int            */
  10      int sbits;          /*                 short          */
  11      int lbits;          /*                 long           */
  12      int ubits;          /*                 unsigned       */
  13      int fbits;          /*                 float          */
  14      int dbits;          /*                 double         */
  15      #ifndef NO_FLOATS
  16         float fprec;        /* Smallest number that can be    */
  17         float dprec;        /* significantly added to 1.      */
  18      #endif
  19      int flgs;           /* Print return codes, by section */
  20      int flgm;           /* Announce machine dependencies  */
  21      int flgd;           /* give explicit diagnostics      */
  22      int flgl;           /* Report local return codes.     */
  23      int rrc;            /* recent return code             */
  24      int crc;            /* Cumulative return code         */
  25      char rfs[8];        /* Return from section            */
  26 };
  27
  28      int lbits;          /*                 long           */
  29      int ubits;          /*                 unsigned       */
  30      int fbits;          /*                 float          */
  31      int dbits;          /*                 double         */
  32      #ifndef NO_FLOATS
  33         float fprec;        /* Smallest number that can be    */
  34         float dprec;        /* significantly added to 1.      */
  35      #endif
  36      int flgs;           /* Print return codes, by section */
  37      int flgm;           /* Announce machine dependencies  */
  38      int flgd;           /* give explicit diagnostics      */
  39      int flgl;           /* Report local return codes.     */
  40      int rrc;            /* recent return code             */
  41      int crc;            /* Cumulative return code         */
  42      char rfs[8];        /* Return from section            */
  43
  44 #ifndef NO_OLD_FUNC_DECL
  45 s714(pd0)          /*  7.14  Assignment operators       */
  46 struct defs *pd0;
  47 {
  48 #else
  49 int s714(struct defs *pd0){
  50 #endif
  51    static char f[] = "Local error %d.\n";
  52    static char s714er[] = "s714,er%d\n";
  53    static char qs714[8] = "s714   ";
  54    register int prlc, lrc;
  55    int rc;
  56    char cl, cr;
  57    short sl, sr;
  58    int il, ir;
  59    long ll, lr;
  60    unsigned ul, ur;
  61    #ifndef NO_FLOATS
  62    float fl, fr;
  63    double dl, dr;
  64    #else
  65    signed fl, fr;
  66    signed dl, dr;
  67    #endif
  68    char *ps, *pt;
  69    ps = qs714;
  70    pt = pd0->rfs;
  71    rc = 0;
  72    lrc = 0;
  73    prlc = pd0->flgl;
  74    while (*pt++ = *ps++);
  75
  76         /* This section tests the assignment operators.
  77
  78         It is an exhaustive test of all assignment statements
  79         of the form:
  80
  81                 vl op vr
  82
  83         where vl and vr are variables from the set
  84         {char,short,int,long,unsigned,float,double} and op is
  85         one of the assignment operators. There are 395 such
  86         statements.
  87
  88         The initial values for the variables have been chosen
  89         so that both the initial values and the results will
  90         "fit" in just about any implementation, and that the re-
  91         sults will be such that they test for the proper form-
  92         ation of composite operators, rather than checking for
  93         the valid operation of those operators' components.
  94         For example, in checking >>=, we want to verify that
  95         a right shift and a move take place, rather than
  96         whether or not there may be some peculiarities about
  97         the right shift. Such tests have been made previously,
  98         and to repeat them here would be to throw out a red
  99         herring.
 100
 101         The table below lists the operators, assignment targets,
 102         initial values for left and right operands, and the
 103         expected values of the results.
 104
 105           =  +=  -=  *=  /=  %=  >>=  <<=  &=  ^=  |=
 106 char      2   7   3  10   2   1   1    20   8   6  14
 107 short     2   7   3  10   2   1   1    20   8   6  14
 108 int       2   7   3  10   2   1   1    20   8   6  14
 109 long      2   7   3  10   2   1   1    20   8   6  14
 110 unsigned  2   7   3  10   2   1   1    20   8   6  14
 111 float     2   7   3  10 2.5 |             |
 112 double    2   7   3  10 2.5 |             |
 113                             |             |
 114 initial         (5,2)       |    (5,2)    |  (12,10)
 115
 116         The following machine-generated program reflects the
 117         tests described in the table.
 118                                                                 */
 119
 120    il = 5; cr = 2;
 121    il %= cr;
 122    if(il != 1){
 123      lrc = 256;
 124      if(prlc) printf(f,lrc);
 125    }
 126    il = 5; sr = 2;
 127    il %= sr;
 128    if(il != 1){
 129      lrc = 257;
 130      if(prlc) printf(f,lrc);
 131    }
 132    il = 5; ir = 2;
 133    il %= ir;
 134    if(il != 1){
 135      lrc = 258;
 136      if(prlc) printf(f,lrc);
 137    }
 138    il = 5; lr = 2;
 139    il %= lr;
 140    if(il != 1){
 141      lrc = 259;
 142      if(prlc) printf(f,lrc);
 143    }
 144    il = 5; ur = 2;
 145    il %= ur;
 146    if(il != 1){
 147      lrc = 260;
 148      if(prlc) printf(f,lrc);
 149    }
 150    ll = 5; cr = 2;
 151    ll %= cr;
 152    if(ll != 1){
 153      lrc = 261;
 154      if(prlc) printf(f,lrc);
 155    }
 156    ll = 5; sr = 2;
 157    ll %= sr;
 158    if(ll != 1){
 159      lrc = 262;
 160      if(prlc) printf(f,lrc);
 161    }
 162    ll = 5; ir = 2;
 163    ll %= ir;
 164    if(ll != 1){
 165      lrc = 263;
 166      if(prlc) printf(f,lrc);
 167    }
 168    ll = 5; lr = 2;
 169    ll %= lr;
 170    if(ll != 1){
 171      lrc = 264;
 172      if(prlc) printf(f,lrc);
 173    }
 174    ll = 5; ur = 2;
 175    ll %= ur;
 176    if(ll != 1){
 177      lrc = 265;
 178      if(prlc) printf(f,lrc);
 179    }
 180    ul = 5; cr = 2;
 181    ul %= cr;
 182    if(ul != 1){
 183      lrc = 266;
 184      if(prlc) printf(f,lrc);
 185    }
 186    ul = 5; sr = 2;
 187    ul %= sr;
 188    if(ul != 1){
 189      lrc = 267;
 190      if(prlc) printf(f,lrc);
 191    }
 192    ul = 5; ir = 2;
 193    ul %= ir;
 194    if(ul != 1){
 195      lrc = 268;
 196      if(prlc) printf(f,lrc);
 197    }
 198    ul = 5; lr = 2;
 199    ul %= lr;
 200    if(ul != 1){
 201      lrc = 269;
 202      if(prlc) printf(f,lrc);
 203    }
 204    ul = 5; ur = 2;
 205    ul %= ur;
 206    if(ul != 1){
 207      lrc = 270;
 208      if(prlc) printf(f,lrc);
 209    }
 210    cl = 5; cr = 2;
 211    cl >>= cr;
 212    if(cl != 1){
 213      lrc = 271;
 214      if(prlc) printf(f,lrc);
 215    }
 216    cl = 5; sr = 2;
 217    cl >>= sr;
 218    if(cl != 1){
 219      lrc = 272;
 220      if(prlc) printf(f,lrc);
 221    }
 222    cl = 5; ir = 2;
 223    cl >>= ir;
 224    if(cl != 1){
 225      lrc = 273;
 226      if(prlc) printf(f,lrc);
 227    }
 228    cl = 5; lr = 2;
 229    cl >>= lr;
 230    if(cl != 1){
 231      lrc = 274;
 232      if(prlc) printf(f,lrc);
 233    }
 234    cl = 5; ur = 2;
 235    cl >>= ur;
 236    if(cl != 1){
 237      lrc = 275;
 238      if(prlc) printf(f,lrc);
 239    }
 240    sl = 5; cr = 2;
 241    sl >>= cr;
 242    if(sl != 1){
 243      lrc = 276;
 244      if(prlc) printf(f,lrc);
 245    }
 246    sl = 5; sr = 2;
 247    sl >>= sr;
 248    if(sl != 1){
 249      lrc = 277;
 250      if(prlc) printf(f,lrc);
 251    }
 252    sl = 5; ir = 2;
 253    sl >>= ir;
 254    if(sl != 1){
 255      lrc = 278;
 256      if(prlc) printf(f,lrc);
 257    }
 258    sl = 5; lr = 2;
 259    sl >>= lr;
 260    if(sl != 1){
 261      lrc = 279;
 262      if(prlc) printf(f,lrc);
 263    }
 264    sl = 5; ur = 2;
 265    sl >>= ur;
 266    if(sl != 1){
 267      lrc = 280;
 268      if(prlc) printf(f,lrc);
 269    }
 270    il = 5; cr = 2;
 271    il >>= cr;
 272    if(il != 1){
 273      lrc = 281;
 274      if(prlc) printf(f,lrc);
 275    }
 276    il = 5; sr = 2;
 277    il >>= sr;
 278    if(il != 1){
 279      lrc = 282;
 280      if(prlc) printf(f,lrc);
 281    }
 282    il = 5; ir = 2;
 283    il >>= ir;
 284    if(il != 1){
 285      lrc = 283;
 286      if(prlc) printf(f,lrc);
 287    }
 288    il = 5; lr = 2;
 289    il >>= lr;
 290    if(il != 1){
 291      lrc = 284;
 292      if(prlc) printf(f,lrc);
 293    }
 294    il = 5; ur = 2;
 295    il >>= ur;
 296    if(il != 1){
 297      lrc = 285;
 298      if(prlc) printf(f,lrc);
 299    }
 300    ll = 5; cr = 2;
 301    ll >>= cr;
 302    if(ll != 1){
 303      lrc = 286;
 304      if(prlc) printf(f,lrc);
 305    }
 306    ll = 5; sr = 2;
 307    ll >>= sr;
 308    if(ll != 1){
 309      lrc = 287;
 310      if(prlc) printf(f,lrc);
 311    }
 312    ll = 5; ir = 2;
 313    ll >>= ir;
 314    if(ll != 1){
 315      lrc = 288;
 316      if(prlc) printf(f,lrc);
 317    }
 318    ll = 5; lr = 2;
 319    ll >>= lr;
 320    if(ll != 1){
 321      lrc = 289;
 322      if(prlc) printf(f,lrc);
 323    }
 324    ll = 5; ur = 2;
 325    ll >>= ur;
 326    if(ll != 1){
 327      lrc = 290;
 328      if(prlc) printf(f,lrc);
 329    }
 330    ul = 5; cr = 2;
 331    ul >>= cr;
 332    if(ul != 1){
 333      lrc = 291;
 334      if(prlc) printf(f,lrc);
 335    }
 336    ul = 5; sr = 2;
 337    ul >>= sr;
 338    if(ul != 1){
 339      lrc = 292;
 340      if(prlc) printf(f,lrc);
 341    }
 342    ul = 5; ir = 2;
 343    ul >>= ir;
 344    if(ul != 1){
 345      lrc = 293;
 346      if(prlc) printf(f,lrc);
 347    }
 348    ul = 5; lr = 2;
 349    ul >>= lr;
 350    if(ul != 1){
 351      lrc = 294;
 352      if(prlc) printf(f,lrc);
 353    }
 354    ul = 5; ur = 2;
 355    ul >>= ur;
 356    if(ul != 1){
 357      lrc = 295;
 358      if(prlc) printf(f,lrc);
 359    }
 360    cl = 5; cr = 2;
 361    cl <<= cr;
 362    if(cl != 20){
 363      lrc = 296;
 364      if(prlc) printf(f,lrc);
 365    }
 366    cl = 5; sr = 2;
 367    cl <<= sr;
 368    if(cl != 20){
 369      lrc = 297;
 370      if(prlc) printf(f,lrc);
 371    }
 372    cl = 5; ir = 2;
 373    cl <<= ir;
 374    if(cl != 20){
 375      lrc = 298;
 376      if(prlc) printf(f,lrc);
 377    }
 378    cl = 5; lr = 2;
 379    cl <<= lr;
 380    if(cl != 20){
 381      lrc = 299;
 382      if(prlc) printf(f,lrc);
 383    }
 384    cl = 5; ur = 2;
 385    cl <<= ur;
 386    if(cl != 20){
 387      lrc = 300;
 388      if(prlc) printf(f,lrc);
 389    }
 390    sl = 5; cr = 2;
 391    sl <<= cr;
 392    if(sl != 20){
 393      lrc = 301;
 394      if(prlc) printf(f,lrc);
 395    }
 396    sl = 5; sr = 2;
 397    sl <<= sr;
 398    if(sl != 20){
 399      lrc = 302;
 400      if(prlc) printf(f,lrc);
 401    }
 402    sl = 5; ir = 2;
 403    sl <<= ir;
 404    if(sl != 20){
 405      lrc = 303;
 406      if(prlc) printf(f,lrc);
 407    }
 408    sl = 5; lr = 2;
 409    sl <<= lr;
 410    if(sl != 20){
 411      lrc = 304;
 412      if(prlc) printf(f,lrc);
 413    }
 414    sl = 5; ur = 2;
 415    sl <<= ur;
 416    if(sl != 20){
 417      lrc = 305;
 418      if(prlc) printf(f,lrc);
 419    }
 420    il = 5; cr = 2;
 421    il <<= cr;
 422    if(il != 20){
 423      lrc = 306;
 424      if(prlc) printf(f,lrc);
 425    }
 426    il = 5; sr = 2;
 427    il <<= sr;
 428    if(il != 20){
 429      lrc = 307;
 430      if(prlc) printf(f,lrc);
 431    }
 432    il = 5; ir = 2;
 433    il <<= ir;
 434    if(il != 20){
 435      lrc = 308;
 436      if(prlc) printf(f,lrc);
 437    }
 438    il = 5; lr = 2;
 439    il <<= lr;
 440    if(il != 20){
 441      lrc = 309;
 442      if(prlc) printf(f,lrc);
 443    }
 444    il = 5; ur = 2;
 445    il <<= ur;
 446    if(il != 20){
 447      lrc = 310;
 448      if(prlc) printf(f,lrc);
 449    }
 450    ll = 5; cr = 2;
 451    ll <<= cr;
 452    if(ll != 20){
 453      lrc = 311;
 454      if(prlc) printf(f,lrc);
 455    }
 456    ll = 5; sr = 2;
 457    ll <<= sr;
 458    if(ll != 20){
 459      lrc = 312;
 460      if(prlc) printf(f,lrc);
 461    }
 462    ll = 5; ir = 2;
 463    ll <<= ir;
 464    if(ll != 20){
 465      lrc = 313;
 466      if(prlc) printf(f,lrc);
 467    }
 468    ll = 5; lr = 2;
 469    ll <<= lr;
 470    if(ll != 20){
 471      lrc = 314;
 472      if(prlc) printf(f,lrc);
 473    }
 474    ll = 5; ur = 2;
 475    ll <<= ur;
 476    if(ll != 20){
 477      lrc = 315;
 478      if(prlc) printf(f,lrc);
 479    }
 480    ul = 5; cr = 2;
 481    ul <<= cr;
 482    if(ul != 20){
 483      lrc = 316;
 484      if(prlc) printf(f,lrc);
 485    }
 486    ul = 5; sr = 2;
 487    ul <<= sr;
 488    if(ul != 20){
 489      lrc = 317;
 490      if(prlc) printf(f,lrc);
 491    }
 492    ul = 5; ir = 2;
 493    ul <<= ir;
 494    if(ul != 20){
 495      lrc = 318;
 496      if(prlc) printf(f,lrc);
 497    }
 498    ul = 5; lr = 2;
 499    ul <<= lr;
 500    if(ul != 20){
 501      lrc = 319;
 502      if(prlc) printf(f,lrc);
 503    }
 504    ul = 5; ur = 2;
 505    ul <<= ur;
 506    if(ul != 20){
 507      lrc = 320;
 508      if(prlc) printf(f,lrc);
 509    }
 510    cl = 12; cr = 10;
 511    cl &= cr;
 512    if(cl != 8){
 513      lrc = 321;
 514      if(prlc) printf(f,lrc);
 515    }
 516    cl = 12; sr = 10;
 517    cl &= sr;
 518    if(cl != 8){
 519      lrc = 322;
 520      if(prlc) printf(f,lrc);
 521    }
 522    cl = 12; ir = 10;
 523    cl &= ir;
 524    if(cl != 8){
 525      lrc = 323;
 526      if(prlc) printf(f,lrc);
 527    }
 528    cl = 12; lr = 10;
 529    cl &= lr;
 530    if(cl != 8){
 531      lrc = 324;
 532      if(prlc) printf(f,lrc);
 533    }
 534    cl = 12; ur = 10;
 535    cl &= ur;
 536    if(cl != 8){
 537      lrc = 325;
 538      if(prlc) printf(f,lrc);
 539    }
 540    sl = 12; cr = 10;
 541    sl &= cr;
 542    if(sl != 8){
 543      lrc = 326;
 544      if(prlc) printf(f,lrc);
 545    }
 546    sl = 12; sr = 10;
 547    sl &= sr;
 548    if(sl != 8){
 549      lrc = 327;
 550      if(prlc) printf(f,lrc);
 551    }
 552    sl = 12; ir = 10;
 553    sl &= ir;
 554    if(sl != 8){
 555      lrc = 328;
 556      if(prlc) printf(f,lrc);
 557    }
 558    sl = 12; lr = 10;
 559    sl &= lr;
 560    if(sl != 8){
 561      lrc = 329;
 562      if(prlc) printf(f,lrc);
 563    }
 564    sl = 12; ur = 10;
 565    sl &= ur;
 566    if(sl != 8){
 567      lrc = 330;
 568      if(prlc) printf(f,lrc);
 569    }
 570    il = 12; cr = 10;
 571    il &= cr;
 572    if(il != 8){
 573      lrc = 331;
 574      if(prlc) printf(f,lrc);
 575    }
 576    il = 12; sr = 10;
 577    il &= sr;
 578    if(il != 8){
 579      lrc = 332;
 580      if(prlc) printf(f,lrc);
 581    }
 582    il = 12; ir = 10;
 583    il &= ir;
 584    if(il != 8){
 585      lrc = 333;
 586      if(prlc) printf(f,lrc);
 587    }
 588    il = 12; lr = 10;
 589    il &= lr;
 590    if(il != 8){
 591      lrc = 334;
 592      if(prlc) printf(f,lrc);
 593    }
 594    il = 12; ur = 10;
 595    il &= ur;
 596    if(il != 8){
 597      lrc = 335;
 598      if(prlc) printf(f,lrc);
 599    }
 600    ll = 12; cr = 10;
 601    ll &= cr;
 602    if(ll != 8){
 603      lrc = 336;
 604      if(prlc) printf(f,lrc);
 605    }
 606    ll = 12; sr = 10;
 607    ll &= sr;
 608    if(ll != 8){
 609      lrc = 337;
 610      if(prlc) printf(f,lrc);
 611    }
 612    ll = 12; ir = 10;
 613    ll &= ir;
 614    if(ll != 8){
 615      lrc = 338;
 616      if(prlc) printf(f,lrc);
 617    }
 618    ll = 12; lr = 10;
 619    ll &= lr;
 620    if(ll != 8){
 621      lrc = 339;
 622      if(prlc) printf(f,lrc);
 623    }
 624    ll = 12; ur = 10;
 625    ll &= ur;
 626    if(ll != 8){
 627      lrc = 340;
 628      if(prlc) printf(f,lrc);
 629    }
 630    ul = 12; cr = 10;
 631    ul &= cr;
 632    if(ul != 8){
 633      lrc = 341;
 634      if(prlc) printf(f,lrc);
 635    }
 636    ul = 12; sr = 10;
 637    ul &= sr;
 638    if(ul != 8){
 639      lrc = 342;
 640      if(prlc) printf(f,lrc);
 641    }
 642    ul = 12; ir = 10;
 643    ul &= ir;
 644    if(ul != 8){
 645      lrc = 343;
 646      if(prlc) printf(f,lrc);
 647    }
 648    ul = 12; lr = 10;
 649    ul &= lr;
 650    if(ul != 8){
 651      lrc = 344;
 652      if(prlc) printf(f,lrc);
 653    }
 654    ul = 12; ur = 10;
 655    ul &= ur;
 656    if(ul != 8){
 657      lrc = 345;
 658      if(prlc) printf(f,lrc);
 659    }
 660    cl = 12; cr = 10;
 661    cl ^= cr;
 662    if(cl != 6){
 663      lrc = 346;
 664      if(prlc) printf(f,lrc);
 665    }
 666    cl = 12; sr = 10;
 667    cl ^= sr;
 668    if(cl != 6){
 669      lrc = 347;
 670      if(prlc) printf(f,lrc);
 671    }
 672    cl = 12; ir = 10;
 673    cl ^= ir;
 674    if(cl != 6){
 675      lrc = 348;
 676      if(prlc) printf(f,lrc);
 677    }
 678    cl = 12; lr = 10;
 679    cl ^= lr;
 680    if(cl != 6){
 681      lrc = 349;
 682      if(prlc) printf(f,lrc);
 683    }
 684    cl = 12; ur = 10;
 685    cl ^= ur;
 686    if(cl != 6){
 687      lrc = 350;
 688      if(prlc) printf(f,lrc);
 689    }
 690    sl = 12; cr = 10;
 691    sl ^= cr;
 692    if(sl != 6){
 693      lrc = 351;
 694      if(prlc) printf(f,lrc);
 695    }
 696    sl = 12; sr = 10;
 697    sl ^= sr;
 698    if(sl != 6){
 699      lrc = 352;
 700      if(prlc) printf(f,lrc);
 701    }
 702    sl = 12; ir = 10;
 703    sl ^= ir;
 704    if(sl != 6){
 705      lrc = 353;
 706      if(prlc) printf(f,lrc);
 707    }
 708    sl = 12; lr = 10;
 709    sl ^= lr;
 710    if(sl != 6){
 711      lrc = 354;
 712      if(prlc) printf(f,lrc);
 713    }
 714    sl = 12; ur = 10;
 715    sl ^= ur;
 716    if(sl != 6){
 717      lrc = 355;
 718      if(prlc) printf(f,lrc);
 719    }
 720    il = 12; cr = 10;
 721    il ^= cr;
 722    if(il != 6){
 723      lrc = 356;
 724      if(prlc) printf(f,lrc);
 725    }
 726    il = 12; sr = 10;
 727    il ^= sr;
 728    if(il != 6){
 729      lrc = 357;
 730      if(prlc) printf(f,lrc);
 731    }
 732    il = 12; ir = 10;
 733    il ^= ir;
 734    if(il != 6){
 735      lrc = 358;
 736      if(prlc) printf(f,lrc);
 737    }
 738    il = 12; lr = 10;
 739    il ^= lr;
 740    if(il != 6){
 741      lrc = 359;
 742      if(prlc) printf(f,lrc);
 743    }
 744    il = 12; ur = 10;
 745    il ^= ur;
 746    if(il != 6){
 747      lrc = 360;
 748      if(prlc) printf(f,lrc);
 749    }
 750    ll = 12; cr = 10;
 751    ll ^= cr;
 752    if(ll != 6){
 753      lrc = 361;
 754      if(prlc) printf(f,lrc);
 755    }
 756    ll = 12; sr = 10;
 757    ll ^= sr;
 758    if(ll != 6){
 759      lrc = 362;
 760      if(prlc) printf(f,lrc);
 761    }
 762    ll = 12; ir = 10;
 763    ll ^= ir;
 764    if(ll != 6){
 765      lrc = 363;
 766      if(prlc) printf(f,lrc);
 767    }
 768    ll = 12; lr = 10;
 769    ll ^= lr;
 770    if(ll != 6){
 771      lrc = 364;
 772      if(prlc) printf(f,lrc);
 773    }
 774    ll = 12; ur = 10;
 775    ll ^= ur;
 776    if(ll != 6){
 777      lrc = 365;
 778      if(prlc) printf(f,lrc);
 779    }
 780    ul = 12; cr = 10;
 781    ul ^= cr;
 782    if(ul != 6){
 783      lrc = 366;
 784      if(prlc) printf(f,lrc);
 785    }
 786    ul = 12; sr = 10;
 787    ul ^= sr;
 788    if(ul != 6){
 789      lrc = 367;
 790      if(prlc) printf(f,lrc);
 791    }
 792    ul = 12; ir = 10;
 793    ul ^= ir;
 794    if(ul != 6){
 795      lrc = 368;
 796      if(prlc) printf(f,lrc);
 797    }
 798    ul = 12; lr = 10;
 799    ul ^= lr;
 800    if(ul != 6){
 801      lrc = 369;
 802      if(prlc) printf(f,lrc);
 803    }
 804    ul = 12; ur = 10;
 805    ul ^= ur;
 806    if(ul != 6){
 807      lrc = 370;
 808      if(prlc) printf(f,lrc);
 809    }
 810    cl = 12; cr = 10;
 811    cl |= cr;
 812    if(cl != 14){
 813      lrc = 371;
 814      if(prlc) printf(f,lrc);
 815    }
 816    cl = 12; sr = 10;
 817    cl |= sr;
 818    if(cl != 14){
 819      lrc = 372;
 820      if(prlc) printf(f,lrc);
 821    }
 822    cl = 12; ir = 10;
 823    cl |= ir;
 824    if(cl != 14){
 825      lrc = 373;
 826      if(prlc) printf(f,lrc);
 827    }
 828    cl = 12; lr = 10;
 829    cl |= lr;
 830    if(cl != 14){
 831      lrc = 374;
 832      if(prlc) printf(f,lrc);
 833    }
 834    cl = 12; ur = 10;
 835    cl |= ur;
 836    if(cl != 14){
 837      lrc = 375;
 838      if(prlc) printf(f,lrc);
 839    }
 840    sl = 12; cr = 10;
 841    sl |= cr;
 842    if(sl != 14){
 843      lrc = 376;
 844      if(prlc) printf(f,lrc);
 845    }
 846    sl = 12; sr = 10;
 847    sl |= sr;
 848    if(sl != 14){
 849      lrc = 377;
 850      if(prlc) printf(f,lrc);
 851    }
 852    sl = 12; ir = 10;
 853    sl |= ir;
 854    if(sl != 14){
 855      lrc = 378;
 856      if(prlc) printf(f,lrc);
 857    }
 858    sl = 12; lr = 10;
 859    sl |= lr;
 860    if(sl != 14){
 861      lrc = 379;
 862      if(prlc) printf(f,lrc);
 863    }
 864    sl = 12; ur = 10;
 865    sl |= ur;
 866    if(sl != 14){
 867      lrc = 380;
 868      if(prlc) printf(f,lrc);
 869    }
 870    il = 12; cr = 10;
 871    il |= cr;
 872    if(il != 14){
 873      lrc = 381;
 874      if(prlc) printf(f,lrc);
 875    }
 876    il = 12; sr = 10;
 877    il |= sr;
 878    if(il != 14){
 879      lrc = 382;
 880      if(prlc) printf(f,lrc);
 881    }
 882    il = 12; ir = 10;
 883    il |= ir;
 884    if(il != 14){
 885      lrc = 383;
 886      if(prlc) printf(f,lrc);
 887    }
 888    il = 12; lr = 10;
 889    il |= lr;
 890    if(il != 14){
 891      lrc = 384;
 892      if(prlc) printf(f,lrc);
 893    }
 894    il = 12; ur = 10;
 895    il |= ur;
 896    if(il != 14){
 897      lrc = 385;
 898      if(prlc) printf(f,lrc);
 899    }
 900    ll = 12; cr = 10;
 901    ll |= cr;
 902    if(ll != 14){
 903      lrc = 386;
 904      if(prlc) printf(f,lrc);
 905    }
 906    ll = 12; sr = 10;
 907    ll |= sr;
 908    if(ll != 14){
 909      lrc = 387;
 910      if(prlc) printf(f,lrc);
 911    }
 912    ll = 12; ir = 10;
 913    ll |= ir;
 914    if(ll != 14){
 915      lrc = 388;
 916      if(prlc) printf(f,lrc);
 917    }
 918    ll = 12; lr = 10;
 919    ll |= lr;
 920    if(ll != 14){
 921      lrc = 389;
 922      if(prlc) printf(f,lrc);
 923    }
 924    ll = 12; ur = 10;
 925    ll |= ur;
 926    if(ll != 14){
 927      lrc = 390;
 928      if(prlc) printf(f,lrc);
 929    }
 930    ul = 12; cr = 10;
 931    ul |= cr;
 932    if(ul != 14){
 933      lrc = 391;
 934      if(prlc) printf(f,lrc);
 935    }
 936    ul = 12; sr = 10;
 937    ul |= sr;
 938    if(ul != 14){
 939      lrc = 392;
 940      if(prlc) printf(f,lrc);
 941    }
 942    ul = 12; ir = 10;
 943    ul |= ir;
 944    if(ul != 14){
 945      lrc = 393;
 946      if(prlc) printf(f,lrc);
 947    }
 948    ul = 12; lr = 10;
 949    ul |= lr;
 950    if(ul != 14){
 951      lrc = 394;
 952      if(prlc) printf(f,lrc);
 953    }
 954    ul = 12; ur = 10;
 955    ul |= ur;
 956    if(ul != 14){
 957      lrc = 395;
 958      if(prlc) printf(f,lrc);
 959    }
 960    if(lrc != 0) {
 961      rc = 1;
 962      if(pd0->flgd != 0) printf(s714er,1);
 963    }
 964    return rc;
 965 }
 966
 967 /*********************************************************************************************
 968  the main loop that launches the sections
 969 *********************************************************************************************/
 970
 971 #ifndef NO_TYPELESS_STRUCT_PTR
 972         int section(int j,struct* pd0){
 973 #else
 974         int section(int j,void* pd0){
 975 #endif
 976         switch(j){
 977                 case 0: return s714(pd0);
 978         }
 979 }
 980
 981 #define cq_sections 1
 982
 983 /*
 984         C REFERENCE MANUAL (main)
 985 */
 986
 987 #ifndef NO_OLD_FUNC_DECL
 988 main(n,args)
 989 int n;
 990 char **args;
 991 {
 992 #else
 993 int main(int n,char **args) {
 994 #endif
 995
 996 int j;
 997 static struct defs d0, *pd0;
 998
 999    d0.flgs = 1;          /* These flags dictate            */
1000    d0.flgm = 1;          /*     the verbosity of           */
1001    d0.flgd = 1;          /*         the program.           */
1002    d0.flgl = 1;
1003
1004    pd0 = &d0;
1005
1006    for (j=0; j<cq_sections; j++) {
1007      d0.rrc=section(j,pd0);
1008      d0.crc=d0.crc+d0.rrc;
1009      if(d0.flgs != 0) printf("Section %s returned %d.\n",d0.rfs,d0.rrc);
1010    }
1011
1012    if(d0.crc == 0) printf("\nNo errors detected.\n");
1013    else printf("\nFailed.\n");
1014
1015    return d0.crc;
1016 }