fpcsrc/tests/tbs/tb0441.pp


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

{$mode fpc}

operator :=(x:ShortInt)RESULT:ShortString;
  begin
    Val(RESULT,x);
  end;

var
  s:ShortString;
begin
  s:=12;
end.