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