stack_usage1.adb: Replace -fstack-usage with -Wstack-usage.

	* gnat.dg/stack_usage1.adb: Replace -fstack-usage with -Wstack-usage.
	* gnat.dg/stack_usage1b.adb: Likewise.
	* gnat.dg/stack_usage1c.adb: Likewise.
	* gnat.dg/stack_usage3.adb: Likewise.
	* gnat.dg/stack_usage1_pkg.adb: Delete.

From-SVN: r261021

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 297141ff8d2b6a58b12040abd4816e0c42b1fde5..a04fff8d188451d517bd0568a51967f3e6634b01 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2018-05-31  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gnat.dg/stack_usage1.adb: Replace -fstack-usage with -Wstack-usage.
+       * gnat.dg/stack_usage1b.adb: Likewise.
+       * gnat.dg/stack_usage1c.adb: Likewise.
+       * gnat.dg/stack_usage3.adb: Likewise.
+       * gnat.dg/stack_usage1_pkg.adb: Delete.
+
 2018-05-31  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc.dg/store_merging_10.c: Turn dg-do compile into dg-do run.

diff --git a/gcc/testsuite/gnat.dg/stack_usage1.adb b/gcc/testsuite/gnat.dg/stack_usage1.adb
index 81c0a083243a5b36c08c7122d54009079ea0529d..75b1d28c3aa2fff8e20b4c4997930a331bdc633b 100644 (file)
--- a/gcc/testsuite/gnat.dg/stack_usage1.adb
+++ b/gcc/testsuite/gnat.dg/stack_usage1.adb
@@ -1,5 +1,5 @@
 -- { dg-do compile }
--- { dg-options "-fstack-usage" }
+-- { 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;
-
--- { dg-final { scan-stack-usage "\t\[0-9\]\[0-9\]\t" { target i?86-*-* x86_64-*-* } } }
--- { dg-final { cleanup-stack-usage } }

diff --git a/gcc/testsuite/gnat.dg/stack_usage1_pkg.adb b/gcc/testsuite/gnat.dg/stack_usage1_pkg.adb
deleted file mode 100644 (file)
index 1538b85..0000000
--- a/gcc/testsuite/gnat.dg/stack_usage1_pkg.adb
+++ /dev/null
@@ -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;

diff --git a/gcc/testsuite/gnat.dg/stack_usage1b.adb b/gcc/testsuite/gnat.dg/stack_usage1b.adb
index 4129c0d34a78c1c4b48e1b52991bf183790bbfd7..529e93dca8a65204f27fbdb0c91268f2539210ac 100644 (file)
--- a/gcc/testsuite/gnat.dg/stack_usage1b.adb
+++ b/gcc/testsuite/gnat.dg/stack_usage1b.adb
@@ -1,5 +1,5 @@
 -- { dg-do compile }
--- { dg-options "-O -fstack-usage" }
+-- { 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;
-
--- { dg-final { scan-stack-usage "\t\[0-9\]\[0-9\]\t" { target i?86-*-* x86_64-*-* } } }
--- { dg-final { cleanup-stack-usage } }

diff --git a/gcc/testsuite/gnat.dg/stack_usage1c.adb b/gcc/testsuite/gnat.dg/stack_usage1c.adb
index 41b7a60563ab0133b4c8ab79ebfeaea4ac779851..4afd2dad2e67925d3f8dfdf0c934b7215968e27f 100644 (file)
--- a/gcc/testsuite/gnat.dg/stack_usage1c.adb
+++ b/gcc/testsuite/gnat.dg/stack_usage1c.adb
@@ -1,5 +1,5 @@
 -- { dg-do compile }
--- { dg-options "-O2 -fstack-usage" }
+-- { 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;
-
--- { dg-final { scan-stack-usage "\t\[0-9\]\[0-9\]\t" { target i?86-*-* x86_64-*-* } } }
--- { dg-final { cleanup-stack-usage } }

diff --git a/gcc/testsuite/gnat.dg/stack_usage3.adb b/gcc/testsuite/gnat.dg/stack_usage3.adb
index bd7d811612ad22b25b960b55284d47d51b9af4ba..2bcd9c5c5c26e01de5d7f775771197ca27af21c5 100644 (file)
--- a/gcc/testsuite/gnat.dg/stack_usage3.adb
+++ b/gcc/testsuite/gnat.dg/stack_usage3.adb
@@ -1,5 +1,5 @@
 -- { dg-do compile }
--- { dg-options "-O -fstack-usage" }
+-- { 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;
-
--- { dg-final { scan-stack-usage-not "\t\[0-9\]\[0-9\]\[0-9\]\[0-9\]\t" } }
--- { dg-final { cleanup-stack-usage } }