]> git.sur5r.net Git - cc65/blob - test/val/cq714b.c
Fixed _textcolor definition.
[cc65] / 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 #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
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 }