|
@@ -1,3 +1,4 @@
|
|
|
|
+{$Q-} { this is necessary to avoid an overflow error below }
|
|
{$mode objfpc}
|
|
{$mode objfpc}
|
|
uses
|
|
uses
|
|
sysutils
|
|
sysutils
|
|
@@ -1186,4 +1187,4 @@ begin
|
|
writeln(' Int64 test successful');
|
|
writeln(' Int64 test successful');
|
|
writeln('------------------------------------------------------');
|
|
writeln('------------------------------------------------------');
|
|
halt(0);
|
|
halt(0);
|
|
-end.
|
|
|
|
|
|
+end.
|