* old bug tbf/tb0122 that should succeed

tests/tbs/tb0443.pp

@@ -0,0 +1,21 @@
+{ %version=1.1}
+{$ifdef fpc}
+  {$mode delphi}
+{$else}
+type
+  qword = int64;
+{$endif}
+
+var
+   b : byte;
+   i : smallint;
+   i64 : int64;
+   q : qword;
+   p : pointer;
+
+begin
+   p:=pointer(b);
+   p:=pointer(i);
+   p:=pointer(i64);
+   p:=pointer(q);
+end.