Test suite results for test file webtbs/tw3865.pp

Test run data :

Test file "webtbs/tw3865.pp" information:

t_id 1547
t_adddate 2005/04/05
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948064.

Source:

{ Source provided for Free Pascal Bug Report 3865 }
{ Submitted by "Jernej" on  2005-04-01 }
{ e-mail: jernejcoder@gmail.com }
uses
  SysUtils;

procedure wantitchars(const text: string; var wot: array of char);
begin
  fillchar(wot, sizeof(wot), 0);
  StrPCopy(wot, text); // FPC ERROR: incompatible type for arg no. 1: got "array of char", expected "pchar"
end;

var
  a : array[0..10] of char;
begin
  wantitchars('test',a);
  writeln(a);
  if a<>'test' then
    halt(1);
end.

Link to SVN view of webtbs/tw3865.pp source.