1 2 3 4 5 6 7 8 9 10 11
package body Elab3_Pkg is procedure Elaborator is begin Proc; end Elaborator; begin if Elaborate then Elaborator; end if; end Elab3_Pkg;