blob: 14fdf8bd61cab5540baa30c1d4745b83a6d3b98a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{ Old file: tbs0244.pp }
{ nested procedures can't have same name as global ones (same as tbs0237) OK 0.99.13 (PM) }
Unit tb0208;
{test also with -So !!!}
Interface
Procedure t(a,b: longint);
Implementation
Procedure t(a,b: longint);
begin
end;
Procedure t2;
Procedure t(l: Longint);
Begin
End;
Begin
End;
End.
|
