gcc/testsuite/gnat.dg/stack_usage5.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-Wstack-usage=512" }
   3
   4 procedure Stack_Usage5 (C : Character) is
   5
   6   S : String (1 .. 300);
   7
   8   procedure Set is
   9   begin
  10     S (1) := C;
  11   end;
  12
  13 begin
  14   Set;
  15 end;