fpc/tests/webtbs/tw3356.pp
fpc 790a4fe2d3 * log and id tags removed
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

25 lines
304 B
ObjectPascal

{ Source provided for Free Pascal Bug Report 3356 }
{ Submitted by "Vincent Snijders" on 2004-10-12 }
{ e-mail: vslist@zonnet.nl }
program project1;
{$mode objfpc}
uses
uw3356;
type
TB = class(TA)
protected
procedure DoB;
end;
procedure TB.DoB;
var
FA: integer;
begin
end;
begin
end.