gcc/testsuite/gnat.dg/stack_usage4.adb

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