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