소스 검색

more tests

Vladislav Folts 11 년 전
부모
커밋
32effa18fe
1개의 변경된 파일14개의 추가작업 그리고 0개의 파일을 삭제
  1. 14 0
      test/input/run/int.ob

+ 14 - 0
test/input/run/int.ob

@@ -0,0 +1,14 @@
+MODULE Test;
+CONST 
+	c1 = 07FFFFFFFH + 1; (* -2147483648 *)
+	c2 = 0FFFFFFFFH * 2; (* -2 *)
+VAR x: INTEGER;
+BEGIN
+    x := 07FFFFFFFH + 1;
+	ASSERT(x = -2147483648);
+	ASSERT(c1 = x);
+
+	x := 0FFFFFFFFH * 2;
+  	ASSERT(x = -2);
+  	ASSERT(c2 = x);
+END Test.