mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
16 lines
283 B
ObjectPascal
16 lines
283 B
ObjectPascal
{ 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.
|