1 2 3 4 5 6 7
with Ada.Text_IO; use Ada.Text_IO; package body DInst_Pkg is procedure Foo is begin Put_Line ("hello there"); end; end;