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

no message

Browse Source
This commit is contained in:
florian 2004-01-06 01:38:38 +00:00
parent 3c481f1688
commit 6e86fcd1f8
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/webtbf/tw2878.pp Normal file
View File

@ -0,0 +1,18 @@
{ %fail }
{ Source provided for Free Pascal Bug Report 2878 }
{ Submitted by "Mattias Gaertner" on 2004-01-04 }
{ e-mail: mattias@freepascal.org }
program NoClassCheck;
{$mode objfpc}{$H+}
uses
Classes;
var
APersistent: TPersistent;
AnObject: TObject;
begin
AnObject:=nil;
APersistent:=AnObject; // Should need a typecast
end.