paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 13:59:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2002-10-06 12:28:55 +00:00
parent 4337ecfd55
commit 9022d896f3
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/tbs/tb0409.pp Normal file
View File

@ -0,0 +1,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.