* remove two warnings

git-svn-id: trunk@14778 -

tests/utils/fptime.pp

@@ -5,6 +5,7 @@ var
   ps : ansistring;
   sticks : int64;
 begin
+  ps:='';
   if paramcount>0 then
     begin
       for i:=2 to paramcount do

tests/utils/testfail.pp

@@ -49,7 +49,6 @@ end;
 
 procedure RunFail;
 var
-  outname,
   TestExe : string;
 begin
   TestExe:=ForceExtension(FailName,ExeExt);