paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2005-01-07 21:16:48 +00:00
parent 13c5439bb1
commit afd6156f08
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/webtbs/tw3494.pp Normal file
View File

@ -0,0 +1,18 @@
{ Source provided for Free Pascal Bug Report 3494 }
{ Submitted by "Danny Milosavljevic" on 2004-12-31 }
{ e-mail: danny_milo@yahoo.com }
program ivar;
uses variants;
type
ti = interface(iinterface)
end;
var
v: Variant;
i: ti;
begin
i := nil;
v := i;
i := v;
end.