source: to-imperative/trunk/samples/Syntax/const4.rf @ 770

Last change on this file since 770 was 716, checked in by orlov, 18 years ago
  • Test for $const'ants compilation.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.7 KB
Line 
1$use StdIO;
2
3$const A1 = 'A';
4$const A2 = (&A1)(&A1);
5$const A3 = (&A2)(&A2);
6$const A4 = (&A3)(&A3);
7$const A5 = (&A4)(&A4);
8$const A6 = (&A5)(&A5);
9$const A7 = (&A6)(&A6);
10$const A8 = (&A7)(&A7);
11$const A9 = (&A8)(&A8);
12$const A10 = (&A9)(&A9);
13$const A11 = (&A10)(&A10);
14$const A12 = (&A11)(&A11);
15$const A13 = (&A12)(&A12);
16$const A14 = (&A13)(&A13);
17$const A15 = (&A14)(&A14);
18$const A16 = (&A15)(&A15);
19$const A17 = (&A16)(&A16);
20$const A18 = (&A17)(&A17);
21$const A19 = (&A18)(&A18);
22$const A20 = (&A19)(&A19);
23$const A21 = (&A20)(&A20);
24$const A22 = (&A21)(&A21);
25$const A23 = (&A22)(&A22);
26$const A24 = (&A23)(&A23);
27$const A25 = (&A24)(&A24);
28$const A26 = (&A25)(&A25);
29$const A27 = (&A26)(&A26);
30$const A28 = (&A27)(&A27);
31$const A29 = (&A28)(&A28);
32$const A30 = (&A29)(&A29);
33$const A31 = (&A30)(&A30);
34$const A32 = (&A31)(&A31);
35$const A33 = (&A32)(&A32);
36$const A34 = (&A33)(&A33);
37$const A35 = (&A34)(&A34);
38$const A36 = (&A35)(&A35);
39$const A37 = (&A36)(&A36);
40$const A38 = (&A37)(&A37);
41$const A39 = (&A38)(&A38);
42$const A40 = (&A39)(&A39);
43$const A41 = (&A40)(&A40);
44$const A42 = (&A41)(&A41);
45$const A43 = (&A42)(&A42);
46$const A44 = (&A43)(&A43);
47$const A45 = (&A44)(&A44);
48$const A46 = (&A45)(&A45);
49$const A47 = (&A46)(&A46);
50$const A48 = (&A47)(&A47);
51$const A49 = (&A48)(&A48);
52$const A50 = (&A49)(&A49);
53$const A51 = (&A50)(&A50);
54$const A52 = (&A51)(&A51);
55$const A53 = (&A52)(&A52);
56$const A54 = (&A53)(&A53);
57$const A55 = (&A54)(&A54);
58$const A56 = (&A55)(&A55);
59$const A57 = (&A56)(&A56);
60$const A58 = (&A57)(&A57);
61$const A59 = (&A58)(&A58);
62$const A60 = (&A59)(&A59);
63$const A61 = (&A60)(&A60);
64$const A62 = (&A61)(&A61);
65$const A63 = (&A62)(&A62);
66$const A64 = (&A63)(&A63);
67
68Main =
69  {
70    &A63 : &A64;
71    &A1 &A57 'A' : 'A' &A57 &A1 = <PrintLN 'OK'>;
72  };
73
Note: See TracBrowser for help on using the repository browser.