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