%!s(int64=21) %!d(string=hai) anos · e0c4a0ed01
--- a/tests/webtbs/tw2946.pp
+++ b/tests/webtbs/tw2946.pp
@@ -0,0 +1,10 @@
 
				+{ Source provided for Free Pascal Bug Report 2946 }
			
 
				+{ Submitted by "Marco (Gory Bugs Department)" on  2004-02-06 }
			
 
				+{ e-mail:  }
			
 
				+
			
 
				+{$ifdef fpc}{$mode Delphi}{$endif}
			
 
				+var p:array of pchar;
			
 
				+    t: ^pchar;
			
 
				+begin
			
 
				+  p:=pointer(t);
			
 
				+end.