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

* fixed test, don't remember the use of it :/

Browse Source
This commit is contained in:
florian 2002-11-28 23:34:16 +00:00
parent 593e30b839
commit e0f1ddbc64
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/tbs/tb0410.pp
View File

@ -1,4 +1,7 @@
{ %version=1.1 } { %version=1.1 }
uses
variants;
procedure p1(f : single); procedure p1(f : single);
begin begin
end; end;
@ -9,12 +12,11 @@ procedure p2(l : longint);
var var
v : variant; v : variant;
i : imyinterface;
l : longint; l : longint;
begin begin
v:=1;
p1(v); p1(v);
p2(v); p2(v);
l:=v; l:=v;
end. end.