fpcsrc/tests/webtbs/tw4427.pp


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

{$inline on}

procedure test(p: pchar);
begin
  if pchar(p)^ <> 'a' then
    halt(1);
end;

procedure test(const p); inline;
begin
  test(pchar(@p));
end;

begin
  test('abc');
end.