Test suite results for test file webtbs/tw3441.pp

Test run data :

Test file "webtbs/tw3441.pp" information:

t_id 1413
t_adddate 2004/12/07
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940787.

Source:

{ Source provided for Free Pascal Bug Report 3441 }
{ Submitted by "Alexey Barkovoy" on  2004-12-07 }
{ e-mail: clootie@ixbt.com }
{$IFDEF FPC}{$MODE DELPHI}{$ENDIF}
procedure ArrayOfCharsTest(const a: PChar; b: PWideChar);
begin
  Writeln(a, b^); // just do something
end;

procedure ArrayOfConstTest(const Args: array of const);
begin
  Writeln(High(Args)); // just do something
end;

var
  a: array[0..5] of Char;
  b: array[0..5] of WideChar;
begin
  a[0]:= 'a'; a[1]:= #0;
  b[0]:= 'b'; b[1]:= #0;
  ArrayOfCharsTest(a, b); // This compiles
  ArrayOfConstTest(['a', a, b]); //_2.pas(19,29) Error: Incompatible types: got "Array[0..5] Of WideChar" expected "^Char"
end.

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