Test suite results for test file webtbs/tw2046a.pp

Test run data :

Test file "webtbs/tw2046a.pp" information:

t_id 898
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Source provided for Free Pascal Bug Report 2046 }
{ Submitted by "Mattias Gaertner" on  2002-07-17 }
{ e-mail: nc-gaertnma@netcologne.de }

{ modified to check that passing array of const
  from functions to functions works correctly PM }

program printftest;

{$mode objfpc}{$H+}

uses
  sysutils;


procedure sprintf(var a : string; const fm: string; args: array of const);
begin
  a:=Format (fm,args);
end;

procedure sprintf2(var a : string; const fm: string; args: array of const);
begin
  FmtStr (a,fm,args);
end;

procedure print(args: array of const);
var
  a : string;
begin
  sprintf(a,'a number %D-%D%S',args);
  writeln(a);
  if a<>'a number 3333-45 test string' then
   begin
     writeln('Error!');
     halt(1);
   end;
  sprintf2(a,'a number %D-%D%S',args);
  writeln(a);
  if a<>'a number 3333-45 test string' then
   begin
     writeln('Error!');
     halt(1);
   end;
end;

var
  a : string;
begin
  a:=format('a number %D',[12345]);
  writeln(a);
  if a<>'a number 12345' then
   begin
     writeln('Error!');
     halt(1);
   end;
  print([3333,45,' test string']);
end.

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