Browse Source

* arithmetic overflow checking at compile time

peter 20 năm trước cách đây
mục cha
commit
ec433f758a
2 tập tin đã thay đổi với 20 bổ sung0 xóa
  1. 10 0
      tests/tbf/tb0171.pp
  2. 10 0
      tests/tbf/tb0172.pp

+ 10 - 0
tests/tbf/tb0171.pp

@@ -0,0 +1,10 @@
+{ %fail }
+
+const
+  c1 = high(int64)-1;
+  { Overflow }
+  c2 = c1+2;
+begin
+  writeln(c2);
+end.
+

+ 10 - 0
tests/tbf/tb0172.pp

@@ -0,0 +1,10 @@
+{ %fail }
+
+const
+  c1 = high(int64)-1;
+  { Overflow }
+  c2 = c1*2;
+begin
+  writeln(c2);
+end.
+