fpcsrc/tests/tbs/tb0410.pp


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

{ %version=1.1 }
uses
   variants;

procedure p1(f : single);
  begin
  end;

procedure p2(l : longint);
  begin
  end;

var
   v : variant;
   l : longint;

begin
   v:=1;
   p1(v);
   p2(v);
   l:=v;
end.