blob: f01f58877dd047e425f35514a8e05966435ccd90 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ %fail }
{ Source provided for Free Pascal Bug Report 4144 }
{ Submitted by "Wiktor Sywula" on 2005-06-30 }
{ e-mail: wswiktor@poczta.fm }
procedure foo;
type
bar = object
constructor init;
procedure zzyzzy; virtual;
end;
begin
end;
begin
end.
|
