tests/webtbs/tw3340.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ 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.