blob: 0b9de187b008b3144bcce51e25e87ffe90752cbc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ Source provided for Free Pascal Bug Report 3168 }
{ Submitted by "Henri Gourvest" on 2004-06-15 }
{ e-mail: hgourvest@progdigy.com }
program Untitled1;
{$MODE objfpc}
type
TClazz = class
private
f: procedure(x: Integer); cdecl;
public
x: integer;
end;
begin
end.
|
