* test should succeed

tests/tbf/tb0122.pp

@@ -1,18 +0,0 @@
-{ %fail }
-
-{ %version=1.1}
-{$mode delphi}
-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.
-