source: liacs/coco/tests/code-generation/test2.p0@ 291

Last change on this file since 291 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: 151 bytes
RevLine 
[2]1program blaah;
2
3var
4 glob: integer;
5
6procedure proc;
7var loc: integer;
8begin
9 loc := 23;
10 glob := loc
11end;
12
13begin
14 proc;
15 writeinteger(glob)
16end.
Note: See TracBrowser for help on using the repository browser.