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

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

diff --git a/gcc/ada/a-convec.adb b/gcc/ada/a-convec.adb
index b6440f9f58b..a3d7464e941 100644
--- a/gcc/ada/a-convec.adb
+++ b/gcc/ada/a-convec.adb
@@ -618,7 +618,9 @@ package body Ada.Containers.Vectors is
    end Finalize;
 
    procedure Finalize (Object : in out Iterator) is
+      pragma Warnings (Off);
       pragma Assert (T_Check); -- not called if check suppressed
+      pragma Warnings (On);
    begin
       Unbusy (Object.Container.TC);
    end Finalize;
-- 
2.30.2