* moved to success

This commit is contained in:
peter 2004-04-12 11:26:49 +00:00
parent 73867aa44c
commit e0c4a0ed01

10
tests/webtbs/tw2946.pp Normal file
View File

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