source: liacs/coco/tests/declarations/program_is_procedure_name.p1@ 212

Last change on this file since 212 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: 336 bytes
Line 
1{ In dit programma is er een procedure met dezelfde naam als het
2 programma zelf: controle of dat wordt toegestaan (mag niet) }
3
4program prgisprocname;
5
6var j : integer;
7
8
9{***************************************************}
10procedure prgisprocname(i: integer);
11
12begin
13 i := 5
14end;
15
16
17{Hoofdprogramma}
18begin
19 prgisprocname(j)
20end.
Note: See TracBrowser for help on using the repository browser.