paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 04:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test should print an error because this is not supported

Browse Source
This commit is contained in:
peter 2003-10-31 16:18:32 +00:00
parent f8d2edc95f
commit 567f814592
1 changed files with 6 additions and 2 deletions

8
tests/webtbs/tw2046.pp
View File

@ -1,4 +1,4 @@
{ %skiptarget=go32v2 }
{ %fail }
{ Source provided for Free Pascal Bug Report 2046 }
{ Submitted by "Mattias Gaertner" on 2002-07-17 }
@ -20,6 +20,10 @@ 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
@ -32,4 +36,4 @@ end;
begin
print([3333]);
end.