|
|
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 CHAR Cc = 7;
17: auto CHAR *pCc = &Cc;
18: auto CHAR **ppCc = &pCc;
19: #if ANSI
20: auto SCHAR Csc = 8;
21: auto SCHAR *pCsc = &Csc;
22: auto SCHAR **ppCsc = &pCsc;
23: #endif
24: auto SHORT Cs = 9;
25: auto SHORT *pCs = &Cs;
26: auto SHORT **ppCs = &pCs;
27: auto INT Ci = 10;
28: auto INT *pCi = &Ci;
29: auto INT **ppCi = &pCi;
30: auto UCHAR Cuc = 11;
31: auto UCHAR *pCuc = &Cuc;
32: auto UCHAR **ppCuc = &pCuc;
33: auto USHORT Cus = 12;
34: auto USHORT *pCus = &Cus;
35: auto USHORT **ppCus = &pCus;
36: auto UINT Cui = 13;
37: auto UINT *pCui = &Cui;
38: auto UINT **ppCui = &pCui;
39: auto LONG Cl = 14;
40: auto LONG *pCl = &Cl;
41: auto LONG **ppCl = &pCl;
42: auto ULONG Cul = 15;
43: auto ULONG *pCul = &Cul;
44: auto ULONG **ppCul = &pCul;
45: auto FLOAT Cf = 16;
46: auto FLOAT *pCf = &Cf;
47: auto FLOAT **ppCf = &pCf;
48: auto DOUBLE Cd = 17;
49: auto DOUBLE *pCd = &Cd;
50: auto DOUBLE **ppCd = &pCd;
51: #if ANSI
52: auto LDOUBLE Cld = 18;
53: auto LDOUBLE *pCld = &Cld;
54: auto LDOUBLE **ppCld = &pCld;
55: #endif
56: {
57: CHAR *Nc();
58: #if ANSI
59: SCHAR *Nsc();
60: #endif
61: SHORT *Ns();
62: INT *Ni();
63: UCHAR *Nuc();
64: USHORT *Nus();
65: UINT *Nui();
66: LONG *Nl();
67: ULONG *Nul();
68: FLOAT *Nf();
69: DOUBLE *Nd();
70: #if ANSI
71: LDOUBLE *Nld();
72: #endif
73: {
74: int true = 1, false = 0;
75: Filename = " auto pscalar2 auto funcrp plueq3 ";
76: *Nf() = 16; **ppCus = 12;
77: *Nf() += **ppCus;
78: dequals(__LINE__, *Nf(), (FLOAT)28.);
79: *Nf() = 16;
80: dequals(__LINE__, *Nf() += **ppCus, (FLOAT)28.);
81: **ppCus = 12; *Nd() = 17;
82: **ppCus += *Nd();
83: iequals(__LINE__, **ppCus, (USHORT)29);
84: **ppCus = 12;
85: iequals(__LINE__, **ppCus += *Nd(), (USHORT)29);
86: *Nd() = 17; **ppCus = 12;
87: *Nd() += **ppCus;
88: dequals(__LINE__, *Nd(), (DOUBLE)29.);
89: *Nd() = 17;
90: dequals(__LINE__, *Nd() += **ppCus, (DOUBLE)29.);
91: #if ANSI
92: **ppCus = 12; *Nld() = 18;
93: **ppCus += *Nld();
94: iequals(__LINE__, **ppCus, (USHORT)30);
95: **ppCus = 12;
96: iequals(__LINE__, **ppCus += *Nld(), (USHORT)30);
97: *Nld() = 18; **ppCus = 12;
98: *Nld() += **ppCus;
99: ldequals(__LINE__, *Nld(), (LDOUBLE)30.L);
100: *Nld() = 18;
101: ldequals(__LINE__, *Nld() += **ppCus, (LDOUBLE)30.L);
102: #endif
103: **ppCui = 13; *Nc() = 7;
104: **ppCui += *Nc();
105: iequals(__LINE__, **ppCui, (UINT)20);
106: **ppCui = 13;
107: iequals(__LINE__, **ppCui += *Nc(), (UINT)20);
108: *Nc() = 7; **ppCui = 13;
109: *Nc() += **ppCui;
110: iequals(__LINE__, *Nc(), (CHAR)20);
111: *Nc() = 7;
112: iequals(__LINE__, *Nc() += **ppCui, (CHAR)20);
113: #if ANSI
114: **ppCui = 13; *Nsc() = 8;
115: **ppCui += *Nsc();
116: iequals(__LINE__, **ppCui, (UINT)21);
117: **ppCui = 13;
118: iequals(__LINE__, **ppCui += *Nsc(), (UINT)21);
119: *Nsc() = 8; **ppCui = 13;
120: *Nsc() += **ppCui;
121: iequals(__LINE__, *Nsc(), (SCHAR)21);
122: *Nsc() = 8;
123: iequals(__LINE__, *Nsc() += **ppCui, (SCHAR)21);
124: #endif
125: **ppCui = 13; *Ns() = 9;
126: **ppCui += *Ns();
127: iequals(__LINE__, **ppCui, (UINT)22);
128: **ppCui = 13;
129: iequals(__LINE__, **ppCui += *Ns(), (UINT)22);
130: *Ns() = 9; **ppCui = 13;
131: *Ns() += **ppCui;
132: iequals(__LINE__, *Ns(), (SHORT)22);
133: *Ns() = 9;
134: iequals(__LINE__, *Ns() += **ppCui, (SHORT)22);
135: **ppCui = 13; *Ni() = 10;
136: **ppCui += *Ni();
137: iequals(__LINE__, **ppCui, (UINT)23);
138: **ppCui = 13;
139: iequals(__LINE__, **ppCui += *Ni(), (UINT)23);
140: *Ni() = 10; **ppCui = 13;
141: *Ni() += **ppCui;
142: iequals(__LINE__, *Ni(), (INT)23);
143: *Ni() = 10;
144: iequals(__LINE__, *Ni() += **ppCui, (INT)23);
145: **ppCui = 13; *Nuc() = 11;
146: **ppCui += *Nuc();
147: iequals(__LINE__, **ppCui, (UINT)24);
148: **ppCui = 13;
149: iequals(__LINE__, **ppCui += *Nuc(), (UINT)24);
150: *Nuc() = 11; **ppCui = 13;
151: *Nuc() += **ppCui;
152: iequals(__LINE__, *Nuc(), (UCHAR)24);
153: *Nuc() = 11;
154: iequals(__LINE__, *Nuc() += **ppCui, (UCHAR)24);
155: **ppCui = 13; *Nus() = 12;
156: **ppCui += *Nus();
157: iequals(__LINE__, **ppCui, (UINT)25);
158: **ppCui = 13;
159: iequals(__LINE__, **ppCui += *Nus(), (UINT)25);
160: *Nus() = 12; **ppCui = 13;
161: *Nus() += **ppCui;
162: iequals(__LINE__, *Nus(), (USHORT)25);
163: *Nus() = 12;
164: iequals(__LINE__, *Nus() += **ppCui, (USHORT)25);
165: **ppCui = 13; *Nui() = 13;
166: **ppCui += *Nui();
167: iequals(__LINE__, **ppCui, (UINT)26);
168: **ppCui = 13;
169: iequals(__LINE__, **ppCui += *Nui(), (UINT)26);
170: *Nui() = 13; **ppCui = 13;
171: *Nui() += **ppCui;
172: iequals(__LINE__, *Nui(), (UINT)26);
173: *Nui() = 13;
174: iequals(__LINE__, *Nui() += **ppCui, (UINT)26);
175: **ppCui = 13; *Nl() = 14;
176: **ppCui += *Nl();
177: iequals(__LINE__, **ppCui, (UINT)27);
178: **ppCui = 13;
179: iequals(__LINE__, **ppCui += *Nl(), (UINT)27);
180: *Nl() = 14; **ppCui = 13;
181: *Nl() += **ppCui;
182: lequals(__LINE__, *Nl(), (LONG)27L);
183: *Nl() = 14;
184: lequals(__LINE__, *Nl() += **ppCui, (LONG)27L);
185: **ppCui = 13; *Nul() = 15;
186: **ppCui += *Nul();
187: iequals(__LINE__, **ppCui, (UINT)28);
188: **ppCui = 13;
189: iequals(__LINE__, **ppCui += *Nul(), (UINT)28);
190: *Nul() = 15; **ppCui = 13;
191: *Nul() += **ppCui;
192: lequals(__LINE__, *Nul(), (ULONG)28L);
193: *Nul() = 15;
194: lequals(__LINE__, *Nul() += **ppCui, (ULONG)28L);
195: **ppCui = 13; *Nf() = 16;
196: **ppCui += *Nf();
197: iequals(__LINE__, **ppCui, (UINT)29);
198: **ppCui = 13;
199: iequals(__LINE__, **ppCui += *Nf(), (UINT)29);
200: *Nf() = 16; **ppCui = 13;
201: *Nf() += **ppCui;
202: dequals(__LINE__, *Nf(), (FLOAT)29.);
203: *Nf() = 16;
204: dequals(__LINE__, *Nf() += **ppCui, (FLOAT)29.);
205: **ppCui = 13; *Nd() = 17;
206: **ppCui += *Nd();
207: iequals(__LINE__, **ppCui, (UINT)30);
208: **ppCui = 13;
209: iequals(__LINE__, **ppCui += *Nd(), (UINT)30);
210: *Nd() = 17; **ppCui = 13;
211: *Nd() += **ppCui;
212: dequals(__LINE__, *Nd(), (DOUBLE)30.);
213: *Nd() = 17;
214: dequals(__LINE__, *Nd() += **ppCui, (DOUBLE)30.);
215: #if ANSI
216: **ppCui = 13; *Nld() = 18;
217: **ppCui += *Nld();
218: iequals(__LINE__, **ppCui, (UINT)31);
219: **ppCui = 13;
220: iequals(__LINE__, **ppCui += *Nld(), (UINT)31);
221: *Nld() = 18; **ppCui = 13;
222: *Nld() += **ppCui;
223: ldequals(__LINE__, *Nld(), (LDOUBLE)31.L);
224: *Nld() = 18;
225: ldequals(__LINE__, *Nld() += **ppCui, (LDOUBLE)31.L);
226: #endif
227: **ppCl = 14; *Nc() = 7;
228: **ppCl += *Nc();
229: lequals(__LINE__, **ppCl, (LONG)21L);
230: **ppCl = 14;
231: lequals(__LINE__, **ppCl += *Nc(), (LONG)21L);
232: *Nc() = 7; **ppCl = 14;
233: *Nc() += **ppCl;
234: iequals(__LINE__, *Nc(), (CHAR)21);
235: *Nc() = 7;
236: iequals(__LINE__, *Nc() += **ppCl, (CHAR)21);
237: #if ANSI
238: **ppCl = 14; *Nsc() = 8;
239: **ppCl += *Nsc();
240: lequals(__LINE__, **ppCl, (LONG)22L);
241: **ppCl = 14;
242: lequals(__LINE__, **ppCl += *Nsc(), (LONG)22L);
243: *Nsc() = 8; **ppCl = 14;
244: *Nsc() += **ppCl;
245: iequals(__LINE__, *Nsc(), (SCHAR)22);
246: *Nsc() = 8;
247: iequals(__LINE__, *Nsc() += **ppCl, (SCHAR)22);
248: #endif
249: **ppCl = 14; *Ns() = 9;
250: **ppCl += *Ns();
251: lequals(__LINE__, **ppCl, (LONG)23L);
252: **ppCl = 14;
253: lequals(__LINE__, **ppCl += *Ns(), (LONG)23L);
254: *Ns() = 9; **ppCl = 14;
255: *Ns() += **ppCl;
256: iequals(__LINE__, *Ns(), (SHORT)23);
257: *Ns() = 9;
258: iequals(__LINE__, *Ns() += **ppCl, (SHORT)23);
259: **ppCl = 14; *Ni() = 10;
260: **ppCl += *Ni();
261: lequals(__LINE__, **ppCl, (LONG)24L);
262: **ppCl = 14;
263: lequals(__LINE__, **ppCl += *Ni(), (LONG)24L);
264: *Ni() = 10; **ppCl = 14;
265: *Ni() += **ppCl;
266: iequals(__LINE__, *Ni(), (INT)24);
267: *Ni() = 10;
268: iequals(__LINE__, *Ni() += **ppCl, (INT)24);
269: **ppCl = 14; *Nuc() = 11;
270: **ppCl += *Nuc();
271: lequals(__LINE__, **ppCl, (LONG)25L);
272: **ppCl = 14;
273: lequals(__LINE__, **ppCl += *Nuc(), (LONG)25L);
274: *Nuc() = 11; **ppCl = 14;
275: *Nuc() += **ppCl;
276: iequals(__LINE__, *Nuc(), (UCHAR)25);
277: *Nuc() = 11;
278: iequals(__LINE__, *Nuc() += **ppCl, (UCHAR)25);
279: **ppCl = 14; *Nus() = 12;
280: **ppCl += *Nus();
281: lequals(__LINE__, **ppCl, (LONG)26L);
282: **ppCl = 14;
283: lequals(__LINE__, **ppCl += *Nus(), (LONG)26L);
284: *Nus() = 12; **ppCl = 14;
285: *Nus() += **ppCl;
286: iequals(__LINE__, *Nus(), (USHORT)26);
287: *Nus() = 12;
288: iequals(__LINE__, *Nus() += **ppCl, (USHORT)26);
289: **ppCl = 14; *Nui() = 13;
290: **ppCl += *Nui();
291: lequals(__LINE__, **ppCl, (LONG)27L);
292: **ppCl = 14;
293: lequals(__LINE__, **ppCl += *Nui(), (LONG)27L);
294: *Nui() = 13; **ppCl = 14;
295: *Nui() += **ppCl;
296: iequals(__LINE__, *Nui(), (UINT)27);
297: *Nui() = 13;
298: iequals(__LINE__, *Nui() += **ppCl, (UINT)27);
299: **ppCl = 14; *Nl() = 14;
300: **ppCl += *Nl();
301: lequals(__LINE__, **ppCl, (LONG)28L);
302: **ppCl = 14;
303: lequals(__LINE__, **ppCl += *Nl(), (LONG)28L);
304: *Nl() = 14; **ppCl = 14;
305: *Nl() += **ppCl;
306: lequals(__LINE__, *Nl(), (LONG)28L);
307: *Nl() = 14;
308: lequals(__LINE__, *Nl() += **ppCl, (LONG)28L);
309: **ppCl = 14; *Nul() = 15;
310: **ppCl += *Nul();
311: lequals(__LINE__, **ppCl, (LONG)29L);
312: **ppCl = 14;
313: lequals(__LINE__, **ppCl += *Nul(), (LONG)29L);
314: *Nul() = 15; **ppCl = 14;
315: *Nul() += **ppCl;
316: lequals(__LINE__, *Nul(), (ULONG)29L);
317: *Nul() = 15;
318: lequals(__LINE__, *Nul() += **ppCl, (ULONG)29L);
319: **ppCl = 14; *Nf() = 16;
320: **ppCl += *Nf();
321: lequals(__LINE__, **ppCl, (LONG)30L);
322: **ppCl = 14;
323: lequals(__LINE__, **ppCl += *Nf(), (LONG)30L);
324: *Nf() = 16; **ppCl = 14;
325: *Nf() += **ppCl;
326: dequals(__LINE__, *Nf(), (FLOAT)30.);
327: *Nf() = 16;
328: dequals(__LINE__, *Nf() += **ppCl, (FLOAT)30.);
329: **ppCl = 14; *Nd() = 17;
330: **ppCl += *Nd();
331: lequals(__LINE__, **ppCl, (LONG)31L);
332: **ppCl = 14;
333: lequals(__LINE__, **ppCl += *Nd(), (LONG)31L);
334: *Nd() = 17; **ppCl = 14;
335: *Nd() += **ppCl;
336: dequals(__LINE__, *Nd(), (DOUBLE)31.);
337: *Nd() = 17;
338: dequals(__LINE__, *Nd() += **ppCl, (DOUBLE)31.);
339: #if ANSI
340: **ppCl = 14; *Nld() = 18;
341: **ppCl += *Nld();
342: lequals(__LINE__, **ppCl, (LONG)32L);
343: **ppCl = 14;
344: lequals(__LINE__, **ppCl += *Nld(), (LONG)32L);
345: *Nld() = 18; **ppCl = 14;
346: *Nld() += **ppCl;
347: ldequals(__LINE__, *Nld(), (LDOUBLE)32.L);
348: *Nld() = 18;
349: ldequals(__LINE__, *Nld() += **ppCl, (LDOUBLE)32.L);
350: #endif
351: **ppCul = 15; *Nc() = 7;
352: **ppCul += *Nc();
353: lequals(__LINE__, **ppCul, (ULONG)22L);
354: **ppCul = 15;
355: lequals(__LINE__, **ppCul += *Nc(), (ULONG)22L);
356: *Nc() = 7; **ppCul = 15;
357: *Nc() += **ppCul;
358: iequals(__LINE__, *Nc(), (CHAR)22);
359: *Nc() = 7;
360: iequals(__LINE__, *Nc() += **ppCul, (CHAR)22);
361: #if ANSI
362: **ppCul = 15; *Nsc() = 8;
363: **ppCul += *Nsc();
364: lequals(__LINE__, **ppCul, (ULONG)23L);
365: **ppCul = 15;
366: lequals(__LINE__, **ppCul += *Nsc(), (ULONG)23L);
367: *Nsc() = 8; **ppCul = 15;
368: *Nsc() += **ppCul;
369: iequals(__LINE__, *Nsc(), (SCHAR)23);
370: *Nsc() = 8;
371: iequals(__LINE__, *Nsc() += **ppCul, (SCHAR)23);
372: #endif
373: **ppCul = 15; *Ns() = 9;
374: **ppCul += *Ns();
375: lequals(__LINE__, **ppCul, (ULONG)24L);
376: **ppCul = 15;
377: lequals(__LINE__, **ppCul += *Ns(), (ULONG)24L);
378: *Ns() = 9; **ppCul = 15;
379: *Ns() += **ppCul;
380: iequals(__LINE__, *Ns(), (SHORT)24);
381: *Ns() = 9;
382: iequals(__LINE__, *Ns() += **ppCul, (SHORT)24);
383: **ppCul = 15; *Ni() = 10;
384: **ppCul += *Ni();
385: lequals(__LINE__, **ppCul, (ULONG)25L);
386: **ppCul = 15;
387: lequals(__LINE__, **ppCul += *Ni(), (ULONG)25L);
388: *Ni() = 10; **ppCul = 15;
389: *Ni() += **ppCul;
390: iequals(__LINE__, *Ni(), (INT)25);
391: *Ni() = 10;
392: iequals(__LINE__, *Ni() += **ppCul, (INT)25);
393: **ppCul = 15; *Nuc() = 11;
394: **ppCul += *Nuc();
395: lequals(__LINE__, **ppCul, (ULONG)26L);
396: **ppCul = 15;
397: lequals(__LINE__, **ppCul += *Nuc(), (ULONG)26L);
398: *Nuc() = 11; **ppCul = 15;
399: *Nuc() += **ppCul;
400: iequals(__LINE__, *Nuc(), (UCHAR)26);
401: *Nuc() = 11;
402: iequals(__LINE__, *Nuc() += **ppCul, (UCHAR)26);
403: **ppCul = 15; *Nus() = 12;
404: **ppCul += *Nus();
405: lequals(__LINE__, **ppCul, (ULONG)27L);
406: **ppCul = 15;
407: lequals(__LINE__, **ppCul += *Nus(), (ULONG)27L);
408: *Nus() = 12; **ppCul = 15;
409: *Nus() += **ppCul;
410: iequals(__LINE__, *Nus(), (USHORT)27);
411: *Nus() = 12;
412: iequals(__LINE__, *Nus() += **ppCul, (USHORT)27);
413: **ppCul = 15; *Nui() = 13;
414: **ppCul += *Nui();
415: lequals(__LINE__, **ppCul, (ULONG)28L);
416: **ppCul = 15;
417: lequals(__LINE__, **ppCul += *Nui(), (ULONG)28L);
418: *Nui() = 13; **ppCul = 15;
419: *Nui() += **ppCul;
420: iequals(__LINE__, *Nui(), (UINT)28);
421: *Nui() = 13;
422: iequals(__LINE__, *Nui() += **ppCul, (UINT)28);
423: **ppCul = 15; *Nl() = 14;
424: **ppCul += *Nl();
425: lequals(__LINE__, **ppCul, (ULONG)29L);
426: **ppCul = 15;
427: lequals(__LINE__, **ppCul += *Nl(), (ULONG)29L);
428: *Nl() = 14; **ppCul = 15;
429: *Nl() += **ppCul;
430: lequals(__LINE__, *Nl(), (LONG)29L);
431: *Nl() = 14;
432: lequals(__LINE__, *Nl() += **ppCul, (LONG)29L);
433: **ppCul = 15; *Nul() = 15;
434: **ppCul += *Nul();
435: lequals(__LINE__, **ppCul, (ULONG)30L);
436: **ppCul = 15;
437: lequals(__LINE__, **ppCul += *Nul(), (ULONG)30L);
438: *Nul() = 15; **ppCul = 15;
439: *Nul() += **ppCul;
440: lequals(__LINE__, *Nul(), (ULONG)30L);
441: *Nul() = 15;
442: lequals(__LINE__, *Nul() += **ppCul, (ULONG)30L);
443: **ppCul = 15; *Nf() = 16;
444: **ppCul += *Nf();
445: lequals(__LINE__, **ppCul, (ULONG)31L);
446: **ppCul = 15;
447: lequals(__LINE__, **ppCul += *Nf(), (ULONG)31L);
448: *Nf() = 16; **ppCul = 15;
449: *Nf() += **ppCul;
450: dequals(__LINE__, *Nf(), (FLOAT)31.);
451: *Nf() = 16;
452: dequals(__LINE__, *Nf() += **ppCul, (FLOAT)31.);
453: **ppCul = 15; *Nd() = 17;
454: **ppCul += *Nd();
455: lequals(__LINE__, **ppCul, (ULONG)32L);
456: **ppCul = 15;
457: lequals(__LINE__, **ppCul += *Nd(), (ULONG)32L);
458: *Nd() = 17; **ppCul = 15;
459: *Nd() += **ppCul;
460: dequals(__LINE__, *Nd(), (DOUBLE)32.);
461: *Nd() = 17;
462: dequals(__LINE__, *Nd() += **ppCul, (DOUBLE)32.);
463: #if ANSI
464: **ppCul = 15; *Nld() = 18;
465: **ppCul += *Nld();
466: lequals(__LINE__, **ppCul, (ULONG)33L);
467: **ppCul = 15;
468: lequals(__LINE__, **ppCul += *Nld(), (ULONG)33L);
469: *Nld() = 18; **ppCul = 15;
470: *Nld() += **ppCul;
471: ldequals(__LINE__, *Nld(), (LDOUBLE)33.L);
472: *Nld() = 18;
473: ldequals(__LINE__, *Nld() += **ppCul, (LDOUBLE)33.L);
474: #endif
475: }}
476: return report(Filename);
477: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.