瀏覽代碼

* test longint -> int64 conversions as well

git-svn-id: trunk@3225 -
Jonas Maebe 19 年之前
父節點
當前提交
9adf432e07
共有 1 個文件被更改,包括 27 次插入0 次删除
  1. 27 0
      tests/test/cg/tcnvint5.pp

+ 27 - 0
tests/test/cg/tcnvint5.pp

@@ -50,9 +50,36 @@ begin
     end;
 end;
 
+
+procedure test3;
+var
+  b: longint;
+  l: int64;
+begin
+  b := low(longint)+1;
+  dec(b,2);
+  l := b;
+  if (l <> high(longint)) then
+    begin
+      writeln('neg error with shortint');
+      error := true;
+    end;
+
+  b := high(longint)-1;
+  inc(b,2);
+  l := b;
+  if (l <> low(longint)) then
+    begin
+      writeln('pos error with shortint');
+      error := true;
+    end;
+end;
+
 begin
   error := false;
   test;
   test2;
+  test3;
   halt(ord(error));
 end.
+