소스 검색

* test should print an error because this is not supported

peter 22 년 전
부모
커밋
567f814592
1개의 변경된 파일6개의 추가작업 그리고 2개의 파일을 삭제
  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 }
 { 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.
-
+