1-- { dg-do compile }
2-- { dg-options "-O -Wstack-usage=1024" }
3
4with Ada.Text_IO; use Ada.Text_IO;
5with Stack_Usage3_Pkg; use Stack_Usage3_Pkg;
6
7procedure Stack_Usage3 is
8begin
9   Put_Line (Diag ("Diag line 1"));
10   Put_Line (Diag ("Diag line 2"));
11   Put_Line (Diag ("Diag line 3"));
12   Put_Line (Diag ("Diag line 4"));
13   Put_Line (Diag ("Diag line 5"));
14   Put_Line (Diag ("Diag line 6"));
15   Put_Line (Diag ("Diag line 7"));
16   Put_Line (Diag ("Diag line 8"));
17   Put_Line (Diag ("Diag line 9"));
18   Put_Line (Diag ("Diag line 10"));
19   Put_Line (Diag ("Diag line 11"));
20   Put_Line (Diag ("Diag line 12"));
21   Put_Line (Diag ("Diag line 13"));
22   Put_Line (Diag ("Diag line 14"));
23   Put_Line (Diag ("Diag line 15"));
24   Put_Line (Diag ("Diag line 16"));
25   Put_Line (Diag ("Diag line 17"));
26   Put_Line (Diag ("Diag line 18"));
27   Put_Line (Diag ("Diag line 19"));
28   Put_Line (Diag ("Diag line 20"));
29end;
30