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 3ace82cb5f1f60b008f66c5fdeff13fe5c9b4ba6..a38d19f72c362af4c3ba0579df3f1100763fdae1 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 5b7eeddf7e9a98c99bce2a9f5fbb2d82bb1651b2..69665c942ae85b842c3d5ba5d06218e13aaf105f 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 9809dc61e287dc6fbf9b96feaf7998263c030e1a..f8159c9204dd4c943764f4a69b3b9bfca82c1420 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 ebbe474277fb6bf38ac41ae2a8b0c4ec01f7e14d..a8d2f8808c676262dd592262716b6c3da4ad2a03 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