tests/webtbf/tw19213.pp


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

{ %fail }

unit tw19213;

{$mode objfpc}

interface

implementation

class operator + (a, b: String): Integer;
begin
  Result := Length(a) + Length(b);
end;

end.