blob: 24cd1a75bf062fac3ce9b9f11f54aa46a54b28ab [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-Wstack-usage=512" }
with Stack_Usage4_Pkg; use Stack_Usage4_Pkg;
procedure Stack_Usage4 is
BS : Bounded_String := Get;
S : String := BS.Data (BS.Data'First .. BS.Len);
begin
null;
end;