|
@@ -1,4 +1,4 @@
|
|
-{ %skiptarget=go32v2 }
|
|
|
|
|
|
+{ %fail }
|
|
|
|
|
|
{ Source provided for Free Pascal Bug Report 2046 }
|
|
{ Source provided for Free Pascal Bug Report 2046 }
|
|
{ Submitted by "Mattias Gaertner" on 2002-07-17 }
|
|
{ Submitted by "Mattias Gaertner" on 2002-07-17 }
|
|
@@ -20,6 +20,10 @@ procedure print(args: array of const);
|
|
var
|
|
var
|
|
a : array[0..255] of char;
|
|
a : array[0..255] of char;
|
|
begin
|
|
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);
|
|
sprintf(a,'a number %i',args);
|
|
writeln(a);
|
|
writeln(a);
|
|
if a<>'a number 3333' then
|
|
if a<>'a number 3333' then
|
|
@@ -32,4 +36,4 @@ end;
|
|
begin
|
|
begin
|
|
print([3333]);
|
|
print([3333]);
|
|
end.
|
|
end.
|
|
-
|
|
|
|
|
|
+
|