init.c 5.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253
  1. /*
  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".
  4. *
  5. */
  6. /* Author: E.G. Keizer */
  7. char rcs_id[] = "$Id$" ;
  8. /* Test initialisation of a V7 C-compiler */
  9. /* 1 sept 1980 */
  10. #include "../local.h"
  11. /* Integers and constant expressions */
  12. int in1 = 4 ;
  13. int in2 = MAXINT ;
  14. int in3 = MININT ;
  15. int in4 ;
  16. int inzero ;
  17. int ice1 = (1-2+3*4/2)%3 ;
  18. int ice2 = ((((1&3)|4)^014) >> 1) <<1 ;
  19. int ice3 = ( (1==2) & (3<4) ) | (4>3) | (0<=0) | -2>=17 ;
  20. int ice4 = (~-1) ;
  21. int ice5 = (1==1 ? 3+4 : 5+6 ) ;
  22. int ice6 = (1!=1 ? 7+8 : 9+10 ) ;
  23. int ina[] = { 1, 3, 5 } ;
  24. pint() {
  25. static int sint = -1 ;
  26. int lint = in1+in3+sint ;
  27. printf("Integers:\n\n") ;
  28. printf("in1\t%d\nin2\t%d\nin3\t%d\nin4\t%d\ninzero\t%d\n\n",
  29. in1,in2,in3,in4,inzero ) ;
  30. printf("ice1\t%d\nice2\t%d\nice3\t%d\nice4\t%d\nice5\t%d\nice6\t%d\n\n",
  31. ice1,ice2,ice3,ice4,ice5,ice6 ) ;
  32. printf("ina\t%d,%d,%d\n\n",ina[0],ina[1],ina[2]) ;
  33. printf("sint\t%d\nlint\t%d\n\n",sint,lint) ;
  34. }
  35. /* Characters */
  36. char ch1 = 'a' ;
  37. char ch2 ;
  38. char cha1[] = "Mesg" ;
  39. char cha2[] = "" ;
  40. char cha3[] = "1" ;
  41. char cha4[] = "12" ;
  42. char cha5[] = "0123456789112345678921234567893123456789412345678951234567896123456789712345678981234567899123456789" ;
  43. char cha6[2][3] = {
  44. { 1, 2, 3 },
  45. { 4, 5, 6 }
  46. };
  47. char *pch1 = cha2 ;
  48. char *pch2 = "pch2" ;
  49. char *pch3 = "ppch3" ;
  50. char *pch4 = 0 ;
  51. pch() {
  52. static char stc[] = "123" ;
  53. static char stc1[] = "1234" ;
  54. static char *mult[] = { "ab" , "bc" , "de" } ;
  55. printf("Characters:\n\n") ;
  56. printf("ch1\t%c(%d)\n",ch1,ch1) ;
  57. printf("ch2\t%d\n",ch2) ;
  58. printf("cha1\t%s\ncha2\t%s\ncha3\t%s\ncha4\t%s\n",
  59. cha1,cha2,cha3,cha4 ) ;
  60. printf("cha5\t%s\n\n",cha5) ;
  61. printf("cha6\t%d, %d, %d\n\t%d, %d, %d\n",
  62. cha6[0][0],cha6[0][1],cha6[0][2],cha6[1][0],cha6[1][1],cha6[1][2]);
  63. printf("pch1==cha2\t%s\n",(pch1 == cha2 ? "yes" : "no" ) ) ;
  64. printf("pch2\t%s\npch3\t%s\n",pch2,pch3+1) ;
  65. printf("pch4==0\t%s\n\n",(pch4 != 0 ? "no" : "yes" ) ) ;
  66. printf("stc\t%s\nstc1\t%s\n",stc,stc1) ;
  67. printf("mult[0],mult[1],mult[2] %s, %s, %s\n",mult[0],mult[1],mult[2]);
  68. }
  69. #ifndef NOFLOAT
  70. /* floats */
  71. float fl1 = 0 ;
  72. float fl2 = 2 ;
  73. float fl3 = 2e-10 ;
  74. float fl4 = 4.0 ;
  75. float fl5 = EPSFLOAT ;
  76. float fl6 = MAXFLOAT ;
  77. float fl7 ;
  78. float fla1[4][3] = {
  79. { 1, 3, 5 },
  80. { 2, 4, 6 },
  81. { 3, 5, 7 }
  82. } ;
  83. float fla2[4][3] = {
  84. -1,-3,-5,-2,-4,-6,-3,-5,-7
  85. } ;
  86. float fla3[4][3] = {
  87. { 11 } , { 12 } , { 13 } , { 14 }
  88. } ;
  89. pflt() {
  90. register i,j ;
  91. printf("Floats:\n\n") ;
  92. printf("fl1\t%.20e\nfl2\t%.20e\nfl2\t%.20e\nfl4\t%.20e\nfl5\t%.20e\nfl6\t%.20e\nfl7\t%.20e\n",
  93. fl1,fl2,fl2,fl4,fl5,fl6,fl7 ) ;
  94. printf(" fla1 fla2 fla3\n") ;
  95. for ( i=0 ; i<4 ; i++ ) {
  96. for ( j=0 ; j<3 ; j++ ) {
  97. printf(" %20e %20e %20e\n",
  98. fla1[i][j],fla2[i][j],fla3[i][j]) ;
  99. }
  100. }
  101. printf("\n") ;
  102. }
  103. /* doubles */
  104. double dbl1 = 0 ;
  105. double dbl2 = 2 ;
  106. double dbl3 = 2e-10 ;
  107. double dbl4 = 4.0 ;
  108. double dbl5 = EPSDOUBLE ;
  109. double dbl6 = MAXDOUBLE ;
  110. double dbl7 ;
  111. double dbla1[4][3] = {
  112. { 1, 3, 5 },
  113. { 2, 4, 6 },
  114. { 3, 5, 7 }
  115. } ;
  116. double dbla2[4][3] = {
  117. -1,-3,-5,-2,-4,-6,-3,-5,-7
  118. } ;
  119. double dbla3[4][3] = {
  120. { 11 } , { 12 } , { 13 } , { 14 }
  121. } ;
  122. pdbl() {
  123. register i,j ;
  124. printf("Doubles:\n\n") ;
  125. printf("dbl1\t%.20e\ndbl2\t%.20e\ndbl2\t%.20e\ndbl4\t%.20e\ndbl5\t%.20e\ndbl6\t%.20e\ndbl7\t%.20e\n",
  126. dbl1,dbl2,dbl2,dbl4,dbl5,dbl6,dbl7 ) ;
  127. printf(" dbla1 dbla2 dbla3\n") ;
  128. for ( i=0 ; i<4 ; i++ ) {
  129. for ( j=0 ; j<3 ; j++ ) {
  130. printf(" %20e %20e %20e\n",
  131. dbla1[i][j],dbla2[i][j],dbla3[i][j]) ;
  132. }
  133. }
  134. printf("\n") ;
  135. }
  136. #endif
  137. /* long */
  138. long lo1 = 14L ;
  139. long lo2 = -17 ;
  140. long lo3 = MAXLONG ;
  141. long lo4 = MINLONG ;
  142. long lo5 ;
  143. long lo6 = ( 0==1 ? -1L : 1L ) ;
  144. plong() {
  145. printf("long\n\n") ;
  146. printf("lo1\t%ld\nlo2\t%ld\nlo3\t%ld\nlo4\t%ld\nlo5\t%ld\nlo6\t%ld\n\n",
  147. lo1,lo2,lo3,lo4,lo5,lo6 ) ;
  148. }
  149. /* structures and bit fields */
  150. struct s1 {
  151. int s_i ;
  152. char s_ca[3] ;
  153. long s_l ;
  154. #ifndef NOFLOAT
  155. double s_f ;
  156. #endif
  157. struct s1 *s_s1 ;
  158. } ;
  159. struct s1 st1 ;
  160. struct s1 sta[3] = {
  161. #ifndef NOFLOAT
  162. 1 , { 'a' , 'b' , 'c' } , 10 , -10 , &sta[0] ,
  163. #else
  164. 1 , { 'a' , 'b' , 'c' } , 10 , &sta[0] ,
  165. #endif
  166. { 2 } ,
  167. 3
  168. } ;
  169. struct s2 {
  170. int s2_1 :1 ;
  171. int s2_2 :2 ;
  172. int s2_3 :4 ;
  173. int s2_4 :7 ;
  174. int s2_5 :2 ;
  175. int s2_6 :11 ;
  176. int s2_7 :6 ;
  177. } stb = {
  178. 1,2,3,4,3,6,7
  179. } ;
  180. pstruct() {
  181. printf("structures\n\n") ;
  182. printf("\t st1 sta[0..2]\n") ;
  183. printf("s_i\t%15d%15d%15d%15d\n",
  184. st1.s_i,sta[0].s_i,sta[1].s_i,sta[2].s_i) ;
  185. printf("s_ca[0]\t%15d%15d%15d%15d\n",
  186. st1.s_ca[0],sta[0].s_ca[0],sta[1].s_ca[0],sta[2].s_ca[0]) ;
  187. printf("s_ca[1]\t%15d%15d%15d%15d\n",
  188. st1.s_ca[1],sta[0].s_ca[1],sta[1].s_ca[1],sta[2].s_ca[1]) ;
  189. printf("s_ca[2]\t%15d%15d%15d%15d\n",
  190. st1.s_ca[2],sta[0].s_ca[2],sta[1].s_ca[2],sta[2].s_ca[2]) ;
  191. printf("s_l\t%15ld%15ld%15ld%15ld\n",
  192. st1.s_l,sta[0].s_l,sta[1].s_l,sta[2].s_l) ;
  193. #ifndef NOFLOAT
  194. printf("s_f\t %13e %13e %13e %13e\n\n",
  195. st1.s_f,sta[0].s_f,sta[1].s_f,sta[2].s_f) ;
  196. #endif
  197. printf("(sta[0].s_s1)->s_i = %d\n",(sta[0].s_s1)->s_i) ;
  198. printf("\nbit fields:\n\n") ;
  199. printf("sizeof stb %d\n",sizeof stb) ;
  200. printf("stb\t%d %d %d %d %d %d %d\n\n",
  201. stb.s2_1,stb.s2_2,stb.s2_3,stb.s2_4,stb.s2_5,stb.s2_6,stb.s2_7);
  202. }
  203. main() {
  204. pint() ;
  205. pch() ;
  206. #ifndef NOFLOAT
  207. pflt() ;
  208. pdbl() ;
  209. #endif
  210. plong() ;
  211. pstruct() ;
  212. return(0) ;
  213. }