with Ada.Text_Io;

if Object = null then
   Ada.Text_Io.Put_line("object is null");
end if;