mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
20 lines
296 B
ObjectPascal
20 lines
296 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3494 }
|
|
{ Submitted by "Danny Milosavljevic" on 2004-12-31 }
|
|
{ e-mail: danny_milo@yahoo.com }
|
|
program ivar;
|
|
{$mode objfpc}
|
|
uses variants;
|
|
|
|
type
|
|
ti = interface(iinterface)
|
|
end;
|
|
|
|
var
|
|
v: Variant;
|
|
i: ti;
|
|
begin
|
|
i := nil;
|
|
v := i;
|
|
i := v;
|
|
end.
|