source: liacs/coco/tests/code-generation/temps2.p0@ 25

Last change on this file since 25 was 2, checked in by Rick van der Zwet, 15 years ago

Initial import of data of old repository ('data') worth keeping (e.g. tracking
means of URL access statistics)

File size: 243 bytes
RevLine 
[2]1program k;
2
3function test(i: integer): integer;
4
5var hlp1, hlp2: integer;
6begin
7 writeinteger(i);
8 if (i > 1) then
9 begin
10 test := (test(i-1) + test(i-1))
11 end
12 else
13 begin
14 test := 1
15 end
16end;
17
18begin
19 writeinteger(test(6))
20end.
Note: See TracBrowser for help on using the repository browser.