--- ibx/trunk/fbintf/testsuite/testsuite.lpr	2016/12/06 10:33:46	45
+++ ibx/trunk/fbintf/testsuite/testsuite.lpr	2017/03/06 10:20:02	56
@@ -1,7 +1,9 @@
 program testsuite;
 
+{$IFDEF FPC}
 {$mode objfpc}{$H+}
 {$codepage utf8}
+{$ENDIF}
 
 uses
   {$IFDEF UNIX}
@@ -81,6 +83,7 @@ begin
 
     {Ensure consistent date reporting across platforms}
     DefaultFormatSettings.ShortDateFormat := 'd/m/yyyy';
+    DefaultFormatSettings.LongTimeFormat := 'HH:MM:SS';
     DefaultFormatSettings.DateSeparator := '/';
 
     writeln(OutFile,Title);