fpcsrc/tests/webtbs/tw1124.pp


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

 Type
      t1 = record
       dummy:integer;
      end;
      t2 = record
       dummy:string;
      end;

operator = (i1,i2:t1) r:boolean;
begin
end;

operator = (i1,i2:t2) r:boolean;
begin
end;

begin
end.