fpcsrc/tests/test/terecs7.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

{ %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.