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