1 2 3 4 5 6 7 8 9 10
package Dynamic_Elab_Pkg is type R is record Code : Integer; Val : Boolean; end record; function Get_R return R; end Dynamic_Elab_Pkg;