mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 21:08:30 +02:00
25 lines
258 B
ObjectPascal
25 lines
258 B
ObjectPascal
{ %fail }
|
|
program terecs7;
|
|
|
|
{$MODE DELPHI}
|
|
{$APPTYPE CONSOLE}
|
|
|
|
type
|
|
TBar = record
|
|
end;
|
|
|
|
TFoo = record
|
|
class operator GreaterThan(i, j: TBar): Boolean;
|
|
end;
|
|
|
|
{ TFoo }
|
|
|
|
class operator TFoo.GreaterThan(i, j: TBar): Boolean;
|
|
begin
|
|
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|