source: liacs/coco/tests/semantic-checks/function_assignment_not_allowed.p1@ 2

Last change on this file since 2 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: 227 bytes
Line 
1program a;
2
3var
4 b: integer;
5
6function fac(c: integer): integer;
7
8begin
9 if (c = 0) then
10 fac := 1
11 else
12 fac := fac(c-1) * c
13end;
14
15function plus(d,e: integer): integer;
16
17begin
18 fac := d+e
19end;
20
21begin
22 b := 3
23end.
Note: See TracBrowser for help on using the repository browser.