tests/webtbs/uw3429.pp


1
2
3
4
5
6
7
8
9
10
11

{ Source provided for Free Pascal Bug Report 3429 }
{ Submitted by "Danny Milosavljevic" on  2004-12-05 }
{ e-mail: danny_milo@yahoo.com }
unit uw3429;
interface
var
  v: Variant;
implementation
begin
  v := 7;
end.