소스 검색

* 2 tests for integer constant to pointer conversion

daniel 22 년 전
부모
커밋
213f373613
2개의 변경된 파일18개의 추가작업 그리고 0개의 파일을 삭제
  1. 8 0
      tests/tbf/tb0159.pp
  2. 10 0
      tests/tbs/tb0465.pp

+ 8 - 0
tests/tbf/tb0159.pp

@@ -0,0 +1,8 @@
+{%fail}
+program tb0159;
+
+var x:pointer;
+
+begin
+  x:=0;
+end.

+ 10 - 0
tests/tbs/tb0465.pp

@@ -0,0 +1,10 @@
+program tb0465;
+
+{$mode delphi}
+
+var x:pointer;
+
+begin
+  x:=0;
+  x:=pointer(0);
+end.