Test suite results for test file tbs/tb0476.pp

Test run data :

Test file "tbs/tb0476.pp" information:

t_id 1303
t_adddate 2004/05/26
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934983.

Source:

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.

Link to SVN view of tbs/tb0476.pp source.