controlled2.adb, [...]: Disable all warnings.

	* gnat.dg/controlled2.adb, gnat.dg/controlled4.adb,
	gnat.dg/finalized.adb: Disable all warnings.

From-SVN: r254600

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3ace82c..a38d19f 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2017-11-09  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gnat.dg/controlled2.adb, gnat.dg/controlled4.adb,
+       gnat.dg/finalized.adb: Disable all warnings.
+
 2017-11-09  Richard Sandiford  <richard.sandiford@linaro.org>
            Alan Hayward  <alan.hayward@arm.com>
            David Sherwood  <david.sherwood@arm.com>
@@ -396,8 +401,8 @@
 
 2017-11-09  Pierre-Marie de Rodat  <derodat@adacore.com>
 
-    * gnat.dg/controlled2.adb, gnat.dg/controlled4.adb, gnat.dg/finalized.adb:
-    Disable the new warning from GNAT.
+       * gnat.dg/controlled2.adb, gnat.dg/controlled4.adb,
+       gnat.dg/finalized.adb: Disable new warning.
 
 2017-11-09  Jakub Jelinek  <jakub@redhat.com>
 

diff --git a/gcc/testsuite/gnat.dg/controlled2.adb b/gcc/testsuite/gnat.dg/controlled2.adb
index 5b7eedd..69665c9 100644 (file)
--- a/gcc/testsuite/gnat.dg/controlled2.adb
+++ b/gcc/testsuite/gnat.dg/controlled2.adb
@@ -1,7 +1,5 @@
---  { dg-do compile }
-
-pragma Warnings
-  (Off, "anonymous access-to-controlled object will be finalized when its enclosing unit goes out of scope");
+-- { dg-do compile }
+-- { dg-options "-gnatws" }
 
 with controlled1; use controlled1;
 package body controlled2 is

diff --git a/gcc/testsuite/gnat.dg/controlled4.adb b/gcc/testsuite/gnat.dg/controlled4.adb
index 9809dc6..f8159c9 100644 (file)
--- a/gcc/testsuite/gnat.dg/controlled4.adb
+++ b/gcc/testsuite/gnat.dg/controlled4.adb
@@ -1,7 +1,5 @@
---  { dg-do compile }
-
-pragma Warnings
-  (Off, "anonymous access-to-controlled object will be finalized when its enclosing unit goes out of scope");
+-- { dg-do compile }
+-- { dg-options "-gnatws" }
 
 package body controlled4 is
    procedure Test_Suite is

diff --git a/gcc/testsuite/gnat.dg/finalized.adb b/gcc/testsuite/gnat.dg/finalized.adb
index ebbe474..a8d2f88 100644 (file)
--- a/gcc/testsuite/gnat.dg/finalized.adb
+++ b/gcc/testsuite/gnat.dg/finalized.adb
@@ -1,7 +1,5 @@
 -- { dg-do compile }
-
-pragma Warnings
-  (Off, "anonymous access-to-controlled object will be finalized when its enclosing unit goes out of scope");
+-- { dg-options "-gnatws" }
 
 with Ada.Finalization; use Ada.Finalization;
 procedure finalized is