2 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
3 * See the copyright notice in the ACK home directory, in the file "Copyright".
9 char rcs_id[] = "$Id$" ;
11 /* This program can be used to test C-compilers */
13 int i,j,k,l,m,ect,pct,t,*p1;
16 float a2[20],xf,yf,zf;
17 double a3[20],xd,yd,zd;
39 test1();test2();test3();
41 test6();test7();test8();
46 printf("program test1\n");
47 printf("%d tests completed. Number of errors = %d\n",pct,ect);
52 register char *retval ;
56 if ( alptr-alstr>sizeof alstr ) {
57 printf("allocation overflow\n") ;
63 int abs(a) int a ; { return ( a<0 ? -a : a) ; }
65 double fabs(a) double a ; { return( a<0 ? -a : a) ; }
69 { ect++; printf("error %d in test %d \n",n,t);
75 /***********************************************************************/
78 /*arithmetic on constants */
81 if (3333 + 258 != 3591) e(2);
83 if (111*111 != 12321) e(4);
84 if (50 / 5 != 10) e(5);
85 if (7498 / 75 != 99) e(6);
86 if (456 - 345 != 111) e(7);
87 if (1+(-2) != -1) e(8);
88 if (-3 * -4 != 12) e(9);
89 if (-2 / 2 != -1) e(10);
90 if (-5 / 1 != -5 ) e(11);
91 if (-4 - -5 != 1) e(12);
92 if ( 03 + 02 != 05) e(13);
93 if ( 03456 + 88 != 03606 ) e(14);
94 if ( 0100 * 23 != 02700 ) e(15);
95 if ( 045 / 020 != 2) e(16);
96 if (0472 - 0377 != 073 ) e(17);
97 if ('a' + 3 != 100) e(18);
98 if ('a' + 'c' != 'b' + 'b') e(19);
99 if ( 'z' * 'z' != 14884 ) e(20);
100 if ( -'z' / 01 != -'z' ) e(21);
101 if ( 077777 >> 3 != 07777 ) e(22);
102 if ( 077777 >> 15 ) e(23);
103 if ( 234 << 6 != 234 << 6 ) e(24);
104 if ( 0124 & 07765 != 0124 ) e(25);
105 if ( 34 & 31 != 2 ) e(26);
106 if ( ( -4 | 3 ) != -1 ) e(27);
107 if ( ( 5 | 013 | 020 ) != 31 ) e(28);
108 if ( ( -7 ^ 3 ) != -6 ) e(29);
109 if ( ( 07373 ^ 4632 ) != 016343 ) e(30);
110 if ( (1+2+3)*(2+3+4)*(3+5+5) / 2 != ((3*((5+3+2)*10)+51)*6)/6 ) e(31);
111 if ( (1000*2+5*7+13)/ 8 != 2*2*2*2*4*4 ) e(32);
112 if ((1*2*3*4*5*6*7 / 5040 !=
113 5040 / 7 / 6 / 5 / 4 / 3 / 2 / 1 )) e(33);
114 if ( -(-(-(-(-(-(1)))))) != 1 ) e(34);
115 if (- 1 != -((((((((((1)))))))))) ) e(35);
116 if ( -1-1-1-1-1-1 != -6-3+3 ) e(36);
117 if ( -4 * -5 != 20 ) e(37);
124 if (2 + 0 != 2 ) e(44);
125 if (2 - 0 != 2 ) e(45);
126 if (2 * 0 != 0 ) e(46);
127 if ( 0 / 1 != 0 ) e(47);
128 if ( -0 != 0 ) e(48);
129 if ( 0 * 0 != 0 ) e(49);
130 if ( 32767 > 32767 ) e(50);
131 if ( 0456 < 0400 ) e(51);
132 if ( 0456 != ( 0400 | 050 | 06 ) ) e(52);
133 if ( 2*2<<2*2/4 != 010 ) e(53);
136 if ( ( 123 ? 123 * 4 :345) != 492 ) e(56);
137 if ( ( 0 ? 345 : 280) != 280 ) e(57);
138 if ( ( (2*2/2<<2)|(2/2) ) != 9 ) e(58);
139 if ( !( 111 || 23 && 0 ) ) e(59);
141 if ( !0 == 0 ) e(61);
142 if ( !!!!!!!!0 ) e(62);
145 /***********************************************************************/
148 /*arithmetic on global integer variables*/
150 i = 1; j = 2; k = 3; l = 4; m = 10;
151 if ( i+j != k ) e(1);
152 if ( i+k != l ) e(2);
153 if ( j-k != -i ) e(3);
154 if ( j*(j + k) != m ) e(4);
155 if ( -m != -(k+k+l) ) e(5);
156 if ( i / i != 1 ) e(6);
157 if ( m*m / m != m ) e(7);
158 if ( 10 * m != 100 ) e(8);
159 if ( m * (-10) != -100 ) e(9);
160 if ( j / k != 0 ) e(10);
161 if ( 100 / k != 33 ) e(11);
162 if ( i+j*k+l+m / j + 50 / k != 32 ) e(12);
163 if ( j*k*m / 6 != 10 ) e(13);
164 if ( (k>4) || (k>=4) || (k==4) ) e(14);
165 if ( (m<j) || (m<=j) || (m==j) ) e(15);
170 if ( (i > j ? k : k*j ) != 6 ) e(20);
171 if ( (i < j ? k : k*j ) != 3 ) e(21);
172 if ( j<<i != l ) e(22);
173 if ( j>> i != i ) e(25);
174 if ( i++ != 1 ) e(26);
175 if ( --i != 1 ) e(27);
176 if ( i-- != 1 ) e(28);
177 if ( ( i+j ) && ( i<0 ) || (m-10) && (064) ) e(29);
178 if ( ( i+j ) && !(i>=0) || (m-10) && !( 0 ) ) e(30);
181 /***********************************************************************/
184 /*arithmetic on local integer variables*/
187 a = 1; b = 2; c = 3; d = 4; f = 10;
188 if ( a+b != c ) e(1);
189 if ( a+c != d ) e(2);
190 if ( b-c != -a ) e(3);
191 if ( b*(b + c) != f ) e(4);
192 if ( -f != -(c+c+d) ) e(5);
193 if ( a / a != 1 ) e(6);
194 if ( f*f / f != f ) e(7);
195 if ( 10 * f != 100 ) e(8);
196 if ( f * (-10) != -100 ) e(9);
197 if ( b / c != 0 ) e(10);
198 if ( 100 / c != 33 ) e(11);
199 if ( a+b*c+d+f / b + 50 / c != 32 ) e(12);
200 if ( b*c*f / 6 != 10 ) e(13);
201 if ( (c>4) || (c>=4) || (c==4) ) e(14);
202 if ( (f<b) || (f<=b) || (f==b) ) e(15);
203 if ( c != a+b ) e(16);
207 if ( (a > b ? c : c*b ) != 6 ) e(20);
208 if ( (a < b ? c : c*b ) != 3 ) e(21);
209 if ( b<<a != d ) e(22);
210 if ( b>> a != a ) e(25);
211 if ( a++ != 1 ) e(26);
212 if ( --a != 1 ) e(27);
213 if ( a-- != 1 ) e(28);
214 if ( ( a+b ) && ( a<0 ) || (f-10) && (064) ) e(29);
215 if ( ( a+b ) && !(a>=0) || (f-10) && !( 0 ) ) e(30);
218 /***********************************************************************/
229 epsf = 1e-7; epsd = 1e-14;
231 for ( i=0; i<20 ; i++ ) a1[i] = i*i;
232 if ( a1[9] != 81 || a1[17] != 289 || a1[0] != 0 ) e(1);
233 if ( a1[1] + a1[2] + a1[3] != 14 ) e(2);
234 if ( ! a1[15] ) e(3);
235 if ( a1[8] / a1[4] != 4 ) e(4);
237 for ( i=0; i<20; i++ ) a2[i] = 10.0e-1 + i/54.324e-1;
238 if ( fabs(a2[4]*a2[4]-a2[4]*(10.0e-1 + 4/54.324e-1 ) ) > epsf ) e(5);
239 if ( fabs(a2[8]/a2[8]*a2[9]/a2[9]-a2[10]+a2[10]-1.0 ) > epsf ) e(6);
240 if ( fabs(a2[5]-a2[4]-1/54.324e-1 ) > epsf ) e(7);
241 for ( i=0; i<20; i++ ) a3[i]= 10.0e-1 + i/54.324e-1;
242 if ( fabs(a3[4]*a3[4]-a3[4]*(1.0e0+4/54.324e-1 )) > epsd ) e(8);
243 if ( fabs( a3[8]*a3[9]/a3[8]/a3[9]-a3[10]+a3[10]-1000e-3) > epsd ) e(9);
244 if ( fabs(a3[8]+a3[6]-2*a3[7]) > epsd ) e(10);
248 /****************************************************************/
254 float epsf, b2[20]; double b3[20],epsd;
255 epsf = 1e-7; epsd = 1e-14;
258 for ( i=0; i<20 ; i++ ) b1[i] = i*i;
259 if ( b1[9]-b1[8] != 17 ) e(1);
260 if ( b1[3] + b1[4] != b1[5] ) e(2);
261 if ( b1[1] != 1||b1[3] != 9 || b1[5] != 25 || b1[7] != 49 ) e(3);
262 if ( b1[12] / b1[6] != 4 ) e(4);
264 for ( i=0; i<20; i += 1) b2[i] = 10.0e-1+i/54.324e-1;
265 if (fabs(b2[4]*b2[4]-b2[4]*(10.0e-1+4/54.324e-1)) > epsf ) e(5);
266 if (fabs(b2[8]/b2[8]*b2[9]/b2[9]-b2[10]+b2[10]-1.0) > epsf ) e(6);
267 if ( fabs(b2[5]-b2[4]-1/5.4324 ) > epsf ) e(7);
268 for ( i=0; i<20 ; i += 1 ) b3[i] = 10.0e-1+i/54.324e-1;
269 if (fabs(b3[4]*b3[4]-b3[4]*(10.0e-1+4/54.324e-1)) > epsd ) e(8);
270 if (fabs(b3[8]*b3[9]/b3[8]/b3[9]+b3[10]-b3[10]-1.0) > epsd ) e(9);
271 if (fabs(b3[10]+b3[18]-2*b3[14]) > epsd ) e(10);
276 /****************************************************************/
281 /* mixed local and global */
284 double b3[10],xxd,epsd;
295 i=li=i=li=i=li=i=i=i=li=j;
296 if ( i != li || i != j ) e(4);
297 for ( i=li=0; i<20 ; i=li ) { b1[li]= (li+1)*(i+1) ; li++; }
298 if ( b1[9] != a1[10] ) e(5);
299 if ( b1[7]/a1[4] != a1[2] ) e(6);
301 if ( b1[10] != i && a1[11]!= li ) e(7);
303 for ( li=0 ; li<10; li++ ) b3[li]= 1.0e0 + li/54.324e-1;
304 if ( fabs(b3[9]-a3[9]) > epsd ) e(8);
305 if ( fabs(8/54.324e-1 - b3[9]+a3[1] ) > epsd ) e(9);
309 /***************************************************************/
315 r1.c1= 'x';r1.i=40;r1.j=50;
317 r1.aaa=3.0;r1.bbb=4.0;
323 r2.aaa=4.0;r2.bbb=5.0;
325 if (r1.c1 != 'x' || r1.i != 40 ) e(1);
327 if ( r1.aaa != 3.0 ) e(1);
330 if (r1.i != 40 || r2.i != 50 ) e(2);
331 if ( r2.j != 40 || r1.j != 50 ) e(3);
332 if ( (r1.c1 + r2.c1)/2 != 'x' ) e(4);
334 if ( r1.aaa*r1.aaa+r2.aaa*r2.aaa != r2.bbb*r2.bbb) e(5);
336 r1.i = 34; if ( i!=25 ) e(6);
340 /****************************************************************/
347 s1.c1= 'x';s1.i=40;s1.j=50;
349 s1.aaa=3.0;s1.bbb=4.0;
355 s2.aaa=4.0;s2.bbb=5.0;
357 if (s1.c1 != 'x' || s1.i != 40 ) e(1);
359 if ( s1.aaa != 3.0 ) e(1);
362 if (s1.i != 40 || s2.i != 50 ) e(2);
363 if ( s2.j != 40 || s1.j != 50 ) e(3);
364 if ( (s1.c1 + s2.c1)/2 != 'x' ) e(4);
366 if ( s1.aaa*s1.aaa+s2.aaa*s2.aaa != s2.bbb*s2.bbb) e(5);
368 s1.i = 34; if ( i!=25 ) e(6);
373 /***********************************************************************/
377 p1=alloc( sizeof *p1 );
378 p2=alloc( sizeof *p2);
379 p3=alloc(sizeof *p3);
381 if ( *p1 != 1066 ) e(1);
383 if ( p3->i != 1215 ) e(2);
385 if ( p2->val != 1566 || p2->next ) e(3);
386 if ( a1 != &a1[0] ) e(4);
388 if ( ++p1 != &a1[1] ) e(5);
390 for (i=0;i<=100;i += 1)
391 { tail = alloc(sizeof *p2);
392 tail->val = 100+i;tail->next = head;
395 if ( tail->val != 200 || tail->next->val != 199 ) e(6);
396 if ( tail->next->next->next->next->next->val != 195) e(7);
397 tail->next->next->next->next->next->val = 1;
398 if ( tail->next->next->next->next->next->val != 1) e(8);
400 if ( *&i != 27 ) e(9);
401 if ( &*&*&*&i != &i ) e(10);
403 if ( p1 != &i ) e(11);
406 /*****************************************************************/
410 struct node *pp2,*ingang,*uitgang;
414 pp1=alloc( sizeof *pp1 );
415 pp2=alloc( sizeof *p2);
416 pp3=alloc(sizeof *pp3);
418 if ( *pp1 != 1066 ) e(1);
420 if ( pp3->i != 1215 ) e(2);
422 if ( pp2->val != 1566 || p2->next ) e(3);
423 if ( b1 != &b1[0] ) e(4);
425 if ( ++pp1 != &b1[1] ) e(5);
427 for (i=0;i<=100;i += 1)
428 { uitgang = alloc(sizeof *pp2);
429 uitgang->val = 100+i;uitgang->next = ingang;
432 if ( uitgang->val != 200 || uitgang->next->val != 199 ) e(6);
433 if ( uitgang->next->next->next->next->next->val != 195 ) e(7);
434 uitgang->next->next->next->next->next->val = 1;
435 if ( uitgang->next->next->next->next->next->val != 1) e(8);
438 /***************************************************************/
442 /* real arithmetic */
444 double epsd; float epsf;
445 t = 11; pct++; epsf = 1e-6; epsd = 1e-14;
446 xf = 1.50 ; yf = 3.00 ; zf = 0.10;
447 xd = 1.50 ; yd = 3.00 ; zd = 0.10;
448 if ( fabs(1.0 + 1.0 - 2.0 ) > epsd ) e(1);
449 if ( fabs( 1e10-1e10 ) > epsd ) e(2);
450 if ( fabs( 1.0e+5*1.0e+5-100e+8 ) > epsd ) e(3);
451 if ( fabs( 10.0/3.0*3.0/10.0-100e-2 ) > epsd ) e(4);
452 if ( 0.0e0 != 0 ) e(5);
453 if ( fabs( 32767.0 - 32767 ) > epsd ) e(6);
454 if ( fabs( 1.0+2+5+3.0e0+7.5e+1+140e-1-100.0 ) > epsd ) e(7);
455 if ( fabs(-1+(-1)+(-1.0)+(-1.0e0)+(-1.0e-0)+(-1e0)+6 ) > epsd ) e(8);
456 if ( fabs(5.0*yf*zf-xf) > epsf ) e(9);
457 if ( fabs(5.0*yd*zd-xd) > epsd ) e(10);
458 if ( fabs(yd*yd - (2.0*xd)*(2.0*xd) ) > epsd ) e(11);
459 if ( fabs(yf*yf - (2.0*xf)*(2.0*xf) ) > epsf ) e(12);
460 if ( fabs( yd*yd+zd*zd+2.0*yd*zd-(yd+zd)*(zd+yd) ) > epsd ) e(13);
461 if ( fabs( yf*yf+zf*zf+2.0*yf*zf-(yf+zf)*(zf+yf) ) > epsf ) e(14);
468 if ( fabs(yd-xd-1.5) > epsd ) e(20);
473 /*****************************************************************/