fpc/tests/webtbs/tw2046.pp

{ %skiptarget=go32v2 }

{ Source provided for Free Pascal Bug Report 2046 }
{ Submitted by "Mattias Gaertner" on  2002-07-17 }
{ e-mail: [email protected] }
program printftest;

{$mode objfpc}{$H+}

const
{$ifdef win32}
  libc='msvcrt';
{$else}
  libc='c';
{$endif}

procedure sprintf(a, fm: pchar; args: array of const); cdecl; external libc;

procedure print(args: array of const);
var
  a : array[0..255] of char;
begin
  sprintf(a,'a number %i',args);
  writeln(a);
  if a<>'a number 3333' then
   begin
     writeln('Error!');
     halt(1);
   end;
end;

begin
  print([3333]);
end.