mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 17:49:33 +02:00
20 lines
278 B
ObjectPascal
20 lines
278 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3340 }
|
|
{ Submitted by "Alexey Barkovoy" on 2004-10-05 }
|
|
{ e-mail: clootie@ixbt.com }
|
|
program Project1;
|
|
|
|
{$MODE DELPHI}
|
|
{$INLINE ON}
|
|
|
|
uses
|
|
uw3340;
|
|
|
|
var
|
|
t: TTT;
|
|
begin
|
|
t:= TTT.Create;
|
|
t.zz:= 9;
|
|
WriteLn(t.Yes);
|
|
t.Free;
|
|
end.
|