1 2 3 4 5 6 7 8
package Bug_Elaboration_Code is pragma Elaborate_Body; I : Integer; J : Integer; end Bug_Elaboration_Code;