var
  c: const Int
  p: Pointer

begin
  p := @c (* @Error Expected type 'Pointer', but got '\^const Int' *)
end.