1-- { dg-do compile } 2-- { dg-options "-Wstack-usage=512" } 3 4with Stack_Usage4_Pkg; use Stack_Usage4_Pkg; 5 6procedure Stack_Usage4 is 7 BS : Bounded_String := Get; 8 S : String := BS.Data (BS.Data'First .. BS.Len); 9begin 10 null; 11end; 12