mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 02:19:22 +01:00
25 lines
341 B
ObjectPascal
25 lines
341 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2920 }
|
|
{ Submitted by "marco (Gory Bugs Department)" on 2004-01-27 }
|
|
{ e-mail: }
|
|
unit uw2920;
|
|
|
|
interface
|
|
|
|
{$mode Delphi}
|
|
{$H+}
|
|
|
|
type myclass= class
|
|
function bb:string; virtual;
|
|
end;
|
|
|
|
implementation
|
|
|
|
function myclass.bb:string;
|
|
|
|
begin
|
|
bb:='a';
|
|
end;
|
|
|
|
begin
|
|
end.
|