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