1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb
index ed53ca0..cf4a9c0 100644
--- a/gcc/ada/exp_imgv.adb
+++ b/gcc/ada/exp_imgv.adb
@@ -1158,9 +1158,8 @@ package body Exp_Imgv is
             --  as is done with other ZFP violations.
 
             declare
-               pragma Warnings (Off); -- since Discard is unreferenced
                Discard : constant Entity_Id := RTE (RE_Null);
-               pragma Warnings (On);
+               pragma Unreferenced (Discard);
             begin
                return;
             end;