mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 16:28:45 +02:00
28 lines
488 B
ObjectPascal
28 lines
488 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2626 }
|
|
{ Submitted by "Jose Santos" on 2003-08-10 }
|
|
{ e-mail: jcas@netcabo.pt }
|
|
program ShowBug(Input, Output);
|
|
{$MODE DELPHI}
|
|
type
|
|
TBug = class
|
|
public
|
|
constructor Create; overload;
|
|
constructor Create(var S: String); overload;
|
|
end;
|
|
|
|
constructor TBug.Create;
|
|
begin
|
|
end;
|
|
|
|
constructor TBug.Create(var S: String);
|
|
begin
|
|
S:='Test';
|
|
end;
|
|
|
|
var
|
|
Bug: TBug;
|
|
|
|
begin
|
|
Bug:=TBug.Create;
|
|
end.
|