![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to timeq1.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 timeq1.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: int main()
13: {
14: extern char *Filename;
15: auto CHAR Ac = 7;
16: #if ANSI
17: auto SCHAR Asc = 8;
18: #endif
19: auto SHORT As = 9;
20: auto INT Ai = 10;
21: auto UCHAR Auc = 11;
22: auto USHORT Aus = 12;
23: auto UINT Aui = 13;
24: auto LONG Al = 14;
25: auto ULONG Aul = 15;
26: auto FLOAT Af = 16;
27: auto DOUBLE Ad = 17;
28: #if ANSI
29: auto LDOUBLE Ald = 18;
30: #endif
31: {
32: typedef union {
33: CHAR c;
34: SHORT s;
35: INT i;
36: UCHAR uc;
37: USHORT us;
38: UINT ui;
39: LONG l;
40: ULONG ul;
41: FLOAT f;
42: DOUBLE d;
43: #if ANSI
44: SCHAR sc;
45: LDOUBLE ld;
46: #endif
47: } D;
48: auto D D1;
49: #if ANSI
50: auto D D2;
51: #endif
52: auto D D3;
53: auto D D4;
54: auto D D5;
55: auto D D6;
56: auto D D7;
57: auto D D8;
58: auto D D9;
59: auto D D10;
60: auto D D11;
61: #if ANSI
62: auto D D12;
63: #endif
64: D1.c = 7;
65: #if ANSI
66: D2.sc = 8;
67: #endif
68: D3.s = 9;
69: D4.i = 10;
70: D5.uc = 11;
71: D6.us = 12;
72: D7.ui = 13;
73: D8.l = 14;
74: D9.ul = 15;
75: D10.f = 16;
76: D11.d = 17;
77: #if ANSI
78: D12.ld = 18;
79: #endif
80: {
81: int true = 1, false = 0;
82: Filename = " auto scalar auto union timeq1 ";
83: Ac = 7; D1.c = 7;
84: Ac *= D1.c;
85: iequals(__LINE__, Ac, (CHAR)49);
86: Ac = 7;
87: iequals(__LINE__, Ac *= D1.c, (CHAR)49);
88: D1.c = 7; Ac = 7;
89: D1.c *= Ac;
90: iequals(__LINE__, D1.c, (CHAR)49);
91: D1.c = 7;
92: iequals(__LINE__, D1.c *= Ac, (CHAR)49);
93: #if ANSI
94: Ac = 7; D2.sc = 8;
95: Ac *= D2.sc;
96: iequals(__LINE__, Ac, (CHAR)56);
97: Ac = 7;
98: iequals(__LINE__, Ac *= D2.sc, (CHAR)56);
99: D2.sc = 8; Ac = 7;
100: D2.sc *= Ac;
101: iequals(__LINE__, D2.sc, (SCHAR)56);
102: D2.sc = 8;
103: iequals(__LINE__, D2.sc *= Ac, (SCHAR)56);
104: #endif
105: Ac = 7; D3.s = 9;
106: Ac *= D3.s;
107: iequals(__LINE__, Ac, (CHAR)63);
108: Ac = 7;
109: iequals(__LINE__, Ac *= D3.s, (CHAR)63);
110: D3.s = 9; Ac = 7;
111: D3.s *= Ac;
112: iequals(__LINE__, D3.s, (SHORT)63);
113: D3.s = 9;
114: iequals(__LINE__, D3.s *= Ac, (SHORT)63);
115: Ac = 7; D4.i = 10;
116: Ac *= D4.i;
117: iequals(__LINE__, Ac, (CHAR)70);
118: Ac = 7;
119: iequals(__LINE__, Ac *= D4.i, (CHAR)70);
120: D4.i = 10; Ac = 7;
121: D4.i *= Ac;
122: iequals(__LINE__, D4.i, (INT)70);
123: D4.i = 10;
124: iequals(__LINE__, D4.i *= Ac, (INT)70);
125: Ac = 7; D5.uc = 11;
126: Ac *= D5.uc;
127: iequals(__LINE__, Ac, (CHAR)77);
128: Ac = 7;
129: iequals(__LINE__, Ac *= D5.uc, (CHAR)77);
130: D5.uc = 11; Ac = 7;
131: D5.uc *= Ac;
132: iequals(__LINE__, D5.uc, (UCHAR)77);
133: D5.uc = 11;
134: iequals(__LINE__, D5.uc *= Ac, (UCHAR)77);
135: Ac = 7; D6.us = 12;
136: Ac *= D6.us;
137: iequals(__LINE__, Ac, (CHAR)84);
138: Ac = 7;
139: iequals(__LINE__, Ac *= D6.us, (CHAR)84);
140: D6.us = 12; Ac = 7;
141: D6.us *= Ac;
142: iequals(__LINE__, D6.us, (USHORT)84);
143: D6.us = 12;
144: iequals(__LINE__, D6.us *= Ac, (USHORT)84);
145: Ac = 7; D7.ui = 13;
146: Ac *= D7.ui;
147: iequals(__LINE__, Ac, (CHAR)91);
148: Ac = 7;
149: iequals(__LINE__, Ac *= D7.ui, (CHAR)91);
150: D7.ui = 13; Ac = 7;
151: D7.ui *= Ac;
152: iequals(__LINE__, D7.ui, (UINT)91);
153: D7.ui = 13;
154: iequals(__LINE__, D7.ui *= Ac, (UINT)91);
155: Ac = 7; D8.l = 14;
156: Ac *= D8.l;
157: iequals(__LINE__, Ac, (CHAR)98);
158: Ac = 7;
159: iequals(__LINE__, Ac *= D8.l, (CHAR)98);
160: D8.l = 14; Ac = 7;
161: D8.l *= Ac;
162: lequals(__LINE__, D8.l, (LONG)98L);
163: D8.l = 14;
164: lequals(__LINE__, D8.l *= Ac, (LONG)98L);
165: Ac = 7; D9.ul = 15;
166: Ac *= D9.ul;
167: iequals(__LINE__, Ac, (CHAR)105);
168: Ac = 7;
169: iequals(__LINE__, Ac *= D9.ul, (CHAR)105);
170: D9.ul = 15; Ac = 7;
171: D9.ul *= Ac;
172: lequals(__LINE__, D9.ul, (ULONG)105L);
173: D9.ul = 15;
174: lequals(__LINE__, D9.ul *= Ac, (ULONG)105L);
175: Ac = 7; D10.f = 16;
176: Ac *= D10.f;
177: iequals(__LINE__, Ac, (CHAR)112);
178: Ac = 7;
179: iequals(__LINE__, Ac *= D10.f, (CHAR)112);
180: D10.f = 16; Ac = 7;
181: D10.f *= Ac;
182: dequals(__LINE__, D10.f, (FLOAT)112.);
183: D10.f = 16;
184: dequals(__LINE__, D10.f *= Ac, (FLOAT)112.);
185: Ac = 7; D11.d = 17;
186: Ac *= D11.d;
187: iequals(__LINE__, Ac, (CHAR)119);
188: Ac = 7;
189: iequals(__LINE__, Ac *= D11.d, (CHAR)119);
190: D11.d = 17; Ac = 7;
191: D11.d *= Ac;
192: dequals(__LINE__, D11.d, (DOUBLE)119.);
193: D11.d = 17;
194: dequals(__LINE__, D11.d *= Ac, (DOUBLE)119.);
195: #if ANSI
196: Ac = 7; D12.ld = 18;
197: Ac *= D12.ld;
198: iequals(__LINE__, Ac, (CHAR)126);
199: Ac = 7;
200: iequals(__LINE__, Ac *= D12.ld, (CHAR)126);
201: D12.ld = 18; Ac = 7;
202: D12.ld *= Ac;
203: ldequals(__LINE__, D12.ld, (LDOUBLE)126.L);
204: D12.ld = 18;
205: ldequals(__LINE__, D12.ld *= Ac, (LDOUBLE)126.L);
206: #endif
207: #if ANSI
208: Asc = 8; D1.c = 7;
209: Asc *= D1.c;
210: iequals(__LINE__, Asc, (SCHAR)56);
211: Asc = 8;
212: iequals(__LINE__, Asc *= D1.c, (SCHAR)56);
213: D1.c = 7; Asc = 8;
214: D1.c *= Asc;
215: iequals(__LINE__, D1.c, (CHAR)56);
216: D1.c = 7;
217: iequals(__LINE__, D1.c *= Asc, (CHAR)56);
218: #endif
219: #if ANSI
220: Asc = 8; D2.sc = 8;
221: Asc *= D2.sc;
222: iequals(__LINE__, Asc, (SCHAR)64);
223: Asc = 8;
224: iequals(__LINE__, Asc *= D2.sc, (SCHAR)64);
225: D2.sc = 8; Asc = 8;
226: D2.sc *= Asc;
227: iequals(__LINE__, D2.sc, (SCHAR)64);
228: D2.sc = 8;
229: iequals(__LINE__, D2.sc *= Asc, (SCHAR)64);
230: #endif
231: #if ANSI
232: Asc = 8; D3.s = 9;
233: Asc *= D3.s;
234: iequals(__LINE__, Asc, (SCHAR)72);
235: Asc = 8;
236: iequals(__LINE__, Asc *= D3.s, (SCHAR)72);
237: D3.s = 9; Asc = 8;
238: D3.s *= Asc;
239: iequals(__LINE__, D3.s, (SHORT)72);
240: D3.s = 9;
241: iequals(__LINE__, D3.s *= Asc, (SHORT)72);
242: #endif
243: #if ANSI
244: Asc = 8; D4.i = 10;
245: Asc *= D4.i;
246: iequals(__LINE__, Asc, (SCHAR)80);
247: Asc = 8;
248: iequals(__LINE__, Asc *= D4.i, (SCHAR)80);
249: D4.i = 10; Asc = 8;
250: D4.i *= Asc;
251: iequals(__LINE__, D4.i, (INT)80);
252: D4.i = 10;
253: iequals(__LINE__, D4.i *= Asc, (INT)80);
254: #endif
255: #if ANSI
256: Asc = 8; D5.uc = 11;
257: Asc *= D5.uc;
258: iequals(__LINE__, Asc, (SCHAR)88);
259: Asc = 8;
260: iequals(__LINE__, Asc *= D5.uc, (SCHAR)88);
261: D5.uc = 11; Asc = 8;
262: D5.uc *= Asc;
263: iequals(__LINE__, D5.uc, (UCHAR)88);
264: D5.uc = 11;
265: iequals(__LINE__, D5.uc *= Asc, (UCHAR)88);
266: #endif
267: #if ANSI
268: Asc = 8; D6.us = 12;
269: Asc *= D6.us;
270: iequals(__LINE__, Asc, (SCHAR)96);
271: Asc = 8;
272: iequals(__LINE__, Asc *= D6.us, (SCHAR)96);
273: D6.us = 12; Asc = 8;
274: D6.us *= Asc;
275: iequals(__LINE__, D6.us, (USHORT)96);
276: D6.us = 12;
277: iequals(__LINE__, D6.us *= Asc, (USHORT)96);
278: #endif
279: #if ANSI
280: Asc = 8; D7.ui = 13;
281: Asc *= D7.ui;
282: iequals(__LINE__, Asc, (SCHAR)104);
283: Asc = 8;
284: iequals(__LINE__, Asc *= D7.ui, (SCHAR)104);
285: D7.ui = 13; Asc = 8;
286: D7.ui *= Asc;
287: iequals(__LINE__, D7.ui, (UINT)104);
288: D7.ui = 13;
289: iequals(__LINE__, D7.ui *= Asc, (UINT)104);
290: #endif
291: #if ANSI
292: Asc = 8; D8.l = 14;
293: Asc *= D8.l;
294: iequals(__LINE__, Asc, (SCHAR)112);
295: Asc = 8;
296: iequals(__LINE__, Asc *= D8.l, (SCHAR)112);
297: D8.l = 14; Asc = 8;
298: D8.l *= Asc;
299: lequals(__LINE__, D8.l, (LONG)112L);
300: D8.l = 14;
301: lequals(__LINE__, D8.l *= Asc, (LONG)112L);
302: #endif
303: #if ANSI
304: Asc = 8; D9.ul = 15;
305: Asc *= D9.ul;
306: iequals(__LINE__, Asc, (SCHAR)120);
307: Asc = 8;
308: iequals(__LINE__, Asc *= D9.ul, (SCHAR)120);
309: D9.ul = 15; Asc = 8;
310: D9.ul *= Asc;
311: lequals(__LINE__, D9.ul, (ULONG)120L);
312: D9.ul = 15;
313: lequals(__LINE__, D9.ul *= Asc, (ULONG)120L);
314: #endif
315: #if ANSI
316: Asc = 8; D10.f = 15;
317: Asc *= D10.f;
318: iequals(__LINE__, Asc, (SCHAR)120);
319: Asc = 8;
320: iequals(__LINE__, Asc *= D10.f, (SCHAR)120);
321: D10.f = 15; Asc = 8;
322: D10.f *= Asc;
323: dequals(__LINE__, D10.f, (FLOAT)120.);
324: D10.f = 15;
325: dequals(__LINE__, D10.f *= Asc, (FLOAT)120.);
326: #endif
327: #if ANSI
328: Asc = 8; D11.d = 15;
329: Asc *= D11.d;
330: iequals(__LINE__, Asc, (SCHAR)120);
331: Asc = 8;
332: iequals(__LINE__, Asc *= D11.d, (SCHAR)120);
333: D11.d = 15; Asc = 8;
334: D11.d *= Asc;
335: dequals(__LINE__, D11.d, (DOUBLE)120.);
336: D11.d = 15;
337: dequals(__LINE__, D11.d *= Asc, (DOUBLE)120.);
338: #endif
339: #if ANSI
340: Asc = 8; D12.ld = 15;
341: Asc *= D12.ld;
342: iequals(__LINE__, Asc, (SCHAR)120);
343: Asc = 8;
344: iequals(__LINE__, Asc *= D12.ld, (SCHAR)120);
345: D12.ld = 15; Asc = 8;
346: D12.ld *= Asc;
347: ldequals(__LINE__, D12.ld, (LDOUBLE)120.L);
348: D12.ld = 15;
349: ldequals(__LINE__, D12.ld *= Asc, (LDOUBLE)120.L);
350: #endif
351: As = 9; D1.c = 7;
352: As *= D1.c;
353: iequals(__LINE__, As, (SHORT)63);
354: As = 9;
355: iequals(__LINE__, As *= D1.c, (SHORT)63);
356: D1.c = 7; As = 9;
357: D1.c *= As;
358: iequals(__LINE__, D1.c, (CHAR)63);
359: D1.c = 7;
360: iequals(__LINE__, D1.c *= As, (CHAR)63);
361: #if ANSI
362: As = 9; D2.sc = 8;
363: As *= D2.sc;
364: iequals(__LINE__, As, (SHORT)72);
365: As = 9;
366: iequals(__LINE__, As *= D2.sc, (SHORT)72);
367: D2.sc = 8; As = 9;
368: D2.sc *= As;
369: iequals(__LINE__, D2.sc, (SCHAR)72);
370: D2.sc = 8;
371: iequals(__LINE__, D2.sc *= As, (SCHAR)72);
372: #endif
373: As = 9; D3.s = 9;
374: As *= D3.s;
375: iequals(__LINE__, As, (SHORT)81);
376: As = 9;
377: iequals(__LINE__, As *= D3.s, (SHORT)81);
378: D3.s = 9; As = 9;
379: D3.s *= As;
380: iequals(__LINE__, D3.s, (SHORT)81);
381: D3.s = 9;
382: iequals(__LINE__, D3.s *= As, (SHORT)81);
383: As = 9; D4.i = 10;
384: As *= D4.i;
385: iequals(__LINE__, As, (SHORT)90);
386: As = 9;
387: iequals(__LINE__, As *= D4.i, (SHORT)90);
388: D4.i = 10; As = 9;
389: D4.i *= As;
390: iequals(__LINE__, D4.i, (INT)90);
391: D4.i = 10;
392: iequals(__LINE__, D4.i *= As, (INT)90);
393: As = 9; D5.uc = 11;
394: As *= D5.uc;
395: iequals(__LINE__, As, (SHORT)99);
396: As = 9;
397: iequals(__LINE__, As *= D5.uc, (SHORT)99);
398: D5.uc = 11; As = 9;
399: D5.uc *= As;
400: iequals(__LINE__, D5.uc, (UCHAR)99);
401: D5.uc = 11;
402: iequals(__LINE__, D5.uc *= As, (UCHAR)99);
403: As = 9; D6.us = 12;
404: As *= D6.us;
405: iequals(__LINE__, As, (SHORT)108);
406: As = 9;
407: iequals(__LINE__, As *= D6.us, (SHORT)108);
408: D6.us = 12; As = 9;
409: D6.us *= As;
410: iequals(__LINE__, D6.us, (USHORT)108);
411: D6.us = 12;
412: iequals(__LINE__, D6.us *= As, (USHORT)108);
413: }}
414: return report(Filename);
415: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.