From: Eric Botcazou <ebotcazou@gcc.gnu.org>
Date: Thu, 9 Nov 2017 16:34:02 +0000 (+0000)
Subject: controlled2.adb, [...]: Disable all warnings.
X-Git-Tag: upstream/12.2.0~35681
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9222c9e36869c345790b2b654e8cba059ec50b14;p=platform%2Fupstream%2Fgcc.git

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
--- 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
--- 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
--- 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
--- 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