fpcsrc/tests/test/tint2str2.pp


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

{ %fail }

{$mode fpc}

procedure test(s: string);
begin
  halt(0);
end;

var
  l: longint;
begin
  l := 'abcd';
  test(l);
end.