pointer comparison does not work

[smaslovski]

program test; var p: ^integer; begin new(p); if p=p then exit(); end.

The error message says that operator = cannot be applied to args of type ^integer.