1package Inline15_Types is 2 type Enum is (One, Two, Three, Four); 3 4 type Rec (Discr : Enum) is record 5 Comp_1 : Integer; 6 7 case Discr is 8 when One => 9 Comp_2 : Float; 10 when Two => 11 Comp_3 : Boolean; 12 Comp_4 : Long_Float; 13 when others => 14 null; 15 end case; 16 end record; 17end Inline15_Types; 18