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