{ %FAIL }

program tb0249;
var
  p: PByte;
begin
  p := nil - 5;
end.