![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to plueq1.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 plueq1.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 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 plueq1 ";
76: **ppCc = 7; *Nc() = 7;
77: **ppCc += *Nc();
78: iequals(__LINE__, **ppCc, (CHAR)14);
79: **ppCc = 7;
80: iequals(__LINE__, **ppCc += *Nc(), (CHAR)14);
81: *Nc() = 7; **ppCc = 7;
82: *Nc() += **ppCc;
83: iequals(__LINE__, *Nc(), (CHAR)14);
84: *Nc() = 7;
85: iequals(__LINE__, *Nc() += **ppCc, (CHAR)14);
86: #if ANSI
87: **ppCc = 7; *Nsc() = 8;
88: **ppCc += *Nsc();
89: iequals(__LINE__, **ppCc, (CHAR)15);
90: **ppCc = 7;
91: iequals(__LINE__, **ppCc += *Nsc(), (CHAR)15);
92: *Nsc() = 8; **ppCc = 7;
93: *Nsc() += **ppCc;
94: iequals(__LINE__, *Nsc(), (SCHAR)15);
95: *Nsc() = 8;
96: iequals(__LINE__, *Nsc() += **ppCc, (SCHAR)15);
97: #endif
98: **ppCc = 7; *Ns() = 9;
99: **ppCc += *Ns();
100: iequals(__LINE__, **ppCc, (CHAR)16);
101: **ppCc = 7;
102: iequals(__LINE__, **ppCc += *Ns(), (CHAR)16);
103: *Ns() = 9; **ppCc = 7;
104: *Ns() += **ppCc;
105: iequals(__LINE__, *Ns(), (SHORT)16);
106: *Ns() = 9;
107: iequals(__LINE__, *Ns() += **ppCc, (SHORT)16);
108: **ppCc = 7; *Ni() = 10;
109: **ppCc += *Ni();
110: iequals(__LINE__, **ppCc, (CHAR)17);
111: **ppCc = 7;
112: iequals(__LINE__, **ppCc += *Ni(), (CHAR)17);
113: *Ni() = 10; **ppCc = 7;
114: *Ni() += **ppCc;
115: iequals(__LINE__, *Ni(), (INT)17);
116: *Ni() = 10;
117: iequals(__LINE__, *Ni() += **ppCc, (INT)17);
118: **ppCc = 7; *Nuc() = 11;
119: **ppCc += *Nuc();
120: iequals(__LINE__, **ppCc, (CHAR)18);
121: **ppCc = 7;
122: iequals(__LINE__, **ppCc += *Nuc(), (CHAR)18);
123: *Nuc() = 11; **ppCc = 7;
124: *Nuc() += **ppCc;
125: iequals(__LINE__, *Nuc(), (UCHAR)18);
126: *Nuc() = 11;
127: iequals(__LINE__, *Nuc() += **ppCc, (UCHAR)18);
128: **ppCc = 7; *Nus() = 12;
129: **ppCc += *Nus();
130: iequals(__LINE__, **ppCc, (CHAR)19);
131: **ppCc = 7;
132: iequals(__LINE__, **ppCc += *Nus(), (CHAR)19);
133: *Nus() = 12; **ppCc = 7;
134: *Nus() += **ppCc;
135: iequals(__LINE__, *Nus(), (USHORT)19);
136: *Nus() = 12;
137: iequals(__LINE__, *Nus() += **ppCc, (USHORT)19);
138: **ppCc = 7; *Nui() = 13;
139: **ppCc += *Nui();
140: iequals(__LINE__, **ppCc, (CHAR)20);
141: **ppCc = 7;
142: iequals(__LINE__, **ppCc += *Nui(), (CHAR)20);
143: *Nui() = 13; **ppCc = 7;
144: *Nui() += **ppCc;
145: iequals(__LINE__, *Nui(), (UINT)20);
146: *Nui() = 13;
147: iequals(__LINE__, *Nui() += **ppCc, (UINT)20);
148: **ppCc = 7; *Nl() = 14;
149: **ppCc += *Nl();
150: iequals(__LINE__, **ppCc, (CHAR)21);
151: **ppCc = 7;
152: iequals(__LINE__, **ppCc += *Nl(), (CHAR)21);
153: *Nl() = 14; **ppCc = 7;
154: *Nl() += **ppCc;
155: lequals(__LINE__, *Nl(), (LONG)21L);
156: *Nl() = 14;
157: lequals(__LINE__, *Nl() += **ppCc, (LONG)21L);
158: **ppCc = 7; *Nul() = 15;
159: **ppCc += *Nul();
160: iequals(__LINE__, **ppCc, (CHAR)22);
161: **ppCc = 7;
162: iequals(__LINE__, **ppCc += *Nul(), (CHAR)22);
163: *Nul() = 15; **ppCc = 7;
164: *Nul() += **ppCc;
165: lequals(__LINE__, *Nul(), (ULONG)22L);
166: *Nul() = 15;
167: lequals(__LINE__, *Nul() += **ppCc, (ULONG)22L);
168: **ppCc = 7; *Nf() = 16;
169: **ppCc += *Nf();
170: iequals(__LINE__, **ppCc, (CHAR)23);
171: **ppCc = 7;
172: iequals(__LINE__, **ppCc += *Nf(), (CHAR)23);
173: *Nf() = 16; **ppCc = 7;
174: *Nf() += **ppCc;
175: dequals(__LINE__, *Nf(), (FLOAT)23.);
176: *Nf() = 16;
177: dequals(__LINE__, *Nf() += **ppCc, (FLOAT)23.);
178: **ppCc = 7; *Nd() = 17;
179: **ppCc += *Nd();
180: iequals(__LINE__, **ppCc, (CHAR)24);
181: **ppCc = 7;
182: iequals(__LINE__, **ppCc += *Nd(), (CHAR)24);
183: *Nd() = 17; **ppCc = 7;
184: *Nd() += **ppCc;
185: dequals(__LINE__, *Nd(), (DOUBLE)24.);
186: *Nd() = 17;
187: dequals(__LINE__, *Nd() += **ppCc, (DOUBLE)24.);
188: #if ANSI
189: **ppCc = 7; *Nld() = 18;
190: **ppCc += *Nld();
191: iequals(__LINE__, **ppCc, (CHAR)25);
192: **ppCc = 7;
193: iequals(__LINE__, **ppCc += *Nld(), (CHAR)25);
194: *Nld() = 18; **ppCc = 7;
195: *Nld() += **ppCc;
196: ldequals(__LINE__, *Nld(), (LDOUBLE)25.L);
197: *Nld() = 18;
198: ldequals(__LINE__, *Nld() += **ppCc, (LDOUBLE)25.L);
199: #endif
200: #if ANSI
201: **ppCsc = 8; *Nc() = 7;
202: **ppCsc += *Nc();
203: iequals(__LINE__, **ppCsc, (SCHAR)15);
204: **ppCsc = 8;
205: iequals(__LINE__, **ppCsc += *Nc(), (SCHAR)15);
206: *Nc() = 7; **ppCsc = 8;
207: *Nc() += **ppCsc;
208: iequals(__LINE__, *Nc(), (CHAR)15);
209: *Nc() = 7;
210: iequals(__LINE__, *Nc() += **ppCsc, (CHAR)15);
211: #endif
212: #if ANSI
213: **ppCsc = 8; *Nsc() = 8;
214: **ppCsc += *Nsc();
215: iequals(__LINE__, **ppCsc, (SCHAR)16);
216: **ppCsc = 8;
217: iequals(__LINE__, **ppCsc += *Nsc(), (SCHAR)16);
218: *Nsc() = 8; **ppCsc = 8;
219: *Nsc() += **ppCsc;
220: iequals(__LINE__, *Nsc(), (SCHAR)16);
221: *Nsc() = 8;
222: iequals(__LINE__, *Nsc() += **ppCsc, (SCHAR)16);
223: #endif
224: #if ANSI
225: **ppCsc = 8; *Ns() = 9;
226: **ppCsc += *Ns();
227: iequals(__LINE__, **ppCsc, (SCHAR)17);
228: **ppCsc = 8;
229: iequals(__LINE__, **ppCsc += *Ns(), (SCHAR)17);
230: *Ns() = 9; **ppCsc = 8;
231: *Ns() += **ppCsc;
232: iequals(__LINE__, *Ns(), (SHORT)17);
233: *Ns() = 9;
234: iequals(__LINE__, *Ns() += **ppCsc, (SHORT)17);
235: #endif
236: #if ANSI
237: **ppCsc = 8; *Ni() = 10;
238: **ppCsc += *Ni();
239: iequals(__LINE__, **ppCsc, (SCHAR)18);
240: **ppCsc = 8;
241: iequals(__LINE__, **ppCsc += *Ni(), (SCHAR)18);
242: *Ni() = 10; **ppCsc = 8;
243: *Ni() += **ppCsc;
244: iequals(__LINE__, *Ni(), (INT)18);
245: *Ni() = 10;
246: iequals(__LINE__, *Ni() += **ppCsc, (INT)18);
247: #endif
248: #if ANSI
249: **ppCsc = 8; *Nuc() = 11;
250: **ppCsc += *Nuc();
251: iequals(__LINE__, **ppCsc, (SCHAR)19);
252: **ppCsc = 8;
253: iequals(__LINE__, **ppCsc += *Nuc(), (SCHAR)19);
254: *Nuc() = 11; **ppCsc = 8;
255: *Nuc() += **ppCsc;
256: iequals(__LINE__, *Nuc(), (UCHAR)19);
257: *Nuc() = 11;
258: iequals(__LINE__, *Nuc() += **ppCsc, (UCHAR)19);
259: #endif
260: #if ANSI
261: **ppCsc = 8; *Nus() = 12;
262: **ppCsc += *Nus();
263: iequals(__LINE__, **ppCsc, (SCHAR)20);
264: **ppCsc = 8;
265: iequals(__LINE__, **ppCsc += *Nus(), (SCHAR)20);
266: *Nus() = 12; **ppCsc = 8;
267: *Nus() += **ppCsc;
268: iequals(__LINE__, *Nus(), (USHORT)20);
269: *Nus() = 12;
270: iequals(__LINE__, *Nus() += **ppCsc, (USHORT)20);
271: #endif
272: #if ANSI
273: **ppCsc = 8; *Nui() = 13;
274: **ppCsc += *Nui();
275: iequals(__LINE__, **ppCsc, (SCHAR)21);
276: **ppCsc = 8;
277: iequals(__LINE__, **ppCsc += *Nui(), (SCHAR)21);
278: *Nui() = 13; **ppCsc = 8;
279: *Nui() += **ppCsc;
280: iequals(__LINE__, *Nui(), (UINT)21);
281: *Nui() = 13;
282: iequals(__LINE__, *Nui() += **ppCsc, (UINT)21);
283: #endif
284: #if ANSI
285: **ppCsc = 8; *Nl() = 14;
286: **ppCsc += *Nl();
287: iequals(__LINE__, **ppCsc, (SCHAR)22);
288: **ppCsc = 8;
289: iequals(__LINE__, **ppCsc += *Nl(), (SCHAR)22);
290: *Nl() = 14; **ppCsc = 8;
291: *Nl() += **ppCsc;
292: lequals(__LINE__, *Nl(), (LONG)22L);
293: *Nl() = 14;
294: lequals(__LINE__, *Nl() += **ppCsc, (LONG)22L);
295: #endif
296: #if ANSI
297: **ppCsc = 8; *Nul() = 15;
298: **ppCsc += *Nul();
299: iequals(__LINE__, **ppCsc, (SCHAR)23);
300: **ppCsc = 8;
301: iequals(__LINE__, **ppCsc += *Nul(), (SCHAR)23);
302: *Nul() = 15; **ppCsc = 8;
303: *Nul() += **ppCsc;
304: lequals(__LINE__, *Nul(), (ULONG)23L);
305: *Nul() = 15;
306: lequals(__LINE__, *Nul() += **ppCsc, (ULONG)23L);
307: #endif
308: #if ANSI
309: **ppCsc = 8; *Nf() = 16;
310: **ppCsc += *Nf();
311: iequals(__LINE__, **ppCsc, (SCHAR)24);
312: **ppCsc = 8;
313: iequals(__LINE__, **ppCsc += *Nf(), (SCHAR)24);
314: *Nf() = 16; **ppCsc = 8;
315: *Nf() += **ppCsc;
316: dequals(__LINE__, *Nf(), (FLOAT)24.);
317: *Nf() = 16;
318: dequals(__LINE__, *Nf() += **ppCsc, (FLOAT)24.);
319: #endif
320: #if ANSI
321: **ppCsc = 8; *Nd() = 17;
322: **ppCsc += *Nd();
323: iequals(__LINE__, **ppCsc, (SCHAR)25);
324: **ppCsc = 8;
325: iequals(__LINE__, **ppCsc += *Nd(), (SCHAR)25);
326: *Nd() = 17; **ppCsc = 8;
327: *Nd() += **ppCsc;
328: dequals(__LINE__, *Nd(), (DOUBLE)25.);
329: *Nd() = 17;
330: dequals(__LINE__, *Nd() += **ppCsc, (DOUBLE)25.);
331: #endif
332: #if ANSI
333: **ppCsc = 8; *Nld() = 18;
334: **ppCsc += *Nld();
335: iequals(__LINE__, **ppCsc, (SCHAR)26);
336: **ppCsc = 8;
337: iequals(__LINE__, **ppCsc += *Nld(), (SCHAR)26);
338: *Nld() = 18; **ppCsc = 8;
339: *Nld() += **ppCsc;
340: ldequals(__LINE__, *Nld(), (LDOUBLE)26.L);
341: *Nld() = 18;
342: ldequals(__LINE__, *Nld() += **ppCsc, (LDOUBLE)26.L);
343: #endif
344: **ppCs = 9; *Nc() = 7;
345: **ppCs += *Nc();
346: iequals(__LINE__, **ppCs, (SHORT)16);
347: **ppCs = 9;
348: iequals(__LINE__, **ppCs += *Nc(), (SHORT)16);
349: *Nc() = 7; **ppCs = 9;
350: *Nc() += **ppCs;
351: iequals(__LINE__, *Nc(), (CHAR)16);
352: *Nc() = 7;
353: iequals(__LINE__, *Nc() += **ppCs, (CHAR)16);
354: #if ANSI
355: **ppCs = 9; *Nsc() = 8;
356: **ppCs += *Nsc();
357: iequals(__LINE__, **ppCs, (SHORT)17);
358: **ppCs = 9;
359: iequals(__LINE__, **ppCs += *Nsc(), (SHORT)17);
360: *Nsc() = 8; **ppCs = 9;
361: *Nsc() += **ppCs;
362: iequals(__LINE__, *Nsc(), (SCHAR)17);
363: *Nsc() = 8;
364: iequals(__LINE__, *Nsc() += **ppCs, (SCHAR)17);
365: #endif
366: **ppCs = 9; *Ns() = 9;
367: **ppCs += *Ns();
368: iequals(__LINE__, **ppCs, (SHORT)18);
369: **ppCs = 9;
370: iequals(__LINE__, **ppCs += *Ns(), (SHORT)18);
371: *Ns() = 9; **ppCs = 9;
372: *Ns() += **ppCs;
373: iequals(__LINE__, *Ns(), (SHORT)18);
374: *Ns() = 9;
375: iequals(__LINE__, *Ns() += **ppCs, (SHORT)18);
376: **ppCs = 9; *Ni() = 10;
377: **ppCs += *Ni();
378: iequals(__LINE__, **ppCs, (SHORT)19);
379: **ppCs = 9;
380: iequals(__LINE__, **ppCs += *Ni(), (SHORT)19);
381: *Ni() = 10; **ppCs = 9;
382: *Ni() += **ppCs;
383: iequals(__LINE__, *Ni(), (INT)19);
384: *Ni() = 10;
385: iequals(__LINE__, *Ni() += **ppCs, (INT)19);
386: **ppCs = 9; *Nuc() = 11;
387: **ppCs += *Nuc();
388: iequals(__LINE__, **ppCs, (SHORT)20);
389: **ppCs = 9;
390: iequals(__LINE__, **ppCs += *Nuc(), (SHORT)20);
391: *Nuc() = 11; **ppCs = 9;
392: *Nuc() += **ppCs;
393: iequals(__LINE__, *Nuc(), (UCHAR)20);
394: *Nuc() = 11;
395: iequals(__LINE__, *Nuc() += **ppCs, (UCHAR)20);
396: **ppCs = 9; *Nus() = 12;
397: **ppCs += *Nus();
398: iequals(__LINE__, **ppCs, (SHORT)21);
399: **ppCs = 9;
400: iequals(__LINE__, **ppCs += *Nus(), (SHORT)21);
401: *Nus() = 12; **ppCs = 9;
402: *Nus() += **ppCs;
403: iequals(__LINE__, *Nus(), (USHORT)21);
404: *Nus() = 12;
405: iequals(__LINE__, *Nus() += **ppCs, (USHORT)21);
406: **ppCs = 9; *Nui() = 13;
407: **ppCs += *Nui();
408: iequals(__LINE__, **ppCs, (SHORT)22);
409: **ppCs = 9;
410: iequals(__LINE__, **ppCs += *Nui(), (SHORT)22);
411: }}
412: return report(Filename);
413: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.