RosettaCodeData/Task/Null-object/Ada/null-object.adb

with Ada.Text_Io;

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