source: liacs/coco/tests/simple/correct3.p0@ 225

Last change on this file since 225 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: 165 bytes
Line 
1{ This program is correct }
2
3program yetanothertest;
4
5var
6 a: real;
7
8procedure foo(b: integer);
9var
10 a: integer;
11begin
12 writeinteger(b)
13end;
14
15begin
16 a := 0
17end.
Note: See TracBrowser for help on using the repository browser.