fpcsrc/tests/tbs/tb0409.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{ %version=1.1 }
type
   myl = type longint;

var
   i1,i2,i3 : myl;
   l : longint;

procedure p(i : myl);overload;
begin
end;

procedure p(i : longint);overload;
begin
end;

begin
   i1:=i2+i3;
   l:=i1+l;
   inc(i3);
end.