Increase timeout factor for hppa*-*-* in gcc.dg/long_branch.c
[official-gcc.git] / gcc / testsuite / gnat.dg / inline15_types.ads
blob5aaa2d64bf1f9ea16ea0a72e487558024ed08352
1 package Inline15_Types is
2 type Enum is (One, Two, Three, Four);
4 type Rec (Discr : Enum) is record
5 Comp_1 : Integer;
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;
17 end Inline15_Types;