From 51cf5b3e0a163af22fc48c441ee03dc097650778 Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Fri, 16 Oct 2015 15:26:51 +0200
Subject: [PATCH] Complete previous change.

From-SVN: r228902
---
 gcc/ada/a-contai.adb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gcc/ada/a-contai.adb b/gcc/ada/a-contai.adb
index 2ed760cb3ba..cf1fc9f0894 100644
--- a/gcc/ada/a-contai.adb
+++ b/gcc/ada/a-contai.adb
@@ -34,7 +34,9 @@ package body Ada.Containers is
       ------------
 
       procedure Adjust (Control : in out Reference_Control_Type) is
+         pragma Warnings (Off);
          pragma Assert (T_Check); -- not called if check suppressed
+         pragma Warnings (On);
       begin
          if Control.T_Counts /= null then
             Lock (Control.T_Counts.all);