2 -- { dg-options "-O -fstack-check" }
4 package body Stack_Check3 is
6 type Int_Arr is array (1 .. 34) of Integer;
8 type Rec (D : Boolean := False) is
11 when True => IA : Int_Arr;
16 type Rec_Arr is array (1 .. 256) of Rec;
24 protected body Prot_Arr is
27 A := (others => (D => False));