freepascal.compiler/tests/tbf/tb0249.pp

{ %FAIL }

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