===================================================================
@@ -1,5 +1,5 @@
-- { dg-do compile }
+-- { dg-options "-Wstack-usage=128" { target i?86-*-* x86_64-*-* } }
with Stack_Usage1_Pkg; use Stack_Usage1_Pkg;
@@ -34,6 +34,3 @@ begin
end case;
end Stack_Usage1;
-
===================================================================
@@ -1,13 +0,0 @@
-package body Stack_Usage1_Pkg is
-
- function Ident_Int (X : Integer) return Integer is
- begin
- return X;
- end Ident_Int;
-
- procedure My_Proc (X : R) is
- begin
- null;
- end My_Proc;
-
-end Stack_Usage1_Pkg;
===================================================================
@@ -1,5 +1,5 @@
-- { dg-do compile }
+-- { dg-options "-O -Wstack-usage=128" { target i?86-*-* x86_64-*-* } }
with Stack_Usage1_Pkg; use Stack_Usage1_Pkg;
@@ -34,6 +34,3 @@ begin
end case;
end Stack_Usage1b;
-
===================================================================
@@ -1,5 +1,5 @@
-- { dg-do compile }
+-- { dg-options "-O2 -Wstack-usage=128" { target i?86-*-* x86_64-*-* } }
with Stack_Usage1_Pkg; use Stack_Usage1_Pkg;
@@ -34,6 +34,3 @@ begin
end case;
end Stack_Usage1c;
-
===================================================================
@@ -1,5 +1,5 @@
-- { dg-do compile }
+-- { dg-options "-O -Wstack-usage=1024" }
with Ada.Text_IO; use Ada.Text_IO;
with Stack_Usage3_Pkg; use Stack_Usage3_Pkg;
@@ -27,6 +27,3 @@ begin
Put_Line (Diag ("Diag line 19"));
Put_Line (Diag ("Diag line 20"));
end;
-