source: liacs/coco/tests/varia/call_and_write.p0@ 401

Last change on this file since 401 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: 171 bytes
Line 
1program a;
2
3procedure foo(bar: integer; baz: real; qux, quux, fred, barny: integer);
4
5begin
6 writeinteger(bar);
7 writereal(baz)
8end;
9
10begin
11 foo(3, 3.5, 1, 2,3,4)
12end.
Note: See TracBrowser for help on using the repository browser.