source:
liacs/coco/tests/declarations/lookup.p0@
101
Last change on this file since 101 was 2, checked in by , 15 years ago | |
---|---|
File size: 164 bytes |
Line | |
---|---|
1 | program a; |
2 | |
3 | var |
4 | x: integer; |
5 | |
6 | procedure foo(y: integer); |
7 | |
8 | begin |
9 | if (x>y) then |
10 | writeinteger(x) |
11 | else |
12 | writeinteger(y) |
13 | end; |
14 | |
15 | begin |
16 | x := 4; |
17 | foo(3) |
18 | end. |
Note:
See TracBrowser
for help on using the repository browser.