fpcsrc/tests/tbs/tb0476.pp


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

const
  e = 'as';

procedure p(const p);
  begin
    if pchar(@p)^<>'a' then
      begin
        writeln('error');
        halt(1);
      end;
  end;

begin
  p(e[1]);
end.