freepascal.compiler/rtl/os2/varptr.pas

program varptr;

type	Pbyte=^byte;

procedure hallo(var p:Pbyte);

begin
end;

begin
end.