florian hace 22 años
padre
commit
5a3081439e
Se han modificado 2 ficheros con 23 adiciones y 3 borrados
  1. 17 0
      tests/webtbf/tw2128.pp
  2. 6 3
      tests/webtbs/tw2128.pp

+ 17 - 0
tests/webtbf/tw2128.pp

@@ -0,0 +1,17 @@
+{ %version=1.1}
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2128 }
+{ Submitted by "Bill Rayer" on  2002-09-18 }
+{ e-mail: [email protected] }
+
+{
+  Excessive 64-bit literal causes the FPC compiler to crash.
+}
+var
+  c : comp;
+begin
+  c := -9223372036854775809;
+  if c<>-9223372036854775809 then
+    halt(1);
+end.

+ 6 - 3
tests/webtbs/tw2128.pp

@@ -10,7 +10,10 @@
 var
   c : comp;
 begin
-  c := -9223372036854775809;
-  if c<>-9223372036854775809 then
-    halt(1);
+  c := -9223372036854775808;
+  if c<>-9223372036854775808 then
+    begin
+      writeln('Error');
+      halt(1);
+    end;
 end.