diff --git a/tests/webtbs/tw2046.pp b/tests/webtbs/tw2046.pp index 2b8637d8cd..f5a0f9779f 100644 --- a/tests/webtbs/tw2046.pp +++ b/tests/webtbs/tw2046.pp @@ -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. - + \ No newline at end of file