+ return exit code of executed program

git-svn-id: trunk@33219 -

tests/utils/fptime.pp

@@ -4,6 +4,7 @@ var
   i : longint;
   ps : ansistring;
   sticks : int64;
+  ProcessExitCode : Integer;
 begin
   ps:='';
   if paramcount>0 then
@@ -11,7 +12,8 @@ begin
       for i:=2 to paramcount do
         ps:=ps+' "'+paramstr(i)+'"';
       sticks:=GetMicroSTicks;
-      ExecuteProcess(paramstr(1),ps);
+      ProcessExitCode:=ExecuteProcess(paramstr(1),ps);
       writeln(stderr,(GetMicroSTicks-sticks)/1000:0:3,' ms');
+      halt(ProcessExitCode);
     end;
 end.