blob: 3b397b3cf1a5b360ab84e519e8768faf5cd3d493 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
{ %fail }
{ Source provided for Free Pascal Bug Report 2046 }
{ Submitted by "Mattias Gaertner" on 2002-07-17 }
{ e-mail: nc-gaertnma@netcologne.de }
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
{ THis is not supported. It needs runtime support that will iterate through all
array of const elements and pass them on the stack dependent on the type
For now it should print an error, because it generates invalid code }
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.
|
