Browse Source

* test should print an error because this is not supported

peter 22 years ago
parent
commit
567f814592
1 changed files with 6 additions and 2 deletions
  1. 6 2
      tests/webtbs/tw2046.pp

+ 6 - 2
tests/webtbs/tw2046.pp

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