![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rsh.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 rsh.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 CHAR Ac = 7;
17: #if ANSI
18: auto SCHAR Asc = 8;
19: #endif
20: auto SHORT As = 9;
21: auto INT Ai = 10;
22: auto UCHAR Auc = 11;
23: auto USHORT Aus = 12;
24: auto UINT Aui = 13;
25: auto LONG Al = 14;
26: auto ULONG Aul = 15;
27: auto FLOAT Af = 16;
28: auto DOUBLE Ad = 17;
29: #if ANSI
30: auto LDOUBLE Ald = 18;
31: #endif
32: {
33: {
34: int true = 1, false = 0;
35: Filename = " auto scalar auto funcrs rsh ";
36: Ac = 7;
37: O_c = 1;
38: iequals(__LINE__, Ac >> Oc().c, 3);
39: O_c = 7;
40: Ac = 1;
41: iequals(__LINE__, Oc().c >> Ac, 3);
42: #if ANSI
43: Ac = 7;
44: O_sc = 1;
45: iequals(__LINE__, Ac >> Osc().sc, 3);
46: O_sc = 8;
47: Ac = 1;
48: iequals(__LINE__, Osc().sc >> Ac, 4);
49: #endif
50: Ac = 7;
51: O_s = 1;
52: iequals(__LINE__, Ac >> Os().s, 3);
53: O_s = 9;
54: Ac = 1;
55: iequals(__LINE__, Os().s >> Ac, 4);
56: Ac = 7;
57: O_i = 1;
58: iequals(__LINE__, Ac >> Oi().i, 3);
59: O_i = 10;
60: Ac = 1;
61: iequals(__LINE__, Oi().i >> Ac, 5);
62: Ac = 7;
63: O_uc = 1;
64: iequals(__LINE__, Ac >> Ouc().uc, 3);
65: O_uc = 11;
66: Ac = 1;
67: iequals(__LINE__, Ouc().uc >> Ac, 5);
68: Ac = 7;
69: O_us = 1;
70: iequals(__LINE__, Ac >> Ous().us, 3);
71: O_us = 12;
72: Ac = 1;
73: iequals(__LINE__, Ous().us >> Ac, 6);
74: Ac = 7;
75: O_ui = 1;
76: iequals(__LINE__, Ac >> Oui().ui, 3);
77: O_ui = 13;
78: Ac = 1;
79: iequals(__LINE__, Oui().ui >> Ac, 6);
80: Ac = 7;
81: O_l = 1;
82: #if ANSI
83: iequals(__LINE__, Ac >> Ol().l, 3);
84: #else
85: lequals(__LINE__, Ac >> Ol().l, 3L);
86: #endif
87: O_l = 14;
88: Ac = 1;
89: #if ANSI
90: lequals(__LINE__, Ol().l >> Ac, 7L);
91: #else
92: lequals(__LINE__, Ol().l >> Ac, 7L);
93: #endif
94: Ac = 7;
95: O_ul = 1;
96: #if ANSI
97: iequals(__LINE__, Ac >> Oul().ul, 3);
98: #else
99: lequals(__LINE__, Ac >> Oul().ul, 3L);
100: #endif
101: O_ul = 15;
102: Ac = 1;
103: #if ANSI
104: lequals(__LINE__, Oul().ul >> Ac, 7L);
105: #else
106: lequals(__LINE__, Oul().ul >> Ac, 7L);
107: #endif
108: #if ANSI
109: Asc = 8;
110: O_c = 1;
111: iequals(__LINE__, Asc >> Oc().c, 4);
112: O_c = 7;
113: Asc = 1;
114: iequals(__LINE__, Oc().c >> Asc, 3);
115: #endif
116: #if ANSI
117: Asc = 8;
118: O_sc = 1;
119: iequals(__LINE__, Asc >> Osc().sc, 4);
120: O_sc = 8;
121: Asc = 1;
122: iequals(__LINE__, Osc().sc >> Asc, 4);
123: #endif
124: #if ANSI
125: Asc = 8;
126: O_s = 1;
127: iequals(__LINE__, Asc >> Os().s, 4);
128: O_s = 9;
129: Asc = 1;
130: iequals(__LINE__, Os().s >> Asc, 4);
131: #endif
132: #if ANSI
133: Asc = 8;
134: O_i = 1;
135: iequals(__LINE__, Asc >> Oi().i, 4);
136: O_i = 10;
137: Asc = 1;
138: iequals(__LINE__, Oi().i >> Asc, 5);
139: #endif
140: #if ANSI
141: Asc = 8;
142: O_uc = 1;
143: iequals(__LINE__, Asc >> Ouc().uc, 4);
144: O_uc = 11;
145: Asc = 1;
146: iequals(__LINE__, Ouc().uc >> Asc, 5);
147: #endif
148: #if ANSI
149: Asc = 8;
150: O_us = 1;
151: iequals(__LINE__, Asc >> Ous().us, 4);
152: O_us = 12;
153: Asc = 1;
154: iequals(__LINE__, Ous().us >> Asc, 6);
155: #endif
156: #if ANSI
157: Asc = 8;
158: O_ui = 1;
159: iequals(__LINE__, Asc >> Oui().ui, 4);
160: O_ui = 13;
161: Asc = 1;
162: iequals(__LINE__, Oui().ui >> Asc, 6);
163: #endif
164: #if ANSI
165: Asc = 8;
166: O_l = 1;
167: #if ANSI
168: iequals(__LINE__, Asc >> Ol().l, 4);
169: #else
170: lequals(__LINE__, Asc >> Ol().l, 4L);
171: #endif
172: O_l = 14;
173: Asc = 1;
174: #if ANSI
175: lequals(__LINE__, Ol().l >> Asc, 7L);
176: #else
177: lequals(__LINE__, Ol().l >> Asc, 7L);
178: #endif
179: #endif
180: #if ANSI
181: Asc = 8;
182: O_ul = 1;
183: #if ANSI
184: iequals(__LINE__, Asc >> Oul().ul, 4);
185: #else
186: lequals(__LINE__, Asc >> Oul().ul, 4L);
187: #endif
188: O_ul = 15;
189: Asc = 1;
190: #if ANSI
191: lequals(__LINE__, Oul().ul >> Asc, 7L);
192: #else
193: lequals(__LINE__, Oul().ul >> Asc, 7L);
194: #endif
195: #endif
196: As = 9;
197: O_c = 1;
198: iequals(__LINE__, As >> Oc().c, 4);
199: O_c = 7;
200: As = 1;
201: iequals(__LINE__, Oc().c >> As, 3);
202: #if ANSI
203: As = 9;
204: O_sc = 1;
205: iequals(__LINE__, As >> Osc().sc, 4);
206: O_sc = 8;
207: As = 1;
208: iequals(__LINE__, Osc().sc >> As, 4);
209: #endif
210: As = 9;
211: O_s = 1;
212: iequals(__LINE__, As >> Os().s, 4);
213: O_s = 9;
214: As = 1;
215: iequals(__LINE__, Os().s >> As, 4);
216: As = 9;
217: O_i = 1;
218: iequals(__LINE__, As >> Oi().i, 4);
219: O_i = 10;
220: As = 1;
221: iequals(__LINE__, Oi().i >> As, 5);
222: As = 9;
223: O_uc = 1;
224: iequals(__LINE__, As >> Ouc().uc, 4);
225: O_uc = 11;
226: As = 1;
227: iequals(__LINE__, Ouc().uc >> As, 5);
228: As = 9;
229: O_us = 1;
230: iequals(__LINE__, As >> Ous().us, 4);
231: O_us = 12;
232: As = 1;
233: iequals(__LINE__, Ous().us >> As, 6);
234: As = 9;
235: O_ui = 1;
236: iequals(__LINE__, As >> Oui().ui, 4);
237: O_ui = 13;
238: As = 1;
239: iequals(__LINE__, Oui().ui >> As, 6);
240: As = 9;
241: O_l = 1;
242: #if ANSI
243: iequals(__LINE__, As >> Ol().l, 4);
244: #else
245: lequals(__LINE__, As >> Ol().l, 4L);
246: #endif
247: O_l = 14;
248: As = 1;
249: #if ANSI
250: lequals(__LINE__, Ol().l >> As, 7L);
251: #else
252: lequals(__LINE__, Ol().l >> As, 7L);
253: #endif
254: As = 9;
255: O_ul = 1;
256: #if ANSI
257: iequals(__LINE__, As >> Oul().ul, 4);
258: #else
259: lequals(__LINE__, As >> Oul().ul, 4L);
260: #endif
261: O_ul = 15;
262: As = 1;
263: #if ANSI
264: lequals(__LINE__, Oul().ul >> As, 7L);
265: #else
266: lequals(__LINE__, Oul().ul >> As, 7L);
267: #endif
268: Ai = 10;
269: O_c = 1;
270: iequals(__LINE__, Ai >> Oc().c, 5);
271: O_c = 7;
272: Ai = 1;
273: iequals(__LINE__, Oc().c >> Ai, 3);
274: #if ANSI
275: Ai = 10;
276: O_sc = 1;
277: iequals(__LINE__, Ai >> Osc().sc, 5);
278: O_sc = 8;
279: Ai = 1;
280: iequals(__LINE__, Osc().sc >> Ai, 4);
281: #endif
282: Ai = 10;
283: O_s = 1;
284: iequals(__LINE__, Ai >> Os().s, 5);
285: O_s = 9;
286: Ai = 1;
287: iequals(__LINE__, Os().s >> Ai, 4);
288: Ai = 10;
289: O_i = 1;
290: iequals(__LINE__, Ai >> Oi().i, 5);
291: O_i = 10;
292: Ai = 1;
293: iequals(__LINE__, Oi().i >> Ai, 5);
294: Ai = 10;
295: O_uc = 1;
296: iequals(__LINE__, Ai >> Ouc().uc, 5);
297: O_uc = 11;
298: Ai = 1;
299: iequals(__LINE__, Ouc().uc >> Ai, 5);
300: Ai = 10;
301: O_us = 1;
302: iequals(__LINE__, Ai >> Ous().us, 5);
303: O_us = 12;
304: Ai = 1;
305: iequals(__LINE__, Ous().us >> Ai, 6);
306: Ai = 10;
307: O_ui = 1;
308: iequals(__LINE__, Ai >> Oui().ui, 5);
309: O_ui = 13;
310: Ai = 1;
311: iequals(__LINE__, Oui().ui >> Ai, 6);
312: Ai = 10;
313: O_l = 1;
314: #if ANSI
315: iequals(__LINE__, Ai >> Ol().l, 5);
316: #else
317: lequals(__LINE__, Ai >> Ol().l, 5L);
318: #endif
319: O_l = 14;
320: Ai = 1;
321: #if ANSI
322: lequals(__LINE__, Ol().l >> Ai, 7L);
323: #else
324: lequals(__LINE__, Ol().l >> Ai, 7L);
325: #endif
326: Ai = 10;
327: O_ul = 1;
328: #if ANSI
329: iequals(__LINE__, Ai >> Oul().ul, 5);
330: #else
331: lequals(__LINE__, Ai >> Oul().ul, 5L);
332: #endif
333: O_ul = 15;
334: Ai = 1;
335: #if ANSI
336: lequals(__LINE__, Oul().ul >> Ai, 7L);
337: #else
338: lequals(__LINE__, Oul().ul >> Ai, 7L);
339: #endif
340: Auc = 11;
341: O_c = 1;
342: iequals(__LINE__, Auc >> Oc().c, 5);
343: O_c = 7;
344: Auc = 1;
345: iequals(__LINE__, Oc().c >> Auc, 3);
346: #if ANSI
347: Auc = 11;
348: O_sc = 1;
349: iequals(__LINE__, Auc >> Osc().sc, 5);
350: O_sc = 8;
351: Auc = 1;
352: iequals(__LINE__, Osc().sc >> Auc, 4);
353: #endif
354: Auc = 11;
355: O_s = 1;
356: iequals(__LINE__, Auc >> Os().s, 5);
357: O_s = 9;
358: Auc = 1;
359: iequals(__LINE__, Os().s >> Auc, 4);
360: Auc = 11;
361: O_i = 1;
362: iequals(__LINE__, Auc >> Oi().i, 5);
363: O_i = 10;
364: Auc = 1;
365: iequals(__LINE__, Oi().i >> Auc, 5);
366: Auc = 11;
367: O_uc = 1;
368: iequals(__LINE__, Auc >> Ouc().uc, 5);
369: O_uc = 11;
370: Auc = 1;
371: iequals(__LINE__, Ouc().uc >> Auc, 5);
372: Auc = 11;
373: O_us = 1;
374: iequals(__LINE__, Auc >> Ous().us, 5);
375: O_us = 12;
376: Auc = 1;
377: iequals(__LINE__, Ous().us >> Auc, 6);
378: Auc = 11;
379: O_ui = 1;
380: iequals(__LINE__, Auc >> Oui().ui, 5);
381: O_ui = 13;
382: Auc = 1;
383: iequals(__LINE__, Oui().ui >> Auc, 6);
384: Auc = 11;
385: O_l = 1;
386: #if ANSI
387: iequals(__LINE__, Auc >> Ol().l, 5);
388: #else
389: lequals(__LINE__, Auc >> Ol().l, 5L);
390: #endif
391: O_l = 14;
392: Auc = 1;
393: #if ANSI
394: lequals(__LINE__, Ol().l >> Auc, 7L);
395: #else
396: lequals(__LINE__, Ol().l >> Auc, 7L);
397: #endif
398: Auc = 11;
399: O_ul = 1;
400: #if ANSI
401: iequals(__LINE__, Auc >> Oul().ul, 5);
402: #else
403: lequals(__LINE__, Auc >> Oul().ul, 5L);
404: #endif
405: O_ul = 15;
406: Auc = 1;
407: #if ANSI
408: lequals(__LINE__, Oul().ul >> Auc, 7L);
409: #else
410: lequals(__LINE__, Oul().ul >> Auc, 7L);
411: #endif
412: Aus = 12;
413: O_c = 1;
414: iequals(__LINE__, Aus >> Oc().c, 6);
415: O_c = 7;
416: Aus = 1;
417: iequals(__LINE__, Oc().c >> Aus, 3);
418: #if ANSI
419: Aus = 12;
420: O_sc = 1;
421: iequals(__LINE__, Aus >> Osc().sc, 6);
422: O_sc = 8;
423: Aus = 1;
424: iequals(__LINE__, Osc().sc >> Aus, 4);
425: #endif
426: Aus = 12;
427: O_s = 1;
428: iequals(__LINE__, Aus >> Os().s, 6);
429: O_s = 9;
430: Aus = 1;
431: iequals(__LINE__, Os().s >> Aus, 4);
432: Aus = 12;
433: O_i = 1;
434: iequals(__LINE__, Aus >> Oi().i, 6);
435: O_i = 10;
436: Aus = 1;
437: iequals(__LINE__, Oi().i >> Aus, 5);
438: Aus = 12;
439: O_uc = 1;
440: iequals(__LINE__, Aus >> Ouc().uc, 6);
441: O_uc = 11;
442: Aus = 1;
443: iequals(__LINE__, Ouc().uc >> Aus, 5);
444: Aus = 12;
445: O_us = 1;
446: iequals(__LINE__, Aus >> Ous().us, 6);
447: O_us = 12;
448: Aus = 1;
449: iequals(__LINE__, Ous().us >> Aus, 6);
450: Aus = 12;
451: O_ui = 1;
452: iequals(__LINE__, Aus >> Oui().ui, 6);
453: O_ui = 13;
454: Aus = 1;
455: iequals(__LINE__, Oui().ui >> Aus, 6);
456: Aus = 12;
457: O_l = 1;
458: #if ANSI
459: iequals(__LINE__, Aus >> Ol().l, 6);
460: #else
461: lequals(__LINE__, Aus >> Ol().l, 6L);
462: #endif
463: O_l = 14;
464: Aus = 1;
465: #if ANSI
466: lequals(__LINE__, Ol().l >> Aus, 7L);
467: #else
468: lequals(__LINE__, Ol().l >> Aus, 7L);
469: #endif
470: Aus = 12;
471: O_ul = 1;
472: #if ANSI
473: iequals(__LINE__, Aus >> Oul().ul, 6);
474: #else
475: lequals(__LINE__, Aus >> Oul().ul, 6L);
476: #endif
477: O_ul = 15;
478: Aus = 1;
479: #if ANSI
480: lequals(__LINE__, Oul().ul >> Aus, 7L);
481: #else
482: lequals(__LINE__, Oul().ul >> Aus, 7L);
483: #endif
484: Aui = 13;
485: O_c = 1;
486: iequals(__LINE__, Aui >> Oc().c, 6);
487: O_c = 7;
488: Aui = 1;
489: iequals(__LINE__, Oc().c >> Aui, 3);
490: #if ANSI
491: Aui = 13;
492: O_sc = 1;
493: iequals(__LINE__, Aui >> Osc().sc, 6);
494: O_sc = 8;
495: Aui = 1;
496: iequals(__LINE__, Osc().sc >> Aui, 4);
497: #endif
498: Aui = 13;
499: O_s = 1;
500: iequals(__LINE__, Aui >> Os().s, 6);
501: O_s = 9;
502: Aui = 1;
503: iequals(__LINE__, Os().s >> Aui, 4);
504: Aui = 13;
505: O_i = 1;
506: iequals(__LINE__, Aui >> Oi().i, 6);
507: O_i = 10;
508: Aui = 1;
509: iequals(__LINE__, Oi().i >> Aui, 5);
510: Aui = 13;
511: O_uc = 1;
512: iequals(__LINE__, Aui >> Ouc().uc, 6);
513: O_uc = 11;
514: Aui = 1;
515: iequals(__LINE__, Ouc().uc >> Aui, 5);
516: Aui = 13;
517: O_us = 1;
518: iequals(__LINE__, Aui >> Ous().us, 6);
519: O_us = 12;
520: Aui = 1;
521: iequals(__LINE__, Ous().us >> Aui, 6);
522: Aui = 13;
523: O_ui = 1;
524: iequals(__LINE__, Aui >> Oui().ui, 6);
525: O_ui = 13;
526: Aui = 1;
527: iequals(__LINE__, Oui().ui >> Aui, 6);
528: Aui = 13;
529: O_l = 1;
530: #if ANSI
531: iequals(__LINE__, Aui >> Ol().l, 6);
532: #else
533: lequals(__LINE__, Aui >> Ol().l, 6L);
534: #endif
535: O_l = 14;
536: Aui = 1;
537: #if ANSI
538: lequals(__LINE__, Ol().l >> Aui, 7L);
539: #else
540: lequals(__LINE__, Ol().l >> Aui, 7L);
541: #endif
542: Aui = 13;
543: O_ul = 1;
544: #if ANSI
545: iequals(__LINE__, Aui >> Oul().ul, 6);
546: #else
547: lequals(__LINE__, Aui >> Oul().ul, 6L);
548: #endif
549: O_ul = 15;
550: Aui = 1;
551: #if ANSI
552: lequals(__LINE__, Oul().ul >> Aui, 7L);
553: #else
554: lequals(__LINE__, Oul().ul >> Aui, 7L);
555: #endif
556: Al = 14;
557: O_c = 1;
558: lequals(__LINE__, Al >> Oc().c, 7L);
559: O_c = 7;
560: Al = 1;
561: lequals(__LINE__, Oc().c >> Al, 3L);
562: #if ANSI
563: Al = 14;
564: O_sc = 1;
565: lequals(__LINE__, Al >> Osc().sc, 7L);
566: O_sc = 8;
567: Al = 1;
568: lequals(__LINE__, Osc().sc >> Al, 4L);
569: #endif
570: Al = 14;
571: O_s = 1;
572: lequals(__LINE__, Al >> Os().s, 7L);
573: O_s = 9;
574: Al = 1;
575: lequals(__LINE__, Os().s >> Al, 4L);
576: Al = 14;
577: O_i = 1;
578: lequals(__LINE__, Al >> Oi().i, 7L);
579: O_i = 10;
580: Al = 1;
581: lequals(__LINE__, Oi().i >> Al, 5L);
582: Al = 14;
583: O_uc = 1;
584: lequals(__LINE__, Al >> Ouc().uc, 7L);
585: O_uc = 11;
586: Al = 1;
587: lequals(__LINE__, Ouc().uc >> Al, 5L);
588: Al = 14;
589: O_us = 1;
590: lequals(__LINE__, Al >> Ous().us, 7L);
591: O_us = 12;
592: Al = 1;
593: lequals(__LINE__, Ous().us >> Al, 6L);
594: Al = 14;
595: O_ui = 1;
596: lequals(__LINE__, Al >> Oui().ui, 7L);
597: O_ui = 13;
598: Al = 1;
599: lequals(__LINE__, Oui().ui >> Al, 6L);
600: Al = 14;
601: O_l = 1;
602: lequals(__LINE__, Al >> Ol().l, 7L);
603: O_l = 14;
604: Al = 1;
605: lequals(__LINE__, Ol().l >> Al, 7L);
606: Al = 14;
607: O_ul = 1;
608: lequals(__LINE__, Al >> Oul().ul, 7L);
609: O_ul = 15;
610: Al = 1;
611: lequals(__LINE__, Oul().ul >> Al, 7L);
612: Aul = 15;
613: O_c = 1;
614: lequals(__LINE__, Aul >> Oc().c, 7L);
615: O_c = 7;
616: Aul = 1;
617: lequals(__LINE__, Oc().c >> Aul, 3L);
618: #if ANSI
619: Aul = 15;
620: O_sc = 1;
621: lequals(__LINE__, Aul >> Osc().sc, 7L);
622: O_sc = 8;
623: Aul = 1;
624: lequals(__LINE__, Osc().sc >> Aul, 4L);
625: #endif
626: Aul = 15;
627: O_s = 1;
628: lequals(__LINE__, Aul >> Os().s, 7L);
629: O_s = 9;
630: Aul = 1;
631: lequals(__LINE__, Os().s >> Aul, 4L);
632: Aul = 15;
633: O_i = 1;
634: lequals(__LINE__, Aul >> Oi().i, 7L);
635: O_i = 10;
636: Aul = 1;
637: lequals(__LINE__, Oi().i >> Aul, 5L);
638: Aul = 15;
639: O_uc = 1;
640: lequals(__LINE__, Aul >> Ouc().uc, 7L);
641: O_uc = 11;
642: Aul = 1;
643: lequals(__LINE__, Ouc().uc >> Aul, 5L);
644: Aul = 15;
645: O_us = 1;
646: lequals(__LINE__, Aul >> Ous().us, 7L);
647: O_us = 12;
648: Aul = 1;
649: lequals(__LINE__, Ous().us >> Aul, 6L);
650: Aul = 15;
651: O_ui = 1;
652: lequals(__LINE__, Aul >> Oui().ui, 7L);
653: O_ui = 13;
654: Aul = 1;
655: lequals(__LINE__, Oui().ui >> Aul, 6L);
656: Aul = 15;
657: O_l = 1;
658: lequals(__LINE__, Aul >> Ol().l, 7L);
659: O_l = 14;
660: Aul = 1;
661: lequals(__LINE__, Ol().l >> Aul, 7L);
662: Aul = 15;
663: O_ul = 1;
664: lequals(__LINE__, Aul >> Oul().ul, 7L);
665: O_ul = 15;
666: Aul = 1;
667: lequals(__LINE__, Oul().ul >> Aul, 7L);
668: }}
669: return report(Filename);
670: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.