gistfile1.adb

with Ada.Text_IO;

procedure Outer_Pack
is
   package Inner_Pack
   is
      procedure Inner_Test;
   end Inner_Pack;
   package body Inner_Pack
   is
      procedure Inner_Test
      is
      begin
         Ada.Text_IO.Put_Line("Inner test");
      end Inner_Test;
   end Inner_Pack;

begin
   Ada.Text_IO.Put_Line("Hello World!");
   Inner_Pack.Inner_Test;
end Outer_Pack;