source: liacs/coco/tests/code-generation/test3.p0@ 372

Last change on this file since 372 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: 147 bytes
RevLine 
[2]1program diep;
2
3var
4 c: integer;
5
6procedure proc2;
7
8begin
9 c := 64
10end;
11
12procedure proc1;
13
14begin
15 proc2
16end;
17
18begin
19 proc1;
20 writeinteger(c)
21end.
Note: See TracBrowser for help on using the repository browser.