mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
18 lines
345 B
ObjectPascal
18 lines
345 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2728 }
|
|
{ Submitted by "marco (the gory bugs department)" on 2003-10-09 }
|
|
{ e-mail: }
|
|
{$mode delphi}
|
|
type baseclass = class end;
|
|
tbaseclass= class of baseclass;
|
|
|
|
function test (c : tbaseclass):longint;
|
|
|
|
var o :tobject;
|
|
|
|
begin
|
|
o:=tobject(c); // illegal type conversion here
|
|
end;
|
|
|
|
begin
|
|
end.
|