source: liacs/coco/tests/calls/correct_call.p0@ 89

Last change on this file since 89 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: 230 bytes
Line 
1program towel;
2
3var
4 zaphod,
5 breeblebox: integer;
6var
7 mice: real;
8
9function guide(arthur, ford: integer): real;
10
11begin
12 guide := arthur + ford
13end;
14
15begin
16 { correct function call }
17 mice := guide(zaphod, breeblebox)
18end.
Note: See TracBrowser for help on using the repository browser.