blob: aeb99fea9b2290360b572a7b1c156bb5d13cf5cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ 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.
|
