blob: f855376fbd00569461fa264864fded1ee731f50d [file] [log] [blame]
package Stack_Usage6_Pkg is
type Rec (D : Boolean := False) is record
case D is
when False =>
Foo : Integer;
Bar : Integer;
when True =>
null;
end case;
end record;
type Index_Type is new Integer range 0 .. 5;
type Arr is array (Index_Type) of Rec;
A : Arr;
end Stack_Usage6_Pkg;