RosettaCodeData/Task/Empty-program/Ada/empty-program.ada

procedure Empty is
begin
   null;
end;