fpcsrc/tests/test/tassignmentoperator1.pp


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

{ %fail }
program tassignmentoperator1;

{$mode objfpc}

operator := (S1, S2: String): Integer;
begin
  Result := Length(S1);
end;

var
  S: String;
  V: Integer;
begin
  V := S;
end.