tests/test/toperator29.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %FAIL }
program toperator29;

type
  TTest = (One, Two, Three);
  TTests = set of TTest;

operator < (left: TTests; right: TTests) res : Boolean;
begin

end;

begin

end.