paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 23:29:15 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw2046.pp
View File

@ -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.