![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to band.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 band.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 "n.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: CHAR *Nc();
50: #if ANSI
51: SCHAR *Nsc();
52: #endif
53: SHORT *Ns();
54: INT *Ni();
55: UCHAR *Nuc();
56: USHORT *Nus();
57: UINT *Nui();
58: LONG *Nl();
59: ULONG *Nul();
60: FLOAT *Nf();
61: DOUBLE *Nd();
62: #if ANSI
63: LDOUBLE *Nld();
64: #endif
65: {
66: int true = 1, false = 0;
67: Filename = " auto pstruct1 auto funcrp band ";
68: iequals(__LINE__, pG->c & *Nc(), 7);
69: iequals(__LINE__, *Nc() & pG->c, 7);
70: #if ANSI
71: iequals(__LINE__, pG->c & *Nsc(), 0);
72: iequals(__LINE__, *Nsc() & pG->c, 0);
73: #endif
74: iequals(__LINE__, pG->c & *Ns(), 1);
75: iequals(__LINE__, *Ns() & pG->c, 1);
76: iequals(__LINE__, pG->c & *Ni(), 2);
77: iequals(__LINE__, *Ni() & pG->c, 2);
78: iequals(__LINE__, pG->c & *Nuc(), 3);
79: iequals(__LINE__, *Nuc() & pG->c, 3);
80: iequals(__LINE__, pG->c & *Nus(), 4);
81: iequals(__LINE__, *Nus() & pG->c, 4);
82: iequals(__LINE__, pG->c & *Nui(), 5);
83: iequals(__LINE__, *Nui() & pG->c, 5);
84: lequals(__LINE__, pG->c & *Nl(), 6L);
85: lequals(__LINE__, *Nl() & pG->c, 6L);
86: lequals(__LINE__, pG->c & *Nul(), 7L);
87: lequals(__LINE__, *Nul() & pG->c, 7L);
88: #if ANSI
89: iequals(__LINE__, pG->sc & *Nc(), 0);
90: iequals(__LINE__, *Nc() & pG->sc, 0);
91: #endif
92: #if ANSI
93: iequals(__LINE__, pG->sc & *Nsc(), 8);
94: iequals(__LINE__, *Nsc() & pG->sc, 8);
95: #endif
96: #if ANSI
97: iequals(__LINE__, pG->sc & *Ns(), 8);
98: iequals(__LINE__, *Ns() & pG->sc, 8);
99: #endif
100: #if ANSI
101: iequals(__LINE__, pG->sc & *Ni(), 8);
102: iequals(__LINE__, *Ni() & pG->sc, 8);
103: #endif
104: #if ANSI
105: iequals(__LINE__, pG->sc & *Nuc(), 8);
106: iequals(__LINE__, *Nuc() & pG->sc, 8);
107: #endif
108: #if ANSI
109: iequals(__LINE__, pG->sc & *Nus(), 8);
110: iequals(__LINE__, *Nus() & pG->sc, 8);
111: #endif
112: #if ANSI
113: iequals(__LINE__, pG->sc & *Nui(), 8);
114: iequals(__LINE__, *Nui() & pG->sc, 8);
115: #endif
116: #if ANSI
117: lequals(__LINE__, pG->sc & *Nl(), 8L);
118: lequals(__LINE__, *Nl() & pG->sc, 8L);
119: #endif
120: #if ANSI
121: lequals(__LINE__, pG->sc & *Nul(), 8L);
122: lequals(__LINE__, *Nul() & pG->sc, 8L);
123: #endif
124: iequals(__LINE__, pG->s & *Nc(), 1);
125: iequals(__LINE__, *Nc() & pG->s, 1);
126: #if ANSI
127: iequals(__LINE__, pG->s & *Nsc(), 8);
128: iequals(__LINE__, *Nsc() & pG->s, 8);
129: #endif
130: iequals(__LINE__, pG->s & *Ns(), 9);
131: iequals(__LINE__, *Ns() & pG->s, 9);
132: iequals(__LINE__, pG->s & *Ni(), 8);
133: iequals(__LINE__, *Ni() & pG->s, 8);
134: iequals(__LINE__, pG->s & *Nuc(), 9);
135: iequals(__LINE__, *Nuc() & pG->s, 9);
136: iequals(__LINE__, pG->s & *Nus(), 8);
137: iequals(__LINE__, *Nus() & pG->s, 8);
138: iequals(__LINE__, pG->s & *Nui(), 9);
139: iequals(__LINE__, *Nui() & pG->s, 9);
140: lequals(__LINE__, pG->s & *Nl(), 8L);
141: lequals(__LINE__, *Nl() & pG->s, 8L);
142: lequals(__LINE__, pG->s & *Nul(), 9L);
143: lequals(__LINE__, *Nul() & pG->s, 9L);
144: iequals(__LINE__, pG->i & *Nc(), 2);
145: iequals(__LINE__, *Nc() & pG->i, 2);
146: #if ANSI
147: iequals(__LINE__, pG->i & *Nsc(), 8);
148: iequals(__LINE__, *Nsc() & pG->i, 8);
149: #endif
150: iequals(__LINE__, pG->i & *Ns(), 8);
151: iequals(__LINE__, *Ns() & pG->i, 8);
152: iequals(__LINE__, pG->i & *Ni(), 10);
153: iequals(__LINE__, *Ni() & pG->i, 10);
154: iequals(__LINE__, pG->i & *Nuc(), 10);
155: iequals(__LINE__, *Nuc() & pG->i, 10);
156: iequals(__LINE__, pG->i & *Nus(), 8);
157: iequals(__LINE__, *Nus() & pG->i, 8);
158: iequals(__LINE__, pG->i & *Nui(), 8);
159: iequals(__LINE__, *Nui() & pG->i, 8);
160: lequals(__LINE__, pG->i & *Nl(), 10L);
161: lequals(__LINE__, *Nl() & pG->i, 10L);
162: lequals(__LINE__, pG->i & *Nul(), 10L);
163: lequals(__LINE__, *Nul() & pG->i, 10L);
164: iequals(__LINE__, pG->uc & *Nc(), 3);
165: iequals(__LINE__, *Nc() & pG->uc, 3);
166: #if ANSI
167: iequals(__LINE__, pG->uc & *Nsc(), 8);
168: iequals(__LINE__, *Nsc() & pG->uc, 8);
169: #endif
170: iequals(__LINE__, pG->uc & *Ns(), 9);
171: iequals(__LINE__, *Ns() & pG->uc, 9);
172: iequals(__LINE__, pG->uc & *Ni(), 10);
173: iequals(__LINE__, *Ni() & pG->uc, 10);
174: iequals(__LINE__, pG->uc & *Nuc(), 11);
175: iequals(__LINE__, *Nuc() & pG->uc, 11);
176: iequals(__LINE__, pG->uc & *Nus(), 8);
177: iequals(__LINE__, *Nus() & pG->uc, 8);
178: iequals(__LINE__, pG->uc & *Nui(), 9);
179: iequals(__LINE__, *Nui() & pG->uc, 9);
180: lequals(__LINE__, pG->uc & *Nl(), 10L);
181: lequals(__LINE__, *Nl() & pG->uc, 10L);
182: lequals(__LINE__, pG->uc & *Nul(), 11L);
183: lequals(__LINE__, *Nul() & pG->uc, 11L);
184: iequals(__LINE__, pG->us & *Nc(), 4);
185: iequals(__LINE__, *Nc() & pG->us, 4);
186: #if ANSI
187: iequals(__LINE__, pG->us & *Nsc(), 8);
188: iequals(__LINE__, *Nsc() & pG->us, 8);
189: #endif
190: iequals(__LINE__, pG->us & *Ns(), 8);
191: iequals(__LINE__, *Ns() & pG->us, 8);
192: iequals(__LINE__, pG->us & *Ni(), 8);
193: iequals(__LINE__, *Ni() & pG->us, 8);
194: iequals(__LINE__, pG->us & *Nuc(), 8);
195: iequals(__LINE__, *Nuc() & pG->us, 8);
196: iequals(__LINE__, pG->us & *Nus(), 12);
197: iequals(__LINE__, *Nus() & pG->us, 12);
198: iequals(__LINE__, pG->us & *Nui(), 12);
199: iequals(__LINE__, *Nui() & pG->us, 12);
200: lequals(__LINE__, pG->us & *Nl(), 12L);
201: lequals(__LINE__, *Nl() & pG->us, 12L);
202: lequals(__LINE__, pG->us & *Nul(), 12L);
203: lequals(__LINE__, *Nul() & pG->us, 12L);
204: iequals(__LINE__, pG->ui & *Nc(), 5);
205: iequals(__LINE__, *Nc() & pG->ui, 5);
206: #if ANSI
207: iequals(__LINE__, pG->ui & *Nsc(), 8);
208: iequals(__LINE__, *Nsc() & pG->ui, 8);
209: #endif
210: iequals(__LINE__, pG->ui & *Ns(), 9);
211: iequals(__LINE__, *Ns() & pG->ui, 9);
212: iequals(__LINE__, pG->ui & *Ni(), 8);
213: iequals(__LINE__, *Ni() & pG->ui, 8);
214: iequals(__LINE__, pG->ui & *Nuc(), 9);
215: iequals(__LINE__, *Nuc() & pG->ui, 9);
216: iequals(__LINE__, pG->ui & *Nus(), 12);
217: iequals(__LINE__, *Nus() & pG->ui, 12);
218: iequals(__LINE__, pG->ui & *Nui(), 13);
219: iequals(__LINE__, *Nui() & pG->ui, 13);
220: lequals(__LINE__, pG->ui & *Nl(), 12L);
221: lequals(__LINE__, *Nl() & pG->ui, 12L);
222: lequals(__LINE__, pG->ui & *Nul(), 13L);
223: lequals(__LINE__, *Nul() & pG->ui, 13L);
224: lequals(__LINE__, pG->l & *Nc(), 6L);
225: lequals(__LINE__, *Nc() & pG->l, 6L);
226: #if ANSI
227: lequals(__LINE__, pG->l & *Nsc(), 8L);
228: lequals(__LINE__, *Nsc() & pG->l, 8L);
229: #endif
230: lequals(__LINE__, pG->l & *Ns(), 8L);
231: lequals(__LINE__, *Ns() & pG->l, 8L);
232: lequals(__LINE__, pG->l & *Ni(), 10L);
233: lequals(__LINE__, *Ni() & pG->l, 10L);
234: lequals(__LINE__, pG->l & *Nuc(), 10L);
235: lequals(__LINE__, *Nuc() & pG->l, 10L);
236: lequals(__LINE__, pG->l & *Nus(), 12L);
237: lequals(__LINE__, *Nus() & pG->l, 12L);
238: lequals(__LINE__, pG->l & *Nui(), 12L);
239: lequals(__LINE__, *Nui() & pG->l, 12L);
240: lequals(__LINE__, pG->l & *Nl(), 14L);
241: lequals(__LINE__, *Nl() & pG->l, 14L);
242: lequals(__LINE__, pG->l & *Nul(), 14L);
243: lequals(__LINE__, *Nul() & pG->l, 14L);
244: lequals(__LINE__, pG->ul & *Nc(), 7L);
245: lequals(__LINE__, *Nc() & pG->ul, 7L);
246: #if ANSI
247: lequals(__LINE__, pG->ul & *Nsc(), 8L);
248: lequals(__LINE__, *Nsc() & pG->ul, 8L);
249: #endif
250: lequals(__LINE__, pG->ul & *Ns(), 9L);
251: lequals(__LINE__, *Ns() & pG->ul, 9L);
252: lequals(__LINE__, pG->ul & *Ni(), 10L);
253: lequals(__LINE__, *Ni() & pG->ul, 10L);
254: lequals(__LINE__, pG->ul & *Nuc(), 11L);
255: lequals(__LINE__, *Nuc() & pG->ul, 11L);
256: lequals(__LINE__, pG->ul & *Nus(), 12L);
257: lequals(__LINE__, *Nus() & pG->ul, 12L);
258: lequals(__LINE__, pG->ul & *Nui(), 13L);
259: lequals(__LINE__, *Nui() & pG->ul, 13L);
260: lequals(__LINE__, pG->ul & *Nl(), 14L);
261: lequals(__LINE__, *Nl() & pG->ul, 14L);
262: lequals(__LINE__, pG->ul & *Nul(), 15L);
263: lequals(__LINE__, *Nul() & pG->ul, 15L);
264: }}
265: return report(Filename);
266: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.