1 2 3 4 5 6 7
with Ada.Direct_IO; separate (Pkg) procedure Sub is begin Put_Line ("from sub"); end Sub;